Я изучаю сценарии 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"

1 ответ1

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"

Всё ещё ищете ответ? Посмотрите другие вопросы с метками .