ランタイム1004のエラーアシスタンスが必要です

Question

以下のコードの問題点は何ですか？ランタイム1004エラーが表示されます。 ThisWorkbookと仮定すると

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

は、あなたが行われたらあなたはEH給与ジャーナル」としてそれを保存しているので、その後ThisWorkbook.SaveAsあなたはもはや、それを含むウィンドウをアクティブにすることができなくなり、「EH給与ジャーナルTEMPLATE Xero.xlsm」でありますIMPORT.csv "

代わりにActiveWorkbook.SaveAsを実行して、データをコピーした新しく追加したブックを保存することができます。