Excel VBA：打开新工作簿时ActiveWorkbook不会更改

Question

Here is the small bit of code that should play a role:

Workbooks.Open (MPPGLoc)

ActiveWorkbook.Sheets("MPPG").Activate

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

I am having the user input the file location for a payment plan, then supposedly going to the correct sheet in the plan and trying to copy it into a different workbook which automates everything. However this keeps simply moving one of the worksheets in the original workbook in front of the other worksheets.

Not sure if the problem is because opening a workbook doesn't necessarily make it active, or a problem with my move function. Any help is appreciated, thanks.

Answer 1

And hence you should avoid using Activeworkbook Use Objects.

See this example ( Untested )

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)