Excel VBA：打開新工作簿時ActiveWorkbook不會更改

Question

以下是應發揮作用的少量代碼：

Workbooks.Open (MPPGLoc)

ActiveWorkbook.Sheets("MPPG").Activate

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

我讓用戶輸入付款計划的文件位置，然后假定要轉到計划中的正確工作表，然后嘗試將其復制到另一個可以自動完成所有工作的工作簿中。 但是，這只是將原始工作簿中的一個工作表移到其他工作表的前面。

不知道問題是因為打開工作簿不一定使它處於活動狀態，還是我的移動功能出現了問題。 任何幫助表示贊賞，謝謝。

Answer 1

因此，您應該避免使用Activeworkbook Use Objects。

看到這個例子（ 未經測試 ）

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)