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

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

  1. allex

    allex Гость

    Код импорта из ячеек таблицы 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
     
Загрузка...
Похожие Темы - Импорт значения из
  1. ToxaRat
    Ответов:
    11
    Просмотров:
    624
  2. magistr
    Ответов:
    25
    Просмотров:
    1.757
  3. Lia
    Ответов:
    15
    Просмотров:
    1.081
  4. ty3uk
    Ответов:
    16
    Просмотров:
    1.946
  5. Ali002
    Ответов:
    0
    Просмотров:
    1.117

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