Sub Sample7()
 Dim OpenFileName As Variant, Target As Variant
 OpenFileName = Application.GetOpenFilename(FileFilter:="Microsoft Excelブック,*.xls?", _
MultiSelect:=True)
 If IsArray(OpenFileName) Then
  For Each Target In OpenFileName
   Workbooks.Open Target
   Next Target
 Else
  MsgBox "キャンセルされました"
 End If
End Sub

前へ 次へ

この情報が含まれているまとめはこちら

【VBA】フォルダからファイル読み込み、ファイル選択画面【マクロ】

Excelでファイルを読み込む方法。単体ブックを読み込むもよし、複数ブックを読み込むも良し。ファイル選択ダイアログもあるよ!そしてフォルダ選択もできるようにするよ!(どんどん追記していく予定)

このまとめを見る