如何激活屬於一個不同的工作簿的Excel工作表

Question

讓我們將該代碼作爲示例（內一個excel VBA宏）：

   --more code-- 
     Sheets("Sheet2").Activate 
     ActiveSheet.Range("A1").Select 
      --more code-- 

上面的代碼行切換到Sheet（工作簿我內部的片材正在使用）。 但是如果我想打開另一張工作簿，怎麼辦？

我已經試過這樣的事情：

Sheets("C:\MYROUTE\[MyWorkbook.xlsx]Sheet2").Activate 

或

Sheets("C:\MYROUTE\MyWorkbook.xlsx!Sheet2").Activate 

但它不工作 任何想法把它寫正確？

Answer 1

您可以使用以下代碼選擇工作簿，然後像在活動工作簿中一樣使用工作表。

Dim my_path as String, my_file as String, current_wb as String 
my_path = "C:\whatever..." 
my_file = "whatever.xlsx" 
current_wb = ActiveWorkbook.Name 

Workbooks.Open my_path & "­\" & my_file 'This is to pen the workbook 
Workbooks(my_file).Activate   'This is to activate the recently opened workbook 
Workbooks(current_wb).Activate   'This is to activate the workbook that was first open 

Answer 2

應用工作簿片：

my_file.Sheets("Sheet2").Range("A1").Select 
current_wb.Sheets("Sheet1").Range("B2").Select