将Web查询导入excel

Question

我使用excel中的“从Web导入”选项从互联网导入的链接很少。一个特定链接导入完全不相关的信息（其屏幕截图附后）。我试图找到原因，但没有成功。我用来检索网页的代码如下所示

Worksheets("Sheet2").Range("A1").Select
With ActiveSheet.QueryTables.add(Connection:= _
    "URL;https://*link*, Destination:=Worksheets("Sheet2").Range("$A$1"))
    .name = "List_1,listview,1-2-3,,"
    .FieldNames = True
    .RowNumbers = False
    .FillAdjacentFormulas = False
    .PreserveFormatting = True
    .RefreshOnFileOpen = False
    .BackgroundQuery = True
    .RefreshStyle = xlInsertDeleteCells
    .SavePassword = False
    .SaveData = True
    .AdjustColumnWidth = True
    .RefreshPeriod = 0
    .WebSelectionType = xlEntirePage
    .WebFormatting = xlWebFormattingNone
    .WebPreFormattedTextToColumns = True
    .WebConsecutiveDelimitersAsOne = True
    .WebSingleBlockTextImport = False
    .WebDisableDateRecognition = False
    .WebDisableRedirections = False
    .Refresh BackgroundQuery:=False
    Application.Wait (Now + TimeValue("00:00:4"))
End With

所有链接都运行良好，但一个特定的链接开始失败。网站维护团队告诉我，他们已经更改了网站的代码以获得更好的性能。但我不知道为什么会失败。导入的数据如下所示。

如果有人能够深入了解这个问题并帮助我解决问题，我将非常感激。任何帮助将不胜感激。提前谢谢！