vendredi 26 mars 2021

Read values from graph on website using excel macro

I have a problem for which I can not find the solution on my own. I tried to read out the values from the following website: https://datawrapper.dwcdn.net/6E03v/580/. I think I have managed to find the corresponding part in the code of the website which is THIS ONE. As per my understanding the values can be found with tag "span" or class "fg", but none of them seems to work. This is the code I am using for it in the version I use tag "span":

Dim AusgelesenesDatum As String
Dim DatumAuslesen As Selenium.WebElement
Dim DatuemerAuslesen As Selenium.WebElements
Dim WertFG As Selenium.WebElement
Dim WerteFG As Selenium.WebElements
Dim strTargetTab As String
Dim lgNaechsteFreieZeileZwiSpTblFaelleNachAlter As Long
Dim lgSpalte As Long
Dim lgNaechsteFreieZeileReiterNTVCoronadaten As Long


'Wertzuweisung Variablen
    Set ChromeBrowser = New Selenium.ChromeDriver
    

'Chrome starten und auf die relevante Seite für die gesuchte TabelleCoronaVirusPandemieParameter gehen
    ChromeBrowser.Start baseUrl:="https://datawrapper.dwcdn.net/"
    ChromeBrowser.Get "/6E03v/577/"
    
    
'Werte auslesen
    strTargetTab = ThisWorkbook.Worksheets("ZwiSp Tbl Fälle nach Alter").Name
    ThisWorkbook.Worksheets(strTargetTab).Activate
    ThisWorkbook.Worksheets(strTargetTab).Range("A1:A50").ClearContents
    
    Application.Wait (Now + TimeValue("00:00:03"))


'Tabellenwerte auslesen
    Set WerteFG = ChromeBrowser.FindElementsByTag("span")
    lgNaechsteFreieZeileZwiSpTblFaelleNachAlter = ThisWorkbook.Worksheets(strTargetTab).Cells(Rows.Count, 1).End(xlUp).Row + 1
    lgSpalte = 1
        
        
    For Each WertFG In WerteFG
        ThisWorkbook.Worksheets(strTargetTab).Cells(lgNaechsteFreieZeileZwiSpTblFaelleNachAlter, lgSpalte).Value = WertFG.Text
        lgNaechsteFreieZeileZwiSpTblFaelleNachAlter = lgNaechsteFreieZeileZwiSpTblFaelleNachAlter + 1
    Next WertFG
        
        
    ChromeBrowser.Close

Does someone have an idea, why this does not work? Has it something to do with the fact, that the values on the graph are only shown when you hover above the corresponding part of the graph?

Thanks for your help! Oliver




Aucun commentaire:

Enregistrer un commentaire