excel - スプレッドシートへの CSV インポートが QueryTables メソッドで失敗する

Question

CSV ファイルからデータをインポートする必要があります。以下のマクロを記録しましたが、変数「FileLoc」に含まれるファイルの場所を連結するように「QueryTablesAdd」構造を修正しました。マクロは、.Refresh BackgroundQuery := false メソッドに遭遇するまで機能し、その時点で失敗します。その方法を実行すると、コードは実際に失敗することなく実行されます。問題は、実際にデータをインポートしないことです。

誰にも役立つヒントはありますか？

With ActiveSheet.QueryTables.Add(Connection:= _
    "TEXT;" & FileLoc & Chr(34), Destination:=Range("$A$1"))
    .Name = "CDSTATS"
    .FieldNames = True
    .RowNumbers = False
    .FillAdjacentFormulas = False
    .PreserveFormatting = True
    .RefreshOnFileOpen = False
    .RefreshStyle = xlInsertDeleteCells
    .SavePassword = False
    .SaveData = True
    .AdjustColumnWidth = True
    .RefreshPeriod = 0
   ' .TextFilePromptOnRefresh = False
    .TextFilePlatform = 850
    .TextFileStartRow = 1
    .TextFileParseType = xlDelimited
    .TextFileTextQualifier = xlTextQualifierDoubleQuote
    .TextFileCommaDelimiter = True
    .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 4, 1, 1, 1, 1, 1, 4, 1, 1, 1, 1)
    .TextFileTrailingMinusNumbers = True
    .Refresh BackgroundQuery:=False
End With