OpenOfficeのマクロでファイル保存のための手習い 2007/12/16

OpenOfficeのマクロのための手習いです。

マクロでファイルに文字列を出力します。

ExportDataというプロシージャ (Procedure)を定義しています。

使っているオブジェクトの意味もちょっと理解してないんですが...
エラー処理とかしてません。

REM ***** BASIC *****

Option Explicit

'ファイルに文字列を出力するマクロ
Sub Main
' この例ですとルートにファイルが出力されるので注意してください。
ExportData("mytext2.txt", "test to test")
End Sub

'ファイルに文字列を出力します。
Sub ExportData (finename, s)

Dim FA As Object
Dim O As Object
Dim OS As Object

FA = createUnoService("com.sun.star.ucb.SimpleFileAccess")
O = createUnoService("com.sun.star.io.TextOutputStream")
OS = FA.openFileWrite(finename)
O.setOutputStream(OS)
O.writeString(s)
O.closeOutput()
End Sub

OpenOfficeからデータベースに接続してCalcに値を展開してマクロから、ファイル出力とかできそうですね。


参考
OpenOffice.org Basic - Wikibooks
Writer文書から指定したスタイルを持つ段落の内容を取り出すためのフィルターとマクロ
StarSuite 8 Basic プログラミングガイド
OOoBasic/Generic/file - PukiWiki Plus!