EXCEL VBA ファイル選択ダイアログの表示（ファイルを開く・複数ファイルを開く・拡張子指定：GetOpenFilename メソッド）

EXCEL VBA ファイル選択ダイアログの表示（ファイルを開く・複数ファイルを開く・拡張子フィルター：GetOpenFilename メソッド）

ファイルを開く（ワークブックを開く・フルパスの表示）

Sub GetOpenFilename01()  'ファイルの選択

    Dim FileName As String

    FileName = Application.GetOpenFilename() 'ダイアログボックスを表示してファイルを選択します。
        
    If FileName = False Then        '「キャンセル」を選択した場合は、プログラム終了
                        Exit Sub
    End If
    
    Range("A2") = FileName  '選択したファイルをセルA1にフルパスを表示します。

End Sub

ダイアログボックスを表示してファイルを開く（Workbooks.Open）

Sub GetOpenFilename02()  '選択したファイルを開く
    
    Dim FileName As Variant
    
    FileName = Application.GetOpenFilename(FileFilter:="Microsoft Excelブック,*.xls?", Title:="選択したファイルを開く")
    
    If FileName = False Then       '「キャンセル」を選択した場合は、プログラム終了
                        Exit Sub
    End If
    
    Workbooks.Open FileName  '選択したファイルを開く

End Sub

複数ファイルを選択して、フルパス一覧を表示

Sub GetOpenFilename03() '複数ファイルを選択
    
    Dim Multi_FileName, FileName As Variant
    Dim i As Long
    
    Multi_FileName = Application.GetOpenFilename(FileFilter:="Microsoft Excelブック,*.xls?", MultiSelect:=True)
    
    If VarType(Multi_FileName) = vbBoolean Then       '「キャンセル」を選択した場合は、プログラム終了
                        Exit Sub
    End If
    
    For Each FileName In Multi_FileName　'選択したファイルを全て繰り返す。
    
        i = i + 1　　'行を1行下げる（加算）
        
        Cells(i, "A") = FileName　　'セルにフルパスを表示します。

    　　'Workbooks.Open FileName '上記のCells(i, "A") = FileName消して、←を有効化すると選択したファイルが開きます。
    
Next FileName
    
End Sub