既存のシートを置き換えるワークブックにCSVをロードするにはどうすればよいですか？

Question

私はCSVファイルを「チケット」と呼ばれる新しいシートとしてインポートする以下のマクロを持っています。このファイルが存在すると、ランタイムエラーが発生します。すでに存在する場合は、既存のファイルを上書きする方法はありますか？

Sub GetCSVList() 
Dim dlgOpen As FileDialog 
Set dlgOpen = Application.FileDialog(msoFileDialogFilePicker) 
With dlgOpen 
    .AllowMultiSelect = False 
    ''Start in 
    .InitialFileName = "C:\test" 
    .Show 
End With 

For Each fname In dlgOpen.SelectedItems 
    ImportCSV fname 
Next 
End Sub 

---

Sub ImportCSV(fname) 
Set ws = Worksheets.Add(after:=Worksheets(Worksheets.Count)) 
ws.Name = "Tickets" 


With ws.QueryTables.Add(_ 
     Connection:="TEXT;" & fname, _ 
     Destination:=Range("A1")) 
    .Name = "Test" & Worksheets.Count + 1 
    .FieldNames = True 
    .RowNumbers = False 
    .FillAdjacentFormulas = False 
    .PreserveFormatting = True 
    .RefreshOnFileOpen = False 
    .BackgroundQuery = True 
    .RefreshStyle = xlInsertDeleteCells 
    .SavePassword = False 
    .SaveData = True 
    .AdjustColumnWidth = True 
    .TextFilePromptOnRefresh = False 
    .TextFilePlatform = 65001 
    .TextFileStartRow = 1 
    .TextFileParseType = xlDelimited 
    .TextFileTextQualifier = xlTextQualifierDoubleQuote 
    .TextFileConsecutiveDelimiter = False 
    .TextFileTabDelimiter = False 
    .TextFileSemicolonDelimiter = False 
    .TextFileCommaDelimiter = True 
    .TextFileSpaceDelimiter = False 
    .Refresh BackgroundQuery:=False 
    '.UseListObject = False 
End With 
End Sub 

Answer 1

最後に新しいワークシートを追加した後、「チケット」に新しいワークシートの名前を変更する前に、「チケット」という名前の既存のワークシートを削除しよう：

Application.DisplayAlerts = False 
On Error Resume Next 
Worksheets("Tickets").Delete 
On Error GoTo 0 
Application.DisplayAlerts = True 

オンError Resume Nextは、「Tickets」という名前の既存のワークシートがない場合に発生するエラーを無視します。これは少し怠惰ですが、それはWorksheet.Deleteメソッドから発生する唯一のエラーで、離れてしまうことができます。

プログラミングで他の種類のエラーを無視するだけで、 "On Error Resume Next"を表示しないでください！