vba - Excel 宏可将工作表另存为启用宏的新工作簿

Question

到目前为止我有这个:

Sub new_book()

    Sheets(Array("Document Data", "Invoice data", "Summary", "Invoice")).Copy
    ActiveWorkbook.SaveAs Filename:=Range("D1") & Format(Date, "ddmmyyyy") & ".xlsx", FileFormat:=52

End Sub

但是，我收到运行时错误 1004，该错误突出显示了 ActiveWorkbook 行。究竟出了什么问题？感谢您抽出时间。

Answer 1

您的Workbook.SaveAs method正在使用正确的 FileFormat 参数 ( xlOpenXMLWorkbookMacroEnabled = 52)，但您莫名其妙地尝试使用硬编码的 .xlsx 文件扩展名而不是 .xlsm 文件扩展名附加文件名。无论如何，如果您不提供正确的扩展名，将会添加它。

Sub new_book()

    Sheets(Array("Document Data", "Invoice data", "Summary", "Invoice")).Copy
    ActiveWorkbook.SaveAs Filename:=Range("D1") & Format(Date, "ddmmyyyy") , FileFormat:=52

End Sub

我对在不指定父工作表的情况下使用 Range("D1") 感到有点不舒服。请务必小心，不要尝试在文件名中使用受限制的字符。