【VBA】フォルダを指定（ダイアログ・全て・ファイル名の一部指定）でファイルを開く方法

5月 4, 2025

VBAを使用して特定のフォルダからファイルを開く方法について説明します。

ファイルを開く基本的なコード

特定のフォルダからファイルを開く基本的な方法を示しています。
この例では、Cドライブの「ExampleFolder」にある「example.xlsx」という名前のファイルを開きます。

Sub OpenSpecificFile()

Dim filePath As String

' ファイルのパスを指定
filePath = "C:\ExampleFolder\example.xlsx"

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

End Sub

ユーザーが指定したフォルダからファイルを選択できるようにする方法を紹介します。
Application.GetOpenFilenameメソッドを使用して、ユーザーがファイルを選択するダイアログを表示します。

Sub OpenFileWithDialog()

Dim filePath As Variant

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

' ユーザーがキャンセルをクリックした場合は何もしない
If filePath = False Then

MsgBox "ファイルが選択されませんでした。"

Exit Sub

End If

' 選択されたファイルを開く
Workbooks.Open filePath

End Sub

特定のフォルダ内にあるすべてのExcelファイルを開く方法を紹介します。
フォルダ内のすべての.xlsxファイルをループ処理で開きます。

Sub OpenAllFilesInFolder()

Dim folderPath As String
Dim fileName As String

' フォルダのパスを指定
folderPath = "C:\ExampleFolder\"

' フォルダ内の最初の.xlsxファイルを取得
fileName = Dir(folderPath & "*.xlsx")

' フォルダ内のすべての.xlsxファイルをループ処理で開く
Do While fileName <> ""

Workbooks.Open folderPath & fileName
fileName = Dir

Loop

End Sub

ファイル名の一部を指定して特定のファイルを開く方法を紹介します。
フォルダ内のファイル名に「report」が含まれるファイルを開きます。

Sub OpenFilesWithSpecificName()

Dim folderPath As String
Dim fileName As String

' フォルダのパスを指定
folderPath = "C:\ExampleFolder\"

' フォルダ内の最初のファイルを取得
fileName = Dir(folderPath & "*report*.xlsx")

' ファイル名に「report」が含まれるすべての.xlsxファイルをループ処理で開く
Do While fileName <> ""

Workbooks.Open folderPath & fileName
fileName = Dir

Loop

End Sub

Excel VBAを使用して特定のフォルダからファイルを開く方法を紹介しました。これらの方法を活用することで、ファイルの自動処理やデータの管理がより効率的になります。