Excel VBA QueryTables 保留超链接

Question

I use QueryTables quite a lot in VBA to scrape data from webpages. I wondered if there was a way to preserve the hyperlinks that the webpage the query is pulling data from has.

Here is an example Query:

With ActiveSheet.QueryTables.Add(Connection:= _
 "URL;http://dom.com/table, Destination:=Range("$A$1"))
 .Name = "table"
 .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 = xlWebFormattingRTF
 .WebTables = """datatable"""
 .WebPreFormattedTextToColumns = True
 .WebConsecutiveDelimitersAsOne = True
 .WebSingleBlockTextImport = False
 .WebDisableDateRecognition = False
 .WebDisableRedirections = False
 .Refresh BackgroundQuery:=False
End With

Answer 1

The trick was changing .WebFormatting = xlWebFormattingRTF to .WebFormatting = xlWebFormattingAll

Additional Resources:

https://docs.microsoft.com/en-us/office/vba/api/excel.querytable.webformatting https://docs.microsoft.com/en-us/office/vba/api/excel.xlwebformatting

Name              Value Description
xlWebFormattingAll  1   All formatting is imported.
xlWebFormattingNone 3   No formatting is imported.
xlWebFormattingRTF  2   Rich Text Format - compatible formatting is imported.