excel - クエリテーブルは機能していましたが、停止しました

Question

このコードは 1 週間前まで機能していましたが、スプレッドシートが変更されておらず、csv ファイルがインポートされていないことを高く評価して、何の助けにもなりませんでした。

ファイルインポートのエラーメッセージの下にコードをリストしました 1004 ファイルは存在しませんが、ファイルは正しいディレクトリにあります

Sub ImportCSV(SheetName As String, FiletoImport As String)

On Error GoTo errorhandler


Dim ws As Worksheet, strFile As String, msgtext As String, response

    Sheets(SheetName).Select
    Application.DisplayAlerts = False
    ActiveWindow.SelectedSheets.Delete
    Application.DisplayAlerts = True

CreateSheet:

    Sheets.Add After:=Sheets(Sheets.Count)
    ActiveWorkbook.ActiveSheet.Name = SheetName

Set ws = ActiveWorkbook.Sheets(SheetName)

On Error GoTo importerror

' strFile = Application.GetOpenFilename("Text Files (*.csv),*.csv", , "Please selec text file...")
 With ws.QueryTables.Add(Connection:="TEXT;" & FiletoImport, _
 Destination:=ws.Range("$A$1"))
     .TextFileParseType = xlDelimited
     .TextFileCommaDelimiter = True
 '    .Refresh
 End With

Select Case SheetName

    Case "POData"

            Call ProcessPOData

    Case "SOData"

        Call ProcessSOData
        Call DeleteRows

    Case "AvgSales"

        Call CreateAvgSales

End Select

Exit Sub

errorhandler:
    MsgBox Err & ": " & Error(Err)
    Resume CreateSheet

importerror:

MsgBox Err & ": " & Error(Err)
msgtext = "Failed to Import " & FiletoImport
response = MsgBox(msgtext, vbCritical, "Import File Failed")





 End Sub