0

让我们以这段代码为例(在 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

但它不起作用有什么想法可以正确编写它吗?

4

2 回答 2

2

将工作簿应用于工作表:

my_file.Sheets("Sheet2").Range("A1").Select  
current_wb.Sheets("Sheet1").Range("B2").Select  
于 2013-05-29T00:19:38.093 回答
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
于 2013-05-28T22:47:32.543 回答