如何使用字符串调用工作簿和工作表

Question

这是一段代码示例。但是，每当我尝试在最后一行运行下标时，都会收到下标超出范围的错误。我正在尝试基于变量激活工作簿和工作表。该变量会更改for循环的每次迭代，因此我使该变量成为引用工作簿和工作表名称的字符串。如何组织我的最后一行工作？我已经尝试了一切，但仍然收到错误消息。

Dim A As Excel.Workbook
Dim B As Excel.Workbook
Dim C As Excel.Worksheet
Dim D As Excel.Worksheet

Set A = Excel.Workbooks("A1.xls")
Set B = Excel.Workbooks("B1.xls")
Set C = A.Worksheets("AA")
Set D = B.Worksheets("BB")

Dim FromBook As String
Dim FromSheet As String

A.Activate
FromBook = ActiveSheet.Range("A1")
FromSheet ActiveSheet.Range("B1")

Workbooks(FromBook).Sheets(FromSheet).Activate

同样，上面的行不断给我一个错误，因为对于for循环的每次迭代，我希望激活的工作表根据不同单元格中的值进行更改。但这不起作用。