【VBA】ファイルを指定して読み込む方法

Sub OpenSpecificFile()

Dim filePath As String

' ファイルのパスを指定
filePath = "C:\Users\YourUsername\Documents\Sample.xlsx"

' ファイルを開く
Workbooks.Open filePath

End Sub

Sub OpenFileWithDialog()

Dim filePath As String

' ファイル選択ダイアログを表示
filePath = Application.GetOpenFilename(FileFilter:="Excel Files (*.xlsx;*.xls), *.xlsx;*.xls", Title:="ファイルを選択してください")

' キャンセルされた場合は終了
If filePath = "False" Then

MsgBox "ファイルの選択がキャンセルされました。"
Exit Sub

End If

' ファイルを開く
Workbooks.Open filePath
MsgBox "ファイルを開きました: " & filePath

End Sub

Sub OpenFileAndAssignToVariable()

Dim filePath As String
Dim wb As Workbook

' ファイル選択ダイアログを表示
filePath = Application.GetOpenFilename(FileFilter:="Excel Files (*.xlsx;*.xls), *.xlsx;*.xls", Title:="ファイルを選択してください")

' キャンセルされた場合は終了
If filePath = "False" Then

MsgBox "ファイルの選択がキャンセルされました。"
Exit Sub

End If

' ファイルを開いて変数に格納
Set wb = Workbooks.Open(filePath)
MsgBox "ファイル '" & wb.Name & "' を開きました。"

' ファイルを閉じる例（保存しない）
' wb.Close SaveChanges:=False

End Sub

Sub CopyDataFromOpenedFile()

Dim filePath As String
Dim wbSource As Workbook
Dim wsSource As Worksheet
Dim wsTarget As Worksheet

' ファイル選択ダイアログを表示
filePath = Application.GetOpenFilename(FileFilter:="Excel Files (*.xlsx;*.xls), *.xlsx;*.xls", Title:="ファイルを選択してください")

' キャンセルされた場合は終了
If filePath = "False" Then

MsgBox "ファイルの選択がキャンセルされました。"
Exit Sub

End If

' ファイルを開いて変数に格納
Set wbSource = Workbooks.Open(filePath)
Set wsSource = wbSource.Sheets(1) ' コピー元のシート
Set wsTarget = ThisWorkbook.Sheets(1) ' コピー先のシート

' データをコピー
wsSource.Range("A1:D10").Copy Destination:=wsTarget.Range("A1")

' 読み込んだファイルを閉じる（保存せず）
wbSource.Close SaveChanges:=False

MsgBox "データをコピーしました。"

End Sub

Sub OpenFileWithValidation()

Dim filePath As String

' ファイル選択ダイアログを表示
filePath = Application.GetOpenFilename(FileFilter:="Excel Files (*.xlsx;*.xls), *.xlsx;*.xls", Title:="ファイルを選択してください")

' キャンセルされた場合は終了
If filePath = "False" Then

MsgBox "ファイルの選択がキャンセルされました。"
Exit Sub

End If

' ファイルの存在を確認
If Dir(filePath) = "" Then

MsgBox "指定したファイルは存在しません。"
Exit Sub

End If

' ファイルを開く
Workbooks.Open filePath
MsgBox "ファイルを開きました: " & filePath

End Sub

Sub OpenMultipleFiles()

Dim filePath As Variant
Dim wb As Workbook

' 複数ファイルを選択可能なダイアログを表示
filePath = Application.GetOpenFilename(FileFilter:="Excel Files (*.xlsx;*.xls), *.xlsx;*.xls", Title:="ファイルを選択してください", MultiSelect:=True)

' キャンセルされた場合は終了
If VarType(filePath) = vbBoolean And filePath = False Then

MsgBox "ファイルの選択がキャンセルされました。"
Exit Sub

End If

' 選択されたファイルを1つずつ開く
Dim i As Integer
For i = LBound(filePath) To UBound(filePath)

Set wb = Workbooks.Open(filePath(i))
MsgBox "ファイルを開きました: " & wb.Name

Next i

End Sub