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