Servus,
ich bin leider, was das Thema VBA angeht leider nicht so bewandert. Kurz erklärt. Ich will von einer Webseite Werte auslesen. Das Auslesen des Quellcodes funktioniert ohne Probleme. Jetzt will ich den Quellcode an eine Prozedur übergeben. Dabei erhalte ich ständig den Fehler "Ungültiger Bezeichner" mit dem Ausstiegspunkt bei der Prozedur, die aufgerufen werden Soll. Anbei mein Code:
Bei dem Aufruf der Prozedur "GetPolygon" kommt der Fehler.
ich bin leider, was das Thema VBA angeht leider nicht so bewandert. Kurz erklärt. Ich will von einer Webseite Werte auslesen. Das Auslesen des Quellcodes funktioniert ohne Probleme. Jetzt will ich den Quellcode an eine Prozedur übergeben. Dabei erhalte ich ständig den Fehler "Ungültiger Bezeichner" mit dem Ausstiegspunkt bei der Prozedur, die aufgerufen werden Soll. Anbei mein Code:
VB.NET-Quellcode
- Sub GetQuelltext()
- On Error GoTo Fehler
- Dim Quelltext As String
- Dim URL As String
- URL = "https://www.waermepumpe.de/normen-technik/klimakarte/"
- Set ie = CreateObject("internetexplorer.application")
- ie.navigate URL
- ie.Visible = True
- Do While ie.busy: DoEvents: Loop
- Quelltext = ie.Document.DocumentElement.outerHTML
- Fehler:
- ie.Quit
- Set ie = Nothing
- GetPolygon Quelltext
- End Sub
- Sub GetPolygon(ByVal Quelltext As String)
- Dim Polygon() As String
- Dim i As Integer
- Polygon = Split(Quelltext, "<polygon ")
- For i = 1 To Polygon.Count - 1
- TextBox1.Text = Polygon(i) & vbNewLine
- Next
- End Sub
Bei dem Aufruf der Prozedur "GetPolygon" kommt der Fehler.