Thema Datum  Von Nutzer Rating
Antwort
27.01.2021 11:43:30 Peter Born
NotSolved
Blau Daten mit VBA mit dem Befehl getelements... scrapen
 27.01.2021 14:48:08 Gast45074
NotSolved
27.01.2021 14:53:33 Gast45074
NotSolved

Ansicht des Beitrags:
Von:
Gast45074		 Datum:
27.01.2021 14:48:08		 Views:
458		 Rating:
     
Antwort:
  Ja
Thema:
Daten mit VBA mit dem Befehl getelements... scrapen		 
Option Explicit

Public Sub Test()
  
  Dim xml As Object
  Dim url As String
  Dim track_len As Variant
  
  url = "https://brouter.de/brouter?lonlats=8.036504,47.81276|8.068257,47.797069&profile=hiking-beta&alternativeidx=0&format=geoxml"
  
  With CreateObject("MSXML2.XMLHTTP")
    Call .Open("GET", url, False)
    Call .Send
    Set xml = CreateObject("MSXML2.DOMDocument")
    If xml.LoadXML(.responseText) Then
      With xml.SelectSingleNode("/comment()")
        track_len = .NodeValue 'liefert den Inhalt eines <!-- XML Kommentar -->
      End With
    End If
  End With
  
  If Not IsEmpty(track_len) Then
    With CreateObject("VBScript.RegExp")
      .IgnoreCase = True
      .Pattern = "track-length\s*=\s*(\d+)\s"
      With .Execute(track_len)
        If .Count > 0 Then
          track_len = .Item(0).SubMatches(0)
          Call MsgBox(track_len & " Meter", vbInformation, "Entfernung")
        Else
          Call MsgBox("Es wurde keine Angabe zur Entfernung gefunden.", vbExclamation, "Entfernung")
        End If
      End With
    End With
  End If

End Sub

Macht Gebrauch vom Backend der Seite - kannst testweise den Link aus dem Makro über den Browser aufrufen.

 

Grüße

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
27.01.2021 11:43:30 Peter Born
NotSolved
Blau Daten mit VBA mit dem Befehl getelements... scrapen
 27.01.2021 14:48:08 Gast45074
NotSolved
27.01.2021 14:53:33 Gast45074
NotSolved