런타임 1004 오류 지원이 필요합니다.

아래 코드의 문제점은 무엇입니까? 런타임 1004 오류가 나타납니다. ThisWorkbook 가정런타임 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

출처

2017-03-07 Iona

1004 오류가 발생한 행이 명확하지 않습니다. 하지만, 당신이 그 오류 및 다른 사람을 피하는 데 도움이됩니다 해결할 수있는 코드에서 명백한 몇 가지가 있습니다 ... [이] (읽기 http://stackoverflow.com/documentation/excel-vba/1107/vba- 베스트 프랙티스/9292/피할 사용 선택 또는 활성화 # t = 201703070253108353635) 및 [this] (http://stackoverflow.com/documentation/excel-vba/1107/vba-best-practices/11274/always -define-and-set-references-to-all-workbooks-and-sheets # t = 201703070253108353635). – PeterT

는 EH 급여 저널 "로 저장했기 때문에, (가) ThisWorkbook.SaveAs 당신이 더 이상을 포함하는 창을 활성화 할 수 없습니다 수행 한 후 한 번,"EH 급여 저널 TEMPLATE Xero.xlsm "입니다 IMPORT.csv ".

데이터를 복사 한 새로 추가 된 통합 문서를 저장하려면 ActiveWorkbook.SaveAs을 대신 수행해야 할 수 있습니다.

출처

2017-03-07 03:44:41 YowE3K

런타임 1004 오류 지원이 필요합니다.

답변

관련 문제