- サマリ: CSVファイルをCalcでひらきたいのですが
- 環境: Calc
- 状態: 解決
- 投稿者: RAKO?
- 投稿日: 2006-08-04 (金) 10:01:05
質問 
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
回答
- Developer's Guide 8.2.2 に CSV フィルターオプションに関する説明が有ります。
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 用フィルタオプションの部分を参照してください。
- 早速のご回答ありがとうございます。できました。 -- RAKO?
