Dim filePicker As Object Dim loadFiles() As Variant Dim loadFileUrl As String Dim loadFilePath As String filePicker = createUnoService("com.sun.star.ui.dialogs.FilePicker") filePicker.initialize(Array(com.sun.star.ui.dialogs.TemplateDescription.FILEOPEN_SIMPLE)) filePicker.appendFilter("テキストファイル(*.txt)", "*.txt") filePicker.appendFilter("HTMLファイル(*.htm, *.html)", "*.htm;*.html") filePicker.appendFilter("すべてのファイル(*.*)", "*.*") If filePicker.execute() = 1 Then loadFiles = filePicker.getFiles() loadFileUrl = loadFiles(0) loadFilePath = ConvertFromURL(loadFileUrl) MsgBox(loadFilePath) End If