Sportdatenakquise aus Datenbank mittels VBA

Hallo in die Runde,
ich bin neu in der VBA-Welt und hänge derzeit an einem Freizeitprojekt. Hierfür möchte ich die Geburts- und Sterbedaten von Athleten der Olympischen Spiele aus einer Online-Datenbank lesen. Als Datenquelle dient der auf der entsprechenden Website hinterlegte HTML-Code. Diesen lege ich aktuell in einer Variablen ab, um ihn darauffolgend in Excel einzufügen. Exakt hier liegt der Hund begraben:
Sobald ich den Code in eine spezifische Zelle ablege, wird er lediglich in dieser Zelle eingefügt. Ich würde ihn für weitere Auswertungen allerdings äquivalent zur Formatierung in HTML in Zeilen aufgeteilt benötigen. Hierzu bin ich bereits den Zwischenschritt gegangen und habe den HTML-Code in einer Textdatei abgelegt, um ihn von dort wieder in Excel einzukopieren. Händisch funktioniert dies optimal, aufgrund des Befehls "Als Text einfügen". Allerdings lässt sich dies scheinbar nicht in VBA umsetzen, da die Textdatei zumindest laut dem Makrorekorder nicht angesprochen werden kann.
Da ich jetzt mit meinem Latein am Ende angekommen bin, würde ich mich über jede Hilfe freuen. Präventiv habe ich die angesprochene Datei bereits auf dem Server abgelegt.
https://www.herber.de/bbs/user/129304.xlsm

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Lou,
das Geburt- bzw. Sterbe-Datum kannst du so auslesen.

Sub GeburtsUndSterbedaten()
    Dim appIE As Object
    Dim sURL As String, strBirth As String, strDeath As String
    Dim datBirth As Date, datDeath As Date
    
    'Automatisches Herauslesen der generierten URL 
   
    'URL-Angabe 
   
    sURL = "https://www.sports-reference.com/olympics/athletes/re/ossi-reichert-1.html"
   
    'Öffnen des Internet-Explorers 
    
    Set appIE = CreateObject("InternetExplorer.Application")
    appIE.Navigate sURL
    Do: Loop Until appIE.Busy = False
   
    'Abgreifen des kompletten HTML-Codes 
    
    On Error Resume Next
    strBirth = appIE.Document.getelementbyid("necro-birth").outerhtml
    datBirth = CDate(Mid(strBirth, InStr(1, strBirth, "data-birth=") + 12, 10))
    strDeath = appIE.Document.getelementbyid("necro-death").outerhtml
    datDeath = CDate(Mid(strDeath, InStr(1, strDeath, "data-death=") + 12, 10))
    Err.Clear
    On Error GoTo 0
    
    
    'Einfügen des HTML-Codes in Excel 
' 
'    Workbooks("Olympische_Spiele_Geburts_und_Sterbedaten_2.xlsm").Activate 
'    Worksheets("Tabelle3").Activate 
' 
'    Cells(1, 1) = sTxt 
' 
    'Herauslesen des Geburtsdatums 
    
    'Ablegen des Geburtsjahres 
    
    'Herauslesen des Sterbedatums, wenn vorhanden 
    
    'Vergleich Geburtsjahr Datenbank mit Geburtsjahr HTML 
    
        'Wenn =, dann Geburtsdatum = Geburtsdatum 
        
            'Wenn Sterbedatum vorhanden, dann Sterbedatum 
    
End Sub

VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

Beliebteste Forumthreads (12 Monate)

Sportdatenakquise aus Datenbank mittels VBA

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Sportdatenakquise aus Datenbank mittels VBA

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread