今更VBAで複数ファイルを選択するダイアログを作成

事務作業の効率化する際に毎回検索してるので忘備のため

Sub 複数ファイルをひらく()
Dim sfile As Variant
Dim cfile As Variant
Dim path_name As String
path_name = ThisWorkbook.Path

Dim wb As Workbook
'ダイアログを開くと選択したいファイルがあるディレクトリが展開されるように記述
ChDir "C:\Users\USER\Desktop\Excel_VBA\並べ替え\バックアップフォルダ"
'ファイルダイアログを作成。複数選択可能にするためにMultiSelect:=Trueとする
sfile = Application.GetOpenFilename(filefilter:="Excelファイル,*.xlsx", MultiSelect:=True)
'IsArray関数で配列チェック。
If IsArray(sfile) = True Then

'選択したファイル毎の読込開始。今回はサンプルとして、ファイル名は必ず表示し、
'開いたファイルに[メイン]シートがあれば表示。なければファイルを閉じる処理をする

For Each cfile In sfile
Set wb = Workbooks.Open(cfile)
    MsgBox wb.Name
    Dim i As Long
    For i = 1 To wb.Sheets.Count
    If wb.Sheets(i).Name = "メイン" Then
    MsgBox wb.Sheets(i).Name
    Else
     wb.Close False
    Exit For
    End If
    Next
Next
Else
End If
End Sub