Question

所以我遇到了以下问题：我尝试创建一个将从一个网站获取数据的网页查询，但问题是当您第一次尝试访问该网页时，此网页会重定向到另一个网页。并且链接仅在第二次尝试时打开（没有重定向）。

我需要在代码中添加什么才能摆脱重定向问题？添加一个循环？

这是代码：

Sub Auto_open()

Dim newcon as String

Cells.Select
Selection.QueryTable.Delete
Selection.ClearContents
Range("A1").Select
newcon = "an URL"

With ActiveSheet.QueryTables.Add(Connection:="URL;" + newcon _
    , Destination:=Range("$A$1"))

    .FieldNames = True
    .RowNumbers = False
    .FillAdjacentFormulas = False
    .PreserveFormatting = True
    .RefreshOnFileOpen = False
    .BackgroundQuery = True
    .RefreshStyle = xlInsertDeleteCells
    .SavePassword = False
    .SaveData = True
    .AdjustColumnWidth = True
    .RefreshPeriod = 0
    .WebSelectionType = xlSpecifiedTables
    .WebFormatting = xlWebFormattingNone
    .WebTables = "2"
    .WebPreFormattedTextToColumns = True
    .WebConsecutiveDelimitersAsOne = True
    .WebSingleBlockTextImport = False
    .WebDisableDateRecognition = False
    .WebDisableRedirections = False
    .Refresh BackgroundQuery:=False

End With

End Sub

Answer 1

尝试禁用重定向

.WebDisableRedirections = True

如果这不起作用，请尝试在几秒钟后重新刷新查询

Application.Wait(Now + TimeValue("0:00:10")) .Refresh

如果这不起作用，我想考虑使用Web浏览器控件。

您能提供测试的网址链接吗？

EXCEL VBA - Webquery：网页重定向

1 个答案: