Импорт значения из ячейки в документ Lotus`а

Тема в разделе "OLE технологии", создана пользователем allex, 17 апр 2009.

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

    allex Гость

    Код импорта из ячеек таблицы ODS файла
    Используя вызов xlWbk.getCellRangeByName("E7").getValue() , мы импортируем в нужное нам notes-поле значение из ячейки

    Код (Text):
    Dim mass()
    Dim xlWbk As Variant    
    Dim session As New NotesSession
    Dim db As NotesDatabase
    Set db = session.CurrentDatabase
    Dim doc As New NotesDocument(db)
    Call doc.ReplaceItemValue("Form","1")

    FileName = "1.ods"
    Set xlglob = CreateObject ( "com.sun.star.ServiceManager" )
    Set Desktop = xlglob.createInstance("com.sun.star.frame.Desktop")
    Set document= Desktop.loadComponentFromURL("file:///C:/"+FileName, "_blank", 0, mass)
    Set sheets=Document.getSheets()
    Set xlWbk = sheets.getByIndex(0)

    doc.b_1 = xlWbk.getCellRangeByName("E7").getValue()
    Експеремент показал, что лучше
    в конструкции doc.b_1 = xlWbk.getCellRangeByName("E7").getValue()
    использовать doc.b_1 = xlWbk.getCellRangeByName("E7").getString()
     
Загрузка...
Похожие Темы - Импорт значения из
  1. ToxaRat
    Ответов:
    11
    Просмотров:
    622
  2. magistr
    Ответов:
    25
    Просмотров:
    1.756
  3. Lia
    Ответов:
    15
    Просмотров:
    1.080
  4. ty3uk
    Ответов:
    16
    Просмотров:
    1.946
  5. Ali002
    Ответов:
    0
    Просмотров:
    1.114
Статус темы:
Закрыта.

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