Ошибка запроса Excel - VBA

Question

Я получаю ошибку во время выполнения по приведенному ниже коду.Я вроде новичок в использовании запросов в Excel VBA, и я не могу найти, где лежит ошибка.Я понимаю, что запрос выполняется в строке ".Refresh BackgroundQuery: = False" и что ошибка не обязательно из этой строки.Стремясь найти причину проблемы, я остановил код и открыл запрос, который пытался загрузить, и он выглядит правильно.Он захватил запрошенные мной данные, но по какой-то причине код не будет завершен.Может ли это быть несоответствие типа данных для запрашиваемых полей?

Ошибка времени выполнения 1004, ошибка приложения или объекта

Для интервала = LBound (AssociateList) К UBound (AssociateList)

ActiveWorkbook.Queries.Add Name:=AssociateList(Interval), Formula:= _
    "let" & Chr(13) & Chr(10) & "Source = Excel.Workbook(File.Contents(""C:\Users\...\Desktop\" & AssociateList(Interval) & " " & Month & ".xlsx""), null, true)," & Chr(13) & "" & Chr(10) & "All_Table = Source{[Item=""All"",Kind=""Table""]}[Data]," & Chr(13) & "" & Chr(10) & "    #""Changed Type"" = Table.TransformColumnTypes(All_Table,{{""LOAD_DATE"", type datetime}, {""CLNAME_S"", type text}, {""MEDIA" & _
    """, type text}, {""MOS"", type date}, {""TOTAL_INVOICED"", type number}, {""TOTAL_ORDERED"", type number}, {""TOTAL_CLEARED"", type number}, {""TOTAL_UNCLEARED"", type number}, {""TOTAL_BILLED_NET"", type number}, {""TOTAL_BILLABLE_NET"", type number}, {""OFFICE"", type text}, {""CLIENTCODE"", type text}, {""Key"", Int64.Type}, {""Standard Comment"", type text}, {""" & _
    "Additional Notes"", type text}})" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & "    #""Changed Type"""
Sheets.Add After:=ActiveSheet
ActiveSheet.Name = AssociateList(Interval)
With ActiveSheet.ListObjects.Add(SourceType:=0, Source:= _
    "OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=All", _
    Destination:=Range("$A$1")).QueryTable
    .CommandType = xlCmdSql
    .CommandText = Array("SELECT * FROM [All]")
    .RowNumbers = False
    .FillAdjacentFormulas = False
    .PreserveFormatting = True
    .RefreshOnFileOpen = False
    .BackgroundQuery = True
    .RefreshStyle = xlInsertDeleteCells
    .SavePassword = False
    .SaveData = True
    .AdjustColumnWidth = True
    .RefreshPeriod = 0
    .PreserveColumnInfo = True
    .ListObject.DisplayName = "Associate" & Interval
    .Refresh BackgroundQuery:=False
End With
Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False