Libre:036 ブック保存時にファイルの形式を指定する

ダイアログを表示するところが面倒です。

 

sub ksSaveByDialog

dim objFilePicker As Object
dim title as string
dim dialog As Integer
dim saveFiles() As String
dim saveFilename As String

‘dialogs.FilePicker でダイアログが使える
objFilePicker = createUnoService(“com.sun.star.ui.dialogs.FilePicker”)

‘ 保存するダイアログの場合
objFilePicker.initialize(Array(com.sun.star.ui.dialogs.TemplateDescription.FILESAVE_SIMPLE))

‘ ダイアログの初期化
title = ThisComponent.getTitle()
objFilePicker.Title = “CSVデータ保存”
objFilePicker.appendFilter( “CSVファイル (*.csv)”, “*.csv” )
objFilePicker.setCurrentFilter( “CSVファイル (*.csv)” )
objFilePicker.setDefaultName(title)

‘ダイアログ表示
dialog = objFilePicker.execute()

‘ 開く(OK)が押された場合は、1が返される
IF dialog <> 1 Then

Exit Sub

END IF

saveFiles() = objFilePicker.getFiles()
saveFilename = saveFiles(0)

End Sub