從網頁中提取數據，包括HYPERLINKS - 使用VBA

我已經從網頁中提取了所有需要的數據。現在的問題是，如果頁面包含任何超鏈接，那麼我必須使用該超鏈接提取數據。我附加了提取數據的代碼。從網頁中提取數據，包括HYPERLINKS - 使用VBA

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的快照。