エクセルVBAでダイアログボックスを表示させ複数ファイル選択

エクセルファイル複数選択例

Option Explicit
Sub OpenExcelFile()

    Dim openFilePath As Variant

    'ダイアログボックスで選択したファイルを配列に入れる
    'MultiSelect:=Trueにすると複数ファイル選択OK
    openFilePath = Application.GetOpenFilename _
    ("Microsoft Excel ファイル,*.xls*", , "エクセルファイルを選んで下さい", MultiSelect:=True)
        
    Dim pt As Variant
    
    If IsArray(openFilePath) Then
        '配列ぶん繰り返しファイル処理
        For Each pt In openFilePath
            Debug.Print(pt)
        Next pt
    End If
    
End Sub

ネタ元

asatte.biz