OOobbs/106
質問
CSVファイルをCalcでひらくマクロはどのように書けばよいのでしょうか。 ちなみに、下記のようなマクロでは開きませんでした。 Sub CSV_Open Dim oDoc As Object Dim sUrl As String Dim mArg() sUrl="file:///D:/aaa.csv" oDoc = StarDesktop.loadComponentFromURL(sUrl, "_blank", 0, mArg()) End sub 回答
Sub CSV_Open Dim oDoc As Object Dim sUrl As String Dim mArg(1) As New com.sun.star.beans.PropertyValue mArg(0).Name = "FilterName" mArg(0).Value = "Text - txt - csv (StarCalc)" mArg(1).Name = "FilterOptions" mArg(1).Value = "44,34,0,1,1/1" sUrl="file:///D:/aaa.csv" oDoc = StarDesktop.loadComponentFromURL(sUrl, "_blank", 0, mArg()) End sub OOobbs/104 のように,loadComponenntFromURL メソッドの引数を使い,ドキュメントを開く際のフィルターを指定してやります。 使用できるフィルター名も 8.2.2 に挙げられてていますが,CSV ファイルを開くときには Text - txt - csv (StarCalc) を使用します。フィルター名一覧 フィルターオプションは CSV ファイルを読み込む際に,区切り文字やテキストの区切り,文字セットといったものを指定します。Developer's Guide 8.2.2 の CSV 用フィルタオプションの部分を参照してください。
|