関数とサンプル
【覚えておきたい関数】
- ブック作成：StarDesktop.loadComponentFromURL("private:factory/scalc", フレーム名, 0, MediaDescriptorプロパティ)
- ファイル保存：oDoc.storeAsURL(ConvertToUrl(ファイルパス),MediaDescriptorプロパティ)
- ファイル閉じる：dispose
【フレーム名】
"_blank" 常に新規ウィンドウ
"_default" デフォルト
ソースコード
Sub Main
Dim oDoc As Object
Dim Dummy()
oDoc = StarDesktop.loadComponentFromURL("private:factory/scalc", "_blank", 0, Dummy())
'作成したブックへの書込
Dim oSheet As Object
oSheet = oDoc.CurrentController.ActiveSheet
oSheet.getCellRangeByName("A1").String= "セルへの書き込み"
'C:test.odsとして保存
oDoc.storeAsURL(ConvertToUrl( "C:test.ods"), Dummy())
'ファイルを閉じる
oDoc.dispose
End Sub
実行結果
C:test.odsファイルが作成されます。
目次はこちら
>> LibreOfficeマクロ入門講座 目次
