Hallo,

ich versuche schon seit Tagen von meiner Internetseite den Text auszulesen und in Excel zu kopieren. Irgendwie klapt das aber nicht.
Die Internetseite gibt den Text in zwei Formen aus.

24.02.2022
aktiv
25.03.2022
Ja
Ja
Ja
Ja
Ja
Ja
Ja

oder:

Fehler

bisher habe ich folgendes getestet aber ohne Erfolg. Ich bin erst am Anfang meiner VBA Kenntnise finde aber leider keine Lösung.

 

Private Sub ImportHTMLFile()
    Dim browser As Object
    Dim LZKurl As String
    Dim fso As Object
    
    LZKname = Range("B5").Value
    LZKversion = Range("B3").Value
    LZKlizenzkey = Range("B2").Value
    
    LZKurl = "http://lzk.fit4rescue.de/lizenzmanager.php?name=" & LZKname & "&version=" & LZKversion & "&lizenzkey=" & LZKlizenzkey & "&test=ja"
          
    Set browser = CreateObject("internetexplorer.application")
    browser.Visible = False
    browser.navigate LZKurl
     
    Set fso = browser.document.getElementsByTagName("")
          
    Worksheets("Lizenz").Range("I2").Value = fso.OpenTextfile(LZKurl, 1).ReadAll()
    
    browser.Quit
    Set browser = Nothing
    Set fso = Nothing

End Sub

Vielleicht hat ja jemand von euch einen Tipp oder eine Lösung wie ich dieses lösen kann.

Beste Grüße Markus