Top > OOobbs > 106

OOobbs/106 Edit

  • サマリ: CSVファイルをCalcでひらきたいのですが
  • 環境: Calc
  • 状態: 解決
  • 投稿者: RAKO?
  • 投稿日: 2006-08-04 (金) 10:01:05

質問 Edit

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	

回答 Edit

  • 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 用フィルタオプションの部分を参照してください。

  • はにゃ?? 2006-08-04 (金) 15:46:08
  • 早速のご回答ありがとうございます。できました。 -- RAKO? 2006-08-04 (金) 17:03:49


Reload   New Lower page making Edit Freeze Diff Upload Copy Rename   Front page List of pages Search Recent changes Backup   Help   RSS of recent changes