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

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

allex

Гость
#1
Код импорта из ячеек таблицы 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()
 
Статус
Закрыто для дальнейших ответов.