如何激活属于其他工作簿的Excel工作表

Question

我们以此代码为例（在excel VBA宏中）：

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

上面的代码行切换到sheet2（我正在使用的工作簿中的工作表）。 但是，如果我想打开另一张工作簿呢？

我尝试过这样的事情：

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

或

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

但它不起作用 有什么想法写得好吗？

Answer 1

将工作簿应用于工作表：

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

Answer 2

您可以使用以下代码选择工作簿，然后像在活动工作簿中一样使用工作表。

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