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

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

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

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

  1. allex

    allex Гость

    Репутация:
    0
    Код импорта из ячеек таблицы 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
     
Загрузка...

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