需要运行时1004错误帮助

Question

以下代码有什么问题？我收到运行时1004错误。

Sub Save_CSV()
'
' Save_CSV Macro
'

'
        Columns("A:K").Select
        Selection.Copy
        Workbooks.Add
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,     SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    ThisWorkbook.SaveAs Filename:= _
        "G:\Business & Facility\Finance\Finance Documents\Payroll Journal\EH Payroll Journal IMPORT.csv" _
        , FileFormat:=xlCSV, CreateBackup:=False
    Windows("EH Payroll Journal TEMPLATE Xero.xlsm").Activate
End Sub

Answer 1

假设ThisWorkbook是＆＃34; EH薪资期刊TEMPLATE Xero.xlsm＆＃34;，那么一旦完成ThisWorkbook.SaveAs，您将无法再激活包含它的窗口，因为您已将其保存为＆＃34; EH Payroll Journal IMPORT.csv＆＃34;。

您可能希望改为ActiveWorkbook.SaveAs，以保存您复制数据的新添加的工作簿。