ich versuche derzeit im Rahmen einer wiss. Studie einige Daten aus (lizensierten)Zeitungsarchiven auszulesen und in Excel auszuwerten. Ich habe mir dafür auf Grundlage unterschiedlicher Foren ein Script zusammengefügt, dass für meine Zwecke funktioniert. Habe nun folgendes Problem:
Ich möchte von einer Website (quelltext Auszug unten) dafür "txt1 signature", "txt3" sowie "txt4_120" in einer Tabelle in Excel auslesen lassen. Für die beiden erstgenannten Objekte funktioniert das mit dem unten stehenden script auch gut. Ich bekomme es aber nicht hin, "txt4_120" auszulesen. Hier bräuchte ich vor allem den dazugehörigen Text, also im unten stehenden Bsp. "En Egypte, des textos pour aider les malades du diabète pendant le ramadan".
Hier der Auszug aus dem auszulesenden html Code:
und hier mein Script dafür - das Problem liegt in Spalte 2 - ich denke ich spreche den falschen _
Objekttyp an, weiß aber nicht wie es anders geht.
Sub b()
Dim IEApp As Object, all As Object
Dim zeile As Long, spalte As Integer
Dim URL As String
Dim erg As Long
zeile = ActiveCell.Row
spalte = 1
URL = (InputBox("url:", "Url eingeben"))
Set IEApp = CreateObject("InternetExplorer.Application")
IEApp.Visible = False
IEApp.Navigate URL 'anpassen
Do: Loop Until IEApp.Busy = False
Do: Loop Until IEApp.Busy = False
Do: Loop Until IEApp.document.ReadyState = "complete"
For Each all In IEApp.document.all
spalte = 1 ' ## Quelle und Datum
If all.classname Like "txt1 signature" And all.nodename = "SPAN" Then
Tabelle1.Cells(zeile, spalte) = all.innertext
zeile = zeile + 1
End If
spalte = 2 ' ## Titel
If all.classname Like "txt4_120 " And all.nodename = "SPAN" Then
Tabelle1.Cells(zeile, spalte) = all.innertext
End If
spalte = 3 ' ## Text
If all.classname Like "txt3" Then
Tabelle1.Cells(zeile, spalte) = all.innertext
End If
Next
IEApp.Quit
Set IEApp = Nothing
MsgBox "Fertig"
End Sub
Vielen Dank für Hilfe!