Sub Sample2()
 Dim OpenFileName As String
 OpenFileName = Application.GetOpenFilename("Microsoft Excelブック,*.xls?")
 If OpenFileName <> "False" Then
  Workbooks.Open OpenFileName
 Else
  MsgBox "キャンセルされました"
 End If
End Sub

前へ 次へ

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

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

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

このまとめを見る