ExcelVBA 操作対象ブック指定でアクティブに操作できる状態にする方法

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

1.複数のブックを開いている場合に、特定のブックを操作対象として指定する必要がある。

2.別のブックからデータを取得または出力したい。

3.処理の途中で対象ブックを切り替える必要がある。

Option Explicit

Sub ActivateWorkbook()
    Dim wbName As String
    wbName = "SampleWorkbook.xlsx" ' アクティブにするブックの名前

    ' ブックが開いているか確認してアクティブ化
    On Error Resume Next
    Workbooks(wbName).Activate
    If Err.Number <> 0 Then
        MsgBox "指定したブックが開いていません: " & wbName, vbExclamation
    Else
        MsgBox "ブックをアクティブにしました: " & wbName, vbInformation
    End If
    On Error GoTo 0
End Sub

すべての開いているブックを確認してアクティブ化

Option Explicit

Sub ActivateSpecificWorkbook()
    Dim wb As Workbook
    Dim targetName As String
    Dim found As Boolean

    targetName = "SampleWorkbook.xlsx" ' 対象のブック名
    found = False

    ' 開いているブックをループして確認
    For Each wb In Workbooks
        If wb.Name = targetName Then
            wb.Activate
            MsgBox "ブックをアクティブにしました: " & targetName, vbInformation
            found = True
            Exit For
        End If
    Next wb

    ' ブックが見つからない場合のエラー処理
    If Not found Then
        MsgBox "指定したブックが開いていません: " & targetName, vbExclamation
    End If
End Sub

フルパスでブックを指定する

Option Explicit

Sub ActivateWorkbookByFullPath()
    Dim fullPath As String
    fullPath = "C:\Users\User\Desktop\SampleWorkbook.xlsx" ' フルパスを指定

    ' ブックをフルパスで開いてアクティブ化
    On Error Resume Next
    Workbooks.Open fullPath
    Workbooks("SampleWorkbook.xlsx").Activate
    If Err.Number <> 0 Then
        MsgBox "ブックを開けませんでした: " & fullPath, vbExclamation
    Else
        MsgBox "ブックをアクティブにしました: " & fullPath, vbInformation
    End If
    On Error GoTo 0
End Sub

On Error Resume Nextを使用して、エラーが発生した場合にスムーズに処理を続行できます。ブック名だけでなく、フルパスを使用することでより確実な指定が可能です。アクティブ化後に、シートやセルの操作を簡単に行えます。

アクティブ化を適切に活用することで、複数ブックを扱う自動化処理が効率的になります。