ファイルを開いたり保存したり、扱うファイル名をオペレーターが決める場合にこのダイアログが表示できるといいですね。 Application オブジェクトにメソッドが実装されていますので紹介しておきます。
Dim strFile As String, strFilter As String strFilter = "CSVファイル(*.csv),*.csv,すべてのファイル(*.*),*.*" ' [ファイルを開く]ダイアログ strFile = Application.GetOpenFileName(strFilter, 0, "開くファイルを指定してください") If (strFile <> "") And (strFile <> "False") Then MsgBox strFile End If ' [名前をつけて保存]ダイアログ strFile = Application.GetSaveAsFileName("", strFilter) If (strFile <> "") And (strFile <> "False") Then MsgBox strFile End If
結果は次のようになります。