Question

我有一个关于如何使用Visual Basic宏检索Microsoft Excel中最终URL内容的问题。

基本上，我有一个充满URL的列表（ListA）。我编写了代码，用于逐个遍历列表A上的每个URL，并检索我需要的数据，并将其放入Excel中。

但是，某些百分比的网址会重定向到404页面。我目前没有任何方法可以提前了解这些内容，并且我正在尝试编写一个简单的脚本：

1。）访问ListA中的URL

2。）复制重定向到的目标网址

3.）将该URL粘贴到原始URL右侧的单元格中

通过这种方式，我可以看到最终的URL是什么，如果有任何进入404页面的话，我可以在尝试根据我需要的信息进行搜索之前将其从列表中删除。

到目前为止，我没有运气，我在网上找到的每个教程似乎都具有在Microsoft Excel的有限环境下无法运行的代码。有谁知道我应该从哪里开始？

如果有帮助，这里是我编写的用于搜索数据网页的代码：

For i = 1 To 500
    ThisURL = "URL;" & WSD.Cells(i, 2)
    ThisParcel = "P" & WSD.Cells(i, 1)
    Set WSW = Worksheets.Add(After:=Worksheets(Worksheets.Count))
    WSW.Name = ThisParcel
    WSW.Select

    ' Do a web query here
With ActiveSheet.QueryTables.Add(Connection:= ThisURL, Destination:=Range("$A$1"))
    .Name = "Query" & i
    .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
End With

Next i

在Microsoft Excel Visual Basic

0 个答案: