Excelのファイル指定方法

■ファイル

ActiveWorkbook … 現在、アクティブなExcel
ThisWorkbook … マクロが書き込まれている自身のExcel
ActiveSheet … 現在、アクティブなシート
ThisWorkSheet … マクロが書き込まれている自身のExcel

■アクティブ化
Workbooks(sample.xlsx).Activate

■例

Dim path_n as string: string = "\sample.xlsx"
Dim WB1 As Workbook : Set WB1 = ActiveWorkbook
Dim WH1 As Worksheet: Set WH1 = ActiveWorkbook.ActiveWorkbook
Dim WB2 As Workbook : Set WB2 = Workbooks.Open(WB1.Path & "\dsmplr.xlsx")
Dim WH2 As Worksheet: Set WB2 = Workbook.Worksheets("Sheet1")