ExcelVBA 指定したブックを自動的に開く処理を実行する方法

以下のようなシーンで利用されます。

1.特定のファイルを毎回手動で開く手間を省きたい。

2.別のブックからデータを読み取る自動化処理を行いたい。

3.定期的にデータを更新するファイルを処理する際に、繰り返し作業を効率化する。

Option Explicit

Sub OpenWorkbookBasic()
    Dim filePath As String
    filePath = "C:\Users\User\Desktop\SampleWorkbook.xlsx" ' 開くファイルのフルパス

    On Error Resume Next
    Workbooks.Open filePath
    If Err.Number <> 0 Then
        MsgBox "ファイルを開けませんでした: " & filePath, vbExclamation
    Else
        MsgBox "ブックを開きました: " & filePath, vbInformation
    End If
    On Error GoTo 0
End Sub

ファイルが存在するか確認してから開く

Option Explicit

Sub OpenWorkbookWithCheck()
    Dim filePath As String
    filePath = "C:\Users\User\Desktop\SampleWorkbook.xlsx"

    If Dir(filePath) <> "" Then
        Workbooks.Open filePath
        MsgBox "ブックを開きました: " & filePath, vbInformation
    Else
        MsgBox "指定したファイルが見つかりません: " & filePath, vbExclamation
    End If
End Sub

パスワード付きのブックを開く

Option Explicit

Sub OpenWorkbookWithPassword()
    Dim filePath As String
    Dim password As String
    filePath = "C:\Users\User\Desktop\SampleWorkbook.xlsx"
    password = "1234" ' ブックのパスワード

    On Error Resume Next
    Workbooks.Open Filename:=filePath, password:=password
    If Err.Number <> 0 Then
        MsgBox "パスワードが正しくない、またはファイルを開けません: " & filePath, vbExclamation
    Else
        MsgBox "パスワード保護されたブックを開きました: " & filePath, vbInformation
    End If
    On Error GoTo 0
End Sub

複数ファイルを順番に開く

Option Explicit

Sub OpenMultipleWorkbooks()
    Dim filePaths As Variant
    Dim filePath As Variant

    ' 開くファイルのパスを配列で定義
    filePaths = Array("C:\Users\User\Desktop\Workbook1.xlsx", "C:\Users\User\Desktop\Workbook2.xlsx")

    For Each filePath In filePaths
        If Dir(filePath) <> "" Then
            Workbooks.Open filePath
            MsgBox "ブックを開きました: " & filePath, vbInformation
        Else
            MsgBox "ファイルが見つかりません: " & filePath, vbExclamation
        End If
    Next filePath
End Sub

ファイル名やパスを変数で動的に指定することで、柔軟性を持たせられます。On Error Resume Nextを使うことで、エラー時にスムーズに処理を続行できますが、必ず適切にリセットしましょう。複数のファイルを順に開く処理で効率的な操作が可能です。

「ブックを開く」処理を利用することで、繰り返し作業を効率化し、業務の自動化を実現できます。