Как использовать VBS для управления файлами LibreOffice Calc?

Я изучаю VBS скрипты, и кто-то дал мне код ниже, который работает с Microsoft Excel. Как преобразовать его для работы с LibreOffice Calc?

Dim ObjExcel 
Call ExcelSetup("Sheet1")

Sub ExcelSetup(sheetName)
  Set objExcel = CreateObject("Excel.Application") 
  Set objwb = objExcel.Workbooks.Add 
  Set objwb = objExcel.ActiveWorkbook.Worksheets(sheetName) 

  Objwb.Name = "Sheet name for user"
  objwb.Activate 
  objExcel.Visible = True 
  objwb.Cells(1, 2).Value = "Hello world!" 
End Sub 

MsgBox "The End"
30
задан kokbira
13.01.2023 13:37 Количество просмотров материала 3223
Распечатать страницу

1 ответ

здесь-это сценарий, адаптированный из https://www.openoffice.org/udk/common/man/tutorial/office_automation.html:

Set oSM = CreateObject("com.sun.star.ServiceManager")
Set oDesk = oSM.createInstance("com.sun.star.frame.Desktop")
Dim arg()
Set wb = oDesk.loadComponentFromURL("private:factory/scalc", "_blank", 0, arg)
Set oSheet = wb.CurrentController.ActiveSheet
oSheet.getCellByPosition(1, 2).String = "Hello world!"
MsgBox "The End"
1
отвечен Jim K 2023-01-14 21:25

Постоянная ссылка на данную страницу: [ Скопировать ссылку | Сгенерировать QR-код ]

Ваш ответ

Опубликуйте как Гость или авторизуйтесь

Имя
Вверх