Sub Aufruf Ungültiger Bezeichner- Fehler

  • Excel

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von trix0.

    Sub Aufruf Ungültiger Bezeichner- Fehler

    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:

    VB.NET-Quellcode

    1. ​Sub GetQuelltext()
    2. On Error GoTo Fehler
    3. Dim Quelltext As String
    4. Dim URL As String
    5. URL = "https://www.waermepumpe.de/normen-technik/klimakarte/"
    6. Set ie = CreateObject("internetexplorer.application")
    7. ie.navigate URL
    8. ie.Visible = True
    9. Do While ie.busy: DoEvents: Loop
    11. Quelltext = ie.Document.DocumentElement.outerHTML
    12. Fehler:
    13. ie.Quit
    15. Set ie = Nothing
    17. GetPolygon Quelltext
    19. End Sub
    21. Sub GetPolygon(ByVal Quelltext As String)
    23. Dim Polygon() As String
    24. Dim i As Integer
    26. Polygon = Split(Quelltext, "<polygon ")
    28. For i = 1 To Polygon.Count - 1
    29. TextBox1.Text = Polygon(i) & vbNewLine
    30. Next
    32. End Sub


    Bei dem Aufruf der Prozedur "GetPolygon" kommt der Fehler.

    Ich bekomme die genannte Fehlermeldung allerdings bei folgendem Ausdruck: Polygon.Count.

    Die ganze Zeile muss so heißen: For i = 0 To UBound(Polygon). Aber Achtung: wenn Polygon keine Elemente hat, also ein leeres Array ist, gibt UBound einen Fehler aus.

    Übrigens hast du die Variable ie nicht deklariert.
    Besucht auch mein anderes Forum:
    Das Amateurfilm-Forum

Facebook
Telefonspende