두 번째로 CSV 파일로 저장하면 Excel이 작동을 멈 춥니 다.

Question

코드를 처음 실행하면 기존 문서가 바뀌고 CSV 파일이 문제없이 저장됩니다. 하지만 코드를 두 번째 실행하면 CSV를 저장할 때 Excel이 다운됩니다.

Excel을 처음 다시 실행하기위한 코드를 실행 한 후에도 해결 방법이 있지만 시간이 오래 걸리나요? 당신이 "CSV"파일로 Sheets("input11")을 저장하려는 경우

Sub copiar_ayuda1() 
    Application.DisplayAlerts = False 
    With Sheets("input11") 
    .Select 
    .Move 
    End With 
    PathName = "" & ThisWorkbook.Path & "os.csv" 

    ActiveWorkbook.SaveAs Filename:=PathName, FileFormat:=xlCSV, CreateBackup:=False 

    Application.CutCopyMode = False 
    ActiveWorkbook.Saved = True 
    ActiveWorkbook.Close 

End Sub 

Answer 1

, 당신이 할 필요가있다 :

Option Explicit 

Sub copiar_ayuda1() 

Dim PathName As String 
Dim Sht As Worksheet 

Application.DisplayAlerts = False 

PathName = ThisWorkbook.Path & "\os.csv" 

Set Sht = ThisWorkbook.Worksheets("input11") 
With Sht 
    .SaveAs Filename:=PathName, _ 
    FileFormat:=xlCSV, CreateBackup:=False 
End With 

Application.CutCopyMode = False 

End Sub 

정확히 당신이 뭘 하려는지