VBA-Forum - Das Forum zu Microsoft VBA

VBA Excel VBA Word VBA Access VBA VBScript VB C# Objective-C C++ SQL JAVA VBA (English) Jobs Übersicht

Thema	Datum	Von Nutzer	Rating	Antwort
Text aus Internetseite auslesen und in Excel kopieren	24.02.2022 15:53:06	Markus
Text aus Internetseite auslesen und in Excel kopieren	24.02.2022 16:09:51	Gast70632
Text aus Internetseite auslesen und in Excel kopieren	24.02.2022 16:27:40	Markus
Text aus Internetseite auslesen und in Excel kopieren	24.02.2022 16:37:00	Gast14946
Internet Explorer war vorgestern... QnD	24.02.2022 18:00:27	Mase
Internet Explorer war vorgestern... QnD	28.02.2022 21:24:50	Markus

Ansicht des Beitrags:

Von:
Markus

Datum:
24.02.2022 15:53:06

Views:
936

Rating:

Antwort:

Thema:
Text aus Internetseite auslesen und in Excel kopieren

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

Ihre Antwort

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema:		Name:		Email:

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema	Datum	Von Nutzer	Rating	Antwort
Text aus Internetseite auslesen und in Excel kopieren	24.02.2022 15:53:06	Markus
Text aus Internetseite auslesen und in Excel kopieren	24.02.2022 16:09:51	Gast70632
Text aus Internetseite auslesen und in Excel kopieren	24.02.2022 16:27:40	Markus
Text aus Internetseite auslesen und in Excel kopieren	24.02.2022 16:37:00	Gast14946
Internet Explorer war vorgestern... QnD	24.02.2022 18:00:27	Mase
Internet Explorer war vorgestern... QnD	28.02.2022 21:24:50	Markus