VBA更改活动工作簿

我有一个电子表格,在VBA中打开其他电子表格,并暂时将其设置为活动worksheet

但是,我有一个循环,在第一次迭代结束时,我需要将活动工作表设置为启动VBA模块的原始工作表。 我不能设置一个新的Workbook对象来打开原件,因为原件仍然在后台打开,它说已经打开。

我的问题是,我需要将活动Workbook更改为原始Workbook ,当我从来没有一个工作簿对象引用它?

 '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 

使用ThisWorkbook将参考保存代码的原始工作簿。

或者在代码开始

 Dim Wb As Workbook Set Wb = ActiveWorkbook 

在返回到ThisWorkbook之前激活所有打开的书籍的示例代码

 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