Extraire des données d'une page Web, y compris HYPERLINKS - utiliser VBA

Question

J'ai extrait toutes les données requises d'une page Web. Maintenant, le problème est que si la page contient un lien hypertexte alors je dois aussi extraire les données avec ces hyperliens. J'ai joint le code pour lequel les données sont extraites.

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 

`

Je joins également l'instantané de la webquerytable.

Dans ce que je dois copier et coller le # CN à la cellule souhaitée, y compris lien hypertexte.

Answer 1

Pouvez-vous simplement allumer l'enregistreur Macro et cliquer sur les étapes à effectuer? Je pense que c'est votre meilleur pari. Cela ne semble pas être une URL à laquelle Tom, Dick et harry peuvent accéder. Bonne chance.