[ファイルを開く]、[名前を付けて保存]ダイアログを使用する

【カテゴリ名Excel VBA】

ファイルを開いたり保存したり、扱うファイル名をオペレーターが決める場合にこのダイアログが表示できるといいですね。 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

結果は次のようになります。