Excel VBA ThisWorkbookはVBAコードが現在実行されているブック

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

・マクロがどのブックから実行されても、確実にマクロが含まれるブックを対象に操作する場合に使います。

・複数のブックを開いている場合に、間違えて別のブックに操作を行わないようにするために利用します。

Option Explicit

Sub ExampleThisWorkbook()
    ' ThisWorkbookを使って特定のシートに値を入力する
    ThisWorkbook.Sheets("Sheet1").Range("A1").Value = "Hello, World!"
End Sub

複数のブックが開いている場合でも、確実にマクロが含まれるブックを操作する例

Option Explicit

Sub ExampleMultipleWorkbooks()
    ' 他のブックを開いている場合でも、ThisWorkbookを使って操作
    Dim otherWorkbook As Workbook
    Set otherWorkbook = Workbooks.Open("C:\Users\User\Desktop\OtherWorkbook.xlsx")
    
    ' 他のブックに対して操作を行う
    otherWorkbook.Sheets("Sheet1").Range("A1").Value = "Data from other workbook"
    
    ' ThisWorkbookに戻って操作を行う
    ThisWorkbook.Sheets("Sheet1").Range("B1").Value = "Back to ThisWorkbook"
    
    ' 他のブックを閉じる
    otherWorkbook.Close SaveChanges:=False
End Sub