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

  • Автор темы allex
  • Дата начала
A

allex

#1
Код импорта из ячеек таблицы ODT файла
Используя функцию writegetcelltable (objDocument, "Таблица1", "A2"), нужно лишь указать имя таблицы и имя ячейки

Код:
Sub Click(Source As Button)
Dim args()
Set objServiceManager= CreateObject("com.sun.star.ServiceManager")
Set objCoreReflection= objServiceManager.createInstance("com.sun.star.reflection.CoreReflection")
Set objDesktop= objServiceManager.createInstance("com.sun.star.frame.Desktop")
Set objDocument= objDesktop.loadComponentFromURL("file:///C:/1.odt", "_blank", 0, args())


Call writegetcelltable (objDocument, "Таблица1", "A2") 
End Sub

Sub writegetcelltable (oDoc As Variant, tablename As Variant, cellname As Variant)
Set TextTables = oDoc.getTextTables()
Set TextTable = TextTables.getByName(tablename) ' таблица

Set TCell = TextTable.getCellByName(cellname) ' ячейка
Set oText = TCell.getText() 
a = oText.getValue()	' значение из ячейки
End Sub