Wer kann mir helfen?
Danke!
Dagi
Sub KursHolen()
Dim browser As Object 'Aufnehmen der verwendeten Instanz des Browsers (Internet Explorer)
Dim knotenAst As Object 'Aufnehmen einer HTML Struktur aus dem Browser Dokument
Dim knoten As Object 'Aufnehmen einer HTML Unter-Struktur aus knotenAst
Dim kursCSS As String 'Für den Namen der CSS Klasse, mit der der Kurs formatiert ist
Dim url As String 'Aufnehmen der auszulesenden Adresse
'Zur besseren Übersicht werden hier längere Strings in Variablen geschrieben
kursCSS = "col-xs-5 col-sm-4 text-sm-right text-nowrap"
url = "Hier die Adresse der Internetseite, von der der Kurs geholt werden soll"
'Aufrufen der Seite im Internet Explorer
Set browser = CreateObject("internetexplorer.application")
browser.Visible = False
browser.navigate url
Do Until browser.readyState = 4: DoEvents: Loop
'Versuchen das HTML Element in knotenAst zu übernehmen,welches den Kurs enthält
Set knotenAst = browser.document.getElementsByClassName(kursCSS)(0)
'Wenn das funktioniert hat ...
If Not knotenAst Is Nothing Then
'Versuchen den 1 Div-Tag aus knotenAst in knoten zu übernehmen
Set knoten = knotenAst.getElementsByTagName("div")(0)
'Wenn das funktioniert hat ...
If Not knoten Is Nothing Then
'Kurs in einer Message Box ausgeben
MsgBox knotenAst.innerText
End If
End If
'Aufräumen
browser.Quit
Set browser = Nothing
Set knotenAst = Nothing
Set knoten = Nothing
End Sub