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

このWIKIを編集するにはパスワード入力が必要です

認証パスワード