Vbscript 在OpenOffice上的调用

首先看了一篇入门

链接地址: http://dns2.ocean-pioneer.com/wordpress/docum/openoffice_automatic.pdf

根据入门琢磨了一些内容 留档.

'初始化对象管理对象
Set oSM = CreateObject("com.sun.star.ServiceManager")
'openoffice的桌面管理对象
Set oDesktop = oSM.createInstance("com.sun.star.frame.Desktop")
Dim aArgs()
'打开excel 电子表格      scalc Excel   swriter word
Set oDoc = oDesktop.loadComponentFromURL("file:///c:/a.xls","_blank",0,aArgs)
'取第一页
Set oSheet = oDoc.getSheets().getByIndex(0)
'sheet的页数
oDoc.getSheets().getCount
'遍历
mNames = oDoc.getSheets().getElementNames
For i=LBound(mNames) To UBound(mNames)
'   MsgBox mNames(i)
Next


'这个是查看某个对象下面所有的方法和属性
'可以再OpenOffice 里面的宏里面调试
'MsgBox oDesktop.DBG_Properties
'MsgBox oDesktop.DBG_methods

'赋值
Call oSheet.getCellByPosition(0,0).SetValue(11111)
Call oSheet.getCellByPositi