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

Тема в разделе "Lotus - Программирование", создана пользователем Max_from_UA, 14 мар 2006.

Статус темы:
Закрыта.
  1. Max_from_UA

    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
    Возможно, тут что-то не так.
    Если у кого-то будут соображения на даную тему - прошу поделится.
    Давайте объяснеия как для чайника.
    Зарание выражаю глубочайшую благодарность.
     
  2. Medevic

    Medevic Что это ? :)
    Lotus team

    Регистрация:
    10 дек 2004
    Сообщения:
    3.346
    Симпатии:
    2
    В какой строке выскакивает ошибка ?
     
  3. Max_from_UA

    Max_from_UA Гость

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

    Medevic Что это ? :)
    Lotus team

    Регистрация:
    10 дек 2004
    Сообщения:
    3.346
    Симпатии:
    2
    Процессы висят, потому что надо EWindow.Quit делать.
    Насчет рещультатов - проверь в отладчике. Что там происходит.
     
  5. Max_from_UA

    Max_from_UA Гость

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

    Medevic Что это ? :)
    Lotus team

    Регистрация:
    10 дек 2004
    Сообщения:
    3.346
    Симпатии:
    2
    <!--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 раза.
     
  7. Max_from_UA

    Max_from_UA Гость

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

Поделиться этой страницей