1. Наш канал codeby в telegram. Пишем об информационной безопасности, методах защиты информации, о программировании. Не пропускай новости с кодебай, будь в тренде ! Подробнее ...

    Скрыть объявление

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

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

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

    allex Гость

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

    Код:
    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()
     
Загрузка...
Статус темы:
Закрыта.

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