ich muss in schöner Regelmäßigkeit Daten aus einer HTML Datei suchen, die mir ein Kollege übergibt. Die Daten stehen dabei jedesmal folgendermaßen in mehreren Tags im gleichen Dokument:
"[" & "]" sind ""
[td class="vs129"][strong] TEXT1 [/strong] TEXT2 [/td]
Wie kann ich diesen HTML-Tag via VBA direkt ansteuern und den TEXT1 jeweils in eine Zelle kopieren?
Ich habe mich bisschen erkundigt und bin soweit gekommen:
Option Explicit
Sub GetData()
Dim IEApp As Object, all As Object
Dim zeile As Long, spalte As Integer
zeile = 18
spalte = 1
Set IEApp = CreateObject("InternetExplorer.Application")
IEApp.Visible = True
IEApp.Navigate ("https://www.link.com/123") 'Daten Seite
Do: Loop Until IEApp.Busy = False
Do: Loop Until IEApp.Busy = False
Do: Loop Until IEApp.ReadyState = 4 'Geladen
For Each all In IEApp.Document.all
If all.classname = "vs129" And all.nodename = "td" Then
Tabelle1.Cells(zeile, spalte) = all.innertext
zeile = zeile + 1
End If
Next
IEApp.Quit()
IEApp = Nothing
MsgBox ("Fertig")
End Sub
Viele Grüße,
Franz