Daten per VBA aus IE auslesen

Guten Morgen,
ich habe folgenden Codeauszug mit dem ich Daten aus dem IE auslese:


Set c = Doc.getElementsByClassName("content-text")
Dim t, s, h As HTMLObjectElement
For Each t In c
For Each s In t.Children
If s.className = "freespace events_headline" Then
Cells(actRow, 1) = s.innerText
ElseIf s.className = "freespace float-left eventdate eventdate_left" Then
Cells(actRow, 2) = s.innerText
ElseIf s.className = "float-left showDateLink" Then
Cells(actRow, 6) = s.innerText
ElseIf s.className = "events_content" Then
For Each h In s.Children
If h.className = "events-kurztext" Then
Cells(actRow, 3) = h.innerText
ElseIf h.className = "events-veranstalter" Then
Cells(actRow, 5) = h.innerText
ElseIf h.className = "events-ort" Then
Cells(actRow, 4) = h.innerText
End If
Next h
'Cells(actRow, 3) = t.Children.Item(rc).innerText
'MsgBox t.Children.Item(rc).innerText
ElseIf s.className = "events-trenner" Then
actRow = actRow + 1
End If
Next s
Next t
NextUrl = ""
IE.Quit
Next
IE.Quit

Hier nehme ich zb. die class: "events-kurztext" und hier den innerText! Ich brauche aber jetzt zusätzlich noch den Link (Href) dazu!
Wie mache ich das?


div class="events-kurztext">Die Freiwilligen veranstalten die Wies'n.
NÃ¤here Angaben zu der Veranstaltung erfolgen zu einem spÃ¤teren Zeitpunkt.
a href="/events/detail.php?eventid=666&keepmenu=0&menuid=5&topmenu=3" _
tabindex="55" title="">... mehr

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo snewi,
da hast Du Dir ja ein Höllenkonstrukt gebastelt ;-) Du kannst Links über getAttribute auslesen. Dazu musst Du über getElementsByTagName("a") nur auf das richtige a-Tag zugreifen. Da Du in Deiner Variablen h bereits den richtigen Teil des HTML Document 'ausgeschnitten' hast, müsste es direkt das erste a-Tag sein. getElementsByTagName baut ein Null-basiertes Array auf. Deshalb müsstest Du mit folgender Zeile an den Link kommen:


Cells(actRow, ?) = h.getElementsByTagName("a")(0).getAttribute("href")

Für ? die richtige Spaltennummer eintragen. Ich hoffe man kann so direkt auf das Attribut zugreifen. Habe ich jetzt nicht getestet. Ansosnten musst Du es auf 2 Zeilen aufteilen. Bitte bedenke, dass diese Zeile voraussetzt, dass ein Link vorhanden ist. Sollte das nicht der Fall sein, bricht das Makro mit einer Fehlermeldung ab.
Um den Fehler direkt abzufangen, kannst Du auch folgendes in Dein Makro einfügen:


Dim z as Object
set z = h.getElementsByTagName("a")(0)
if Not z is Nothing then
Cells(actRow, ?) = getAttribute("href")
end if

Viele Grüße,
Zwenn

Set c = Doc.getElementsByClassName("content-text") '.getElementsByTagName("a") Dim t, s, h As HTMLObjectElement For Each t In c For Each s In t.Children If s.className = "freespace events_headline" Then Cells(actRow, 1) = s.innerText ElseIf s.className = "freespace float-left eventdate eventdate_left" Then Cells(actRow, 2) = s.innerText ElseIf s.className = "float-left showDateLink" Then Cells(actRow, 6) = s.innerText ElseIf s.className = "events_content" Then For Each h In s.Children If h.className = "events-kurztext" Then Cells(actRow, 3) = h.innerText ElseIf h.className = "events-kurztext" Then Cells(actRow, 7) = h.getElementsByTagName("a").getAttribute("href") ElseIf h.className = "events-veranstalter" Then Cells(actRow, 5) = h.innerText ElseIf h.className = "events-ort" Then Cells(actRow, 4) = h.innerText End If Next h 'Cells(actRow, 3) = t.Children.Item(rc).innerText 'MsgBox t.Children.Item(rc).innerText ElseIf s.className = "events-trenner" Then actRow = actRow + 1 End If Next s Next t NextUrl = "" IE.Quit Next IE.Quit

For Each h In s.Children If h.className = "events-kurztext" Then Cells(actRow, 3) = h.innerText Cells(actRow, 7) = h.getElementsByTagName("a").getAttribute("href") ElseIf h.className = "events-veranstalter" Then Cells(actRow, 5) = h.innerText ElseIf h.className = "events-ort" Then Cells(actRow, 4) = h.innerText End If Next h

Beliebteste Forumthreads (12 Monate)

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

335 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Daten per VBA aus IE auslesen

17 Beiträge zum Forumthread Beiträge zu diesem Forumthread

335 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread