__Импорт электронной таблицы в представление

  • Автор темы Max_from_UA
  • Дата начала
Статус
Закрыто для дальнейших ответов.
M

Max_from_UA

#1
У меня возникла такая проблема. Когда я пробую импортировать в представление электронную таблицу разрешенного формата, то нажимая
ФАЙЛ-ИМПОРТ, вужу, что ИМПОРТ заблокирован, то есть не активен.
Пробовал написать програму для конкретно поставленой цели, но видается
ошибка взаимодействия с компонентами OLE.
Примерно вроде такого:
Sub Click(Source As Button)
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument

Set db = session.CurrentDatabase

Set EWindow = CreateObject("Excel.Application")
Set WorkBooks=EWindow.Workbooks
WorkBooks.Open"Книга2"
Set ws=EWindow.Workbooks("Книга2").Worksheets(1) ' Входной EXEL-файл в "Мои документы" и файл xls "Книга1"
EWindow.visible=False
N=Inputbox$("Введіть номер останнього рядка EXEL-файлу")
If N="" Then Exit Sub

For i=1 To N
Set doc = New NotesDocument(db)
doc.Form= "posadi"
doc.posd_ru= ws.Cells(i,1).Value
doc.posd_ukr= ws.Cells(i,2).Value

Call doc.Save(True,False)
Next i
WorkBooks("Книга2").Close
End Sub
Возможно, тут что-то не так.
Если у кого-то будут соображения на даную тему - прошу поделится.
Давайте объяснеия как для чайника.
Зарание выражаю глубочайшую благодарность.
 
M

Max_from_UA

#3
Выполняется теоретически всe, но результатов не видно и EXEL висит в процесса аж в троих екземплярах с приоритетом вище среднего.
 

Medevic

Что это ? :)
Lotus team
10.12.2004
3 346
1
#4
Процессы висят, потому что надо EWindow.Quit делать.
Насчет рещультатов - проверь в отладчике. Что там происходит.
 
M

Max_from_UA

#5
EWindow.Quit где и как надо прописать и интересно почему ЕХЕL в трёх екземплярах.
 

Medevic

Что это ? :)
Lotus team
10.12.2004
3 346
1
#6
<!--QuoteBegin-Max_from_UA+14:03:2006, 13:18 -->
<span class="vbquote">(Max_from_UA @ 14:03:2006, 13:18 )</span><!--QuoteEBegin-->EWindow.Quit где и как надо прописать и интересно почему ЕХЕL в трёх екземплярах.
[snapback]31819" rel="nofollow" target="_blank[/snapback]​
[/quote]
Прописать в конце. В трех экземплярах - потому что запустил скрипт 3 раза.
 
M

Max_from_UA

#7
Сделал как ты сказал. Не помогло, зато при выполнении скрипта выскакивает
окно в котором Еxel просит установить компоненты OLE для дальнейшего нормального функционирования, но они уже установлены. Если б их не было
вовсе, то Лотус не смог бы вызывать ис-под себя пругие приложения
 
Статус
Закрыто для дальнейших ответов.