Libre:037 CSV形式で保存する

ここでは、ホームディレクトリ下でtest.csvという

ファイル名で保存しています。

 

Sub ksSaveAsCSV

dim objSheet as object
dim args(1) As New com.sun.star.beans.PropertyValue

objSheet = ThisComponent.getSheets().getByIndex(0)
ThisComponent.CurrentController.setActiveSheet (objSheet)

args(0).Name = “FilterName”
args(0).Value = “Text – txt – csv (StarCalc)”
args(1).Name = “FilterFlags”
args(1).Value = “UTF8”

ThisComponent.storeToURL(“file:///Users/username/test.csv”, args())

End Sub