VBScriptで外部からCalcを使う
VBScriptでExcelを操作するように、OpenOffice.orgのCalcをVBScriptを使って操作します。
Set OSM = WScript.CreateObject("com.sun.star.ServiceManager")
Set oDesktop = OSM.createInstance("com.sun.star.frame.Desktop")
'Set oIntrospection = OSM.createInstance("com.sun.star.beans.Introspection")
'Set oDispatchHelper = OSM.createInstance("com.sun.star.frame.DispatchHelper")
Dim Result() 'As Object
dummyArray = Result
'新規ドキュメントの取得
Set oCalcDoc = ODesktop.loadComponentFromURL("private:factory/scalc", "_blank", 0, dummyArray)
Set oSheet = oCalcDoc.Sheets.getByName("Sheet1")
'セルに値を入れる
Set oCell = oSheet.getCellByPosition(2,3)
oCell.String="あいうえお"
'既存のドキュメントを開く
'Set oCalcDoc = oDesktop.loadComponentFromURL("file:///C|/Documents%20and%20Settings/momiji/mutual.ods", "_blank", 0, dummyArray)
'セルの値を取得する
Set oCell = oSheet.getCellByPosition(1,3)
oCell.Value = 100
WScript.echo "OK!"
Set objServiceManager = Nothing
- 最終更新:2009-09-01 22:35:18