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

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

  1. allex

    allex Гость

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

    Код (Text):
    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
     
Загрузка...

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