Workbook.close 不起作用

Question

試圖做一個保存和關閉宏。

它是一個包含宏 (xlsm) 的工作簿，我正在刪除宏並將其保存到另外 2 個不同的路徑中作為 xlsx。 我希望工作簿之后關閉，但它不起作用。

結果：1 xlsm，2 xlsx，保存后關閉。

Sub saveas()

*saves the workbook before removing macro
ThisWorkbook.Save

ActiveSheet.Shapes.Range(Array("Button 1")).Select
Selection.Delete

Worksheets(Array("Sheet1", "Sheet2", "Sheet3")).Copy
Application.DisplayAlerts = False
ActiveWorkbook.saveas Filename:="path1\list.xlsx"
ActiveWorkbook.saveas Filename:="path2\list.xlsx"

ActiveWorkbook.Close SaveChanges:=False


End Sub

先感謝您。

Answer 1

改變

ActiveWorkbook.Close SaveChanges:=False

到

ThisWorkbook.Close SaveChanges:=False

Activeworkbook 是指任何 Activeworkbook，但 Thisworkbook 以代碼所在的工作簿為目標。

Answer 2

現在開始工作了。 需要關閉復制工作簿和當前工作簿，我錯過了另一個關閉行。

Sub saveas()

*saves the workbook before removing marco
ThisWorkbook.Save

ActiveSheet.Shapes.Range(Array("Button 1")).Select
Selection.Delete

Worksheets(Array("Sheet1", "Sheet2", "Sheet3")).Copy
Application.DisplayAlerts = False
ActiveWorkbook.saveas Filename:="path1\list.xlsx"
ActiveWorkbook.saveas Filename:="path2\list.xlsx"
ActiveWorkbook.Close

ThisWorkbook.Close SaveChanges:=False


End Sub