CSVファイルとして2回目に保存するとExcelがクラッシュする

Question

初めてコードを実行すると、既存のドキュメントが置き換えられ、問題なくCSVファイルが保存されます。しかし、コードを2回実行すると、CSVを保存するとExcelがクラッシュします。

私はExcelをはじめて開くコードを実行した後、回避策がありますが、時間がかかりすぎますか、アイデアはありますか？

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

あなたは「CSV」ファイルとしてSheets("input11")を保存しようとしている場合は、すべてを行う必要がある：

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