White Tiger

LibreOffice Calc Basic - CSVファイルを読み込む方法

◆概要

このページは、Libre OfficeのマクロでCSVファイルをワークシートに読み込む方法について記載しています。

次の例は、ファイルを開くダイアログボックスを表示し、CSVファイルをワークシートに読み込みます。

rem 変数の宣言
 Dim FilePicker As Object
 Dim Accept As Integer
 Dim Doc As Object
 Dim FileProperties(1)  As New com.sun.star.beans.PropertyValue
 Dim Url As String
 
 rem ファイルを開くダイアログボックスを表示する
 FilePicker=createUnoService("com.sun.star.ui.dialogs.FilePicker")
 FilePicker.initialize(Array(com.sun.star.ui.dialogs.TemplateDescription.FILEOPEN_SIMPLE))
 FilePicker.setTitle("")
 FilePicker.appendFilter("CSV FIles(csv,txt)","*.csv;*.txt")
 rem CSV
 Accept=FilePicker.execute()
  If Accept=1 Then rem ファイルを選択し開くボタンをクリックしたら
   FIles()=FilePicker.getFiles()
   Url=ConvertToUrl(files(0))
  Else rem  キャンセルボタンが押されたら
   Url=""
   Exit Sub
  End if
 
 rem FilePropertiesの指定
 FileProperties(0).Name = "FilterName"
 FileProperties(0).Value ="Text - txt - csv (StarCalc)"
 FileProperties(1).Name = "FilterOptions"
 FileProperties(1).value  = "44,34,0,1"

 rem CSVファイルを開く
 Doc=StarDesktop.loadComponentFromURL(Url,"_blank",0,FileProperties())

Link