Cacher is the code snippet organizer for pro developers

##Mod_Dialog ダイアログを扱うモジュールです。

--
###導入方法 本体のコードをExcel VBAの標準モジュールとして Importしてください。
[Markdown] 　[Code] 　本体

-- ###OpenFileDialog 「ファイルを開く」ダイアログを表示する。
選択したファイル名を返すのみです。実際の開く処理は独自で実装してください。

file_fullpath = OpenFileDialog()
If file_fullpath = "" Then
    ' キャンセル時、空が返る。
    End
End If
MsgBox("選択ファイル：" & file_fullpath)

--
###OpenFileDialogMultiSelect 「ファイルを開く」ダイアログを表示する。（複数選択可能）
選択したファイル名を返すのみです。実際の開く処理は独自で実装してください。

file_list = OpenFileDialogMultiSelect()
If IsEmpty(file_list) Then
    ' キャンセル時、空が返る。
    End
End If
For index = LBound(file_list) To UBound(file_list)
    MsgBox("選択ファイル：" & file_list(index))
Next

--
###SaveFileDialog 「保存」ダイアログを表示する。
選択したファイル名を返すのみです。実際の保存処理は独自で実装してください。

file_fullpath = SaveFileDialog()
If file_fullpath = "" Then
    ' キャンセル時、空が返る。
    End
End If
MsgBox("保存ファイル：" & file_fullpath)

--
###FolderDialog 「参照」ダイアログを表示する。
フォルダ選択用です。

folder_fullpath = FolderDialog()
If folder_fullpath = "" Then
    ' キャンセル時、空が返る。
    End
End If
MsgBox("選択フォルダ：" & folder_fullpath)