Hi Ich möchte VBA verwenden, um Daten von der Wetterwebsite abzurufen. Ich versuche, Nummer 6 aus diesem HTML-Code zu erhalten:

                </tr>
                <tr>
                <td class="indent"><span>Temperatura średnia</span></td>
                <td>
          <span class="wx-data"><span class="wx-value">6</span><span class="wx-unit">&nbsp;&#176; C</span></span>
    </td>
            <td>
      -
    </td>
        <td>&nbsp;</td>
        </tr>
        <tr>
        <td class="indent"><span>Temperatura maksymalna</span></td>
        <td>
  <span class="wx-data"><span class="wx-value">7</span><span class="wx-unit">&nbsp;&#176; C</span></span>
</td>
        <td>
  <span class="wx-data"><span class="wx-value">8</span><span class="wx-unit">&nbsp;&#176; C</span></span>
</td>

Ich habe folgenden Code ausprobiert:

Private Sub CommandButton1_Click()
    Dim IE As Object

    ' Create InternetExplorer Object
    Set IE = CreateObject("InternetExplorer.Application")

    ' You can uncoment Next line To see form results
    IE.Visible = False

    ' URL to get data from
    IE.Navigate "https://www.wunderground.com/history/airport/EPGD/2016/10/24/DailyHistory.html?req_city=Pruszcz%20Gdanski&req_statename=Polska&reqdb.zip=00000&reqdb.magic=86&reqdb.wmo=12140"

    ' Statusbar
    Application.StatusBar = "Loading, Please wait..."

    ' Wait while IE loading...
    Do While IE.Busy
        Application.Wait DateAdd("s", 1, Now)
    Loop

    Application.StatusBar = "Searching for value. Please wait..."

    Dim dd As String
    dd = IE.Document.getElementsByClassName("Temperatura średnia")(0).innerText

    MsgBox dd

    ' Show IE
    IE.Visible = True

    ' Clean up
    Set IE = Nothing

    Application.StatusBar = ""
End Sub

Ohne Ergebnis (der Code macht nichts). Ich werde mich über jede Hilfe freuen.