Excel VBA: ActiveWorkbook не меняется, когда я открываю новую книгу

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)