vba - Excel VBA : ActiveWorkbook not changing when I open a new Workbook

Question

这是应该发挥作用的一小段代码:

Workbooks.Open (MPPGLoc)

ActiveWorkbook.Sheets("MPPG").Activate

ActiveSheet.Move Before:=Workbooks("DPV Acq Test.xlsm").Sheets(1)

我让用户输入付款计划的文件位置，然后应该转到计划中的正确工作表并尝试将其复制到自动执行所有操作的不同工作簿中。但是，这只会将原始工作簿中的一个工作表移动到其他工作表的前面。

不确定问题是否是因为打开工作簿不一定会使其处于事件状态，或者是我的移动功能有问题。任何帮助表示赞赏，谢谢。

Answer 1

因此你应该避免使用 Activeworkbook使用对象。

请参阅此示例( 未经测试 )

Dim wb As worksbook, wbNew As Workbook
Dim wsNew As Worksheet

'~~> I am assuming that you are running the code from
'~~> Workbooks("DPV Acq Test.xlsm") 
Set wb = ThisWorkbook

Set wbNew = Workbooks.Open(MPPGLoc)
Set wsNew = wbNew.Sheets("MPPG")

wsNew.Move Before:=wb.Sheets(1)