Excel VBA更改活动工作簿

Excel VBA更改活动工作簿,excel,vba,Excel,Vba,我有一个电子表格,在VBA中,它会打开其他电子表格,并将其临时设置为活动的工作表 但是,我有一个循环,在第一次迭代结束时,我需要将活动工作表设置为启动VBA模块的原始工作表。我无法设置新的工作簿对象来打开原始文档,因为原始文档在后台仍处于打开状态,并且它表示已打开 我的问题是,我需要将活动的工作簿更改为原始工作簿,而我从未有工作簿对象引用它 'Original workbook is active implicitly 'loop begins 'change active workbook

我有一个电子表格,在VBA中,它会打开其他电子表格,并将其临时设置为活动的
工作表

但是,我有一个循环,在第一次迭代结束时,我需要将活动工作表设置为启动VBA模块的原始工作表。我无法设置新的
工作簿
对象来打开原始文档,因为原始文档在后台仍处于打开状态,并且它表示已打开

我的问题是,我需要将活动的
工作簿
更改为原始工作簿,而我从未有工作簿对象引用它

'Original workbook is active implicitly

'loop begins

'change active workbook to something else


'Need to change back to original workbook here- but don't have a VBA workbook object

'end of loop

使用此工作簿
,它将引用包含代码的原始工作簿

或者在代码开始时

Dim Wb As Workbook
Set Wb = ActiveWorkbook
返回此工作簿之前激活所有打开书籍的示例代码


您更改活动工作簿的原因是什么?在不更改活动状态的情况下,能否明确引用其他工作簿?
Sub Test()
Dim Wb As Workbook
Dim Wb2 As Workbook
Set Wb = ThisWorkbook
For Each Wb2 In Application.Workbooks
    Wb2.Activate
Next
Wb.Activate
End Sub