使用VBA从网页中提取数据，包括HYPERLINKS

Question

我从网页中提取了所有必需的数据。现在的问题是，如果页面包含任何超链接，那么我也必须使用该超链接提取数据。我已经附加了提取数据的代码。

With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://sienna/VBGSIWeb/Production/ItemStatus.aspx?item=" & PN, _
        Destination:=Range("$N$1"))
        .Name = "ItemStatus.aspx?item=BC-00003"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlOverwriteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = False
        .RefreshPeriod = 0
        .WebSelectionType = xlSpecifiedTables
        .WebFormatting = xlWebFormattingNone
        .WebTables = """gvSAPRevHistory"""
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With

`

我还附上了webquerytable的快照。

在此我必须将CN＃复制并粘贴到所需的单元格，包括超链接。

Answer 1

您是否可以打开宏录制器并单击需要执行的步骤？我认为这是你最好的选择。这似乎不是任何Tom，Dick和Harry可以访问的URL。祝你好运。