1 Тема от The gray Cardinal

  • The gray Cardinal
  • Разработчик
  • Неактивен

Тема: VBScript: работаем с OpenOffice.org через COM

Простейший пример работы с OpenOffice.org через COM. Скрипт запускает Calc, заполняет лист некоторыми значениями, а затем сохраняет книгу в формате MS Excel.
Источник - Интеграция OpenOffice Calc с 1С 7.7.

Set ServiceManager = CreateObject("com.sun.star.ServiceManager")
Set Desktop = ServiceManager.createInstance("com.sun.star.frame.Desktop")
arr = Array()
Set Document = Desktop.LoadComponentFromURL("private:factory/scalc", "_blank", 0, arr)
Set Sheets = Document.getSheets()
Set Sheet = Sheets.getByIndex(0)
For k = 0 To 10
    Sheet.getCellByPosition(0, k).Value = k
Next

Set SaveParam = ServiceManager.Bridge_GetStruct("com.sun.star.beans.PropertyValue")
SaveParam.Name = "FilterName"
SaveParam.Value = "MS Excel 97"
ReDim arr(0)
Set arr(0) = SaveParam
Document.storeToURL "file:///c:/Temp/test.xls", arr
Предложения в русском языке начинаются с большой буквы и заканчиваются точкой.
В названии ветки всегда должен быть указан язык программирования или среда исполнения скрипта, если это возможно.

2 Ответ от The gray Cardinal

  • The gray Cardinal
  • Разработчик
  • Неактивен

Re: VBScript: работаем с OpenOffice.org через COM

Простейший пример вывода во Writer.

Set objServiceManager = CreateObject("com.sun.star.ServiceManager")
Set Stardesktop = objServiceManager.createInstance("com.sun.star.frame.Desktop")
Set doc = Stardesktop.loadComponentFromURL("private:factory/swriter", "_blank", 0, Array())
For i=0 To 10
    doc.Text.End.String = i & ": Пример вывода" & vbCr
Next
Предложения в русском языке начинаются с большой буквы и заканчиваются точкой.
В названии ветки всегда должен быть указан язык программирования или среда исполнения скрипта, если это возможно.