將 Xlsm 文件另存為 xlsx

Question

我想將當前的 xlsm 文件保存為 xlsx，所以我編寫了如下代碼。 這段代碼確實完成了它的工作，我能夠看到文件保存為 Myfile.xlsx 作為我在代碼中定義的內容，但是有一些小問題，vba 總是將文件保存到另一個文件中作為 bookx.xlsx 旁邊的我的文件.xlsx。 我怎樣才能避免這種情況？

Sub saveAsXlsx()
Dim myPath As String
myPath = Application.ActiveWorkbook.Path
Worksheets(Array("sheet1", "sheet2")).Copy
ActiveWorkbook.SaveCopyAs Filename:=myPath & "\Myfile.xlsx" 
End Sub

Answer 1

這將避免額外的副本：

Sub saveAsXlsx()
    Dim myPath As String
    myPath = Application.ActiveWorkbook.Path
    Worksheets(Array("sheet1", "sheet2")).Copy
    ActiveWorkbook.SaveAs Filename:=myPath & "\Myfile.xlsx"
    ActiveWorkbook.Close
End Sub

這使用SaveAs而不是SaveCopyAs，因為您已經創建了第一個副本。