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

[Max_from_UA]

У меня возникла такая проблема. Когда я пробую импортировать в представление электронную таблицу разрешенного формата, то нажимая
ФАЙЛ-ИМПОРТ, вужу, что ИМПОРТ заблокирован, то есть не активен.
Пробовал написать програму для конкретно поставленой цели, но видается
ошибка взаимодействия с компонентами 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
Возможно, тут что-то не так.
Если у кого-то будут соображения на даную тему - прошу поделится.
Давайте объяснеия как для чайника.
Зарание выражаю глубочайшую благодарность.

 

[Medevic]

В какой строке выскакивает ошибка ?

 

[Max_from_UA]

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

 

[Medevic]

Процессы висят, потому что надо EWindow.Quit делать.
Насчет рещультатов - проверь в отладчике. Что там происходит.

 

[Max_from_UA]

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

 

[Medevic]

<!--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 раза.

 

[Max_from_UA]

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