Office: Alle HREFs auslesen mittels IEDocument.Links(i).href

Hallo Zusammen

Ich beziehe über eine IE Abfrage (Set IEApp = CreateObject("InternetExplorer.Application")) alle Links von einer Webseite.
Dies mache ich über IEDocument.Links(i).href.

Nur bekomme ich nun nur die Links, welche im HREF-Tag auch eine Domain, also eine vollständige Adresse enthalten. Wenn im HREF-Tag aber nur eine realtive Pfad-Angabe enthalten ist, werden diese mir nicht berücksichtigt.
Dies ist auch der Fall, wenn ich die Links mittels IEDocument.getElementsByTagName("a")(i).href beziehe.

Wie kann ich dies umgehen? Wie bekomme ich alle HREFs einer Seite?

Vielen Dank

:)

 

hi daki,

ich stelle jetzt mal die vermutung an, dass die relativen pfade in den 'Kind-Tags' des a-Tags stehen. da bräuchtest du eine rekursive schleife. also, prüfen, ob der a - tag noch kinder hat, wenn ja, diesen als parent deklarieren und die schleife von vorn beginnen...
bin mir jetzt aber nicht sicher, ob man in vba das DOM objektmodell anwenden kann. hab es in vba noch nie probiert...

a -tag musste ich deshalb schreiben, weil bei korrekter schreibweise mit größer/kleiner der rest des textes als a -tag interpretiert wird...*wink.gif*

 

HAllo Daki

Du kannst da außer href aber noch andere Eigenschaften auslesen.

Schau es dir mal an:
' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub start()
Dim dieLinks As Object
Dim einLink As Object
Dim IE As Object
Dim L As Long
DoEvents
Set IE = CreateObject("Internetexplorer.Application")
L = 0
With IE
.navigate "Beitragsliste des Excel-Forums"
Do While .busy
Do While .busy
Loop
Loop
Set dieLinks = IE.document.Links
For Each einLink In dieLinks
L = L + 1
Stop
'Schau dir jetzt im Lokalfenster die Eigenschaften von einLink an.
'Da gibt es so allerhand was du auswerten kannst.
Cells(L, 1) = einLink.href
Cells(L, 2) = "'" & einLink.outertext
Next
Set IE = Nothing
End With
End Sub


ransi

 

Hallo ihr beiden

Herzlichen Dank für eure Antworten. Ihr habt mir weitergeholfen *Smilie

Gruss