Das Clever-Excel-Forum.de - Treffen
findet vom 15. - 17. September 2017 in Thüringen / Region Großer Inselsberg statt. Hotelbuchung ab sofort möglich.


URL öffnen und Ergebnis in Excel zurückschreiben
#1
Hallo zusammen,

ich würde gerne folgendes machen:

Ich habe eine Liste in der Postzeitzahlen stehen. In Google Maps kann man diese eingeben:

https://www.google.at/maps/place/1020

Sobald der Browser dann die Seite geladen hat steht die URL wie folgt da:

https://www.google.at/maps/place/1020+Wi...940e?hl=de

Ich würde nun gerne mittels einer Schleife diese Abfragen durchführen und dieses Ergebnis, also die URL mit den Koordinaten in die Zelle neben der PLZ schreiben...

Ich habe einmal ein paar Schnipsel gefunden und damit herumgebastelt, aber leider funktioniert es noch nicht wie gewünscht. Ich hoffe jemand kann mir weiterhelfen?

Vielen Dank und lg

Olli


Angehängte Dateien
.xlsm   Google Gebiete PLZ.xlsm (Größe: 28,02 KB / Downloads: 4)
Privat: WIN 7 64-Bit Professional / EXCEL 2013 64-Bit
Arbeit: WIN 8 64-Bit Professional / EXCEL 2013 64-Bit
to top
#2
Hallo olli,

wenn Du die url erst einer Variable zuweist und dann einträgst, hast Du die komplette Url.
Code:
strUrl = oWindow.LocationURL
Cells(loi, 4) = strUrl
   \\\|///      Hoffe, geholfen zu haben.
   ( ô ô )      Grüße, André aus G in T  
 ooO-(_)-Ooo    (Excel 97-2016)
to top
#3
Auch Hallo,

so wie ich das verstehe erlaubt Google Map es nicht von dort automatisiert Daten zu ziehen ohne das in einer Karte anzuzeigen. Siehe:

https://developers.google.com/maps/docum...ncematrix/

Ich würde das deshalb vielleicht eher über GeoNames machen, siehe: http://de.wikipedia.org/wiki/GeoNames

Du musst Dir dazu bei http://www.geonames.org/ einen Account zulegen und den UserNamen in der URL angeben, so in der Art:

strUrl = "http://api.geonames.org/postalCodeLookupJSON?postalcode=1020&country=AT&username=DEINNAME"

Das Ergebnis sieht dann (Beispiel für 6060) so aus:

Zitat:{"postalcodes":[{"adminCode2":"703","adminCode3":"70301","adminName3":"Absam","adminCode1":"07","adminName2":"Politischer Bezirk Innsbruck Land","lng":11.5,"countryCode":"AT","postalcode":"6060","adminName1":"Tirol","placeName":"Absam","lat":47.3},{"adminCode2":"703","adminCode3":"70354","adminName3":"Hall in Tirol","adminCode1":"07","adminName2":"Politischer Bezirk Innsbruck Land","lng":11.5166667,"countryCode":"AT","postalcode":"6060","adminName1":"Tirol","placeName":"Hall in Tirol","lat":47.2833333},{"adminCode2":"703","adminCode3":"70354","adminName3":"Hall in Tirol","adminCode1":"07","adminName2":"Politischer Bezirk Innsbruck Land","lng":11.494444466666666,"countryCode":"AT","postalcode":"6060","adminName1":"Tirol","placeName":"Heiligkreuz","lat":47.29444443333333},{"adminCode2":"703","adminCode3":"70358","adminName3":"Thaur","adminCode1":"07","adminName2":"Politischer Bezirk Innsbruck Land","lng":11.4666667,"countryCode":"AT","postalcode":"6060","adminName1":"Tirol","placeName":"Thaur","lat":47.3}]}

cu, Bernd
--
Code:
Option Explicit

Sub URL_zu_PLZ()
   Dim i As Long, objHTTP, strUrl As String
  
   Set objHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
   objHTTP.SetTimeouts 0, 3000, 2000, 5000
    
   For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
      strUrl = "http://api.geonames.org/postalCodeLookupJSON?postalcode=" & Cells(i, 1).Value & "&country=AT&username=DEINNAME"
      objHTTP.Open "GET", strUrl, False
      objHTTP.Send
      Cells(i, 4).Value = objHTTP.ResponseText
   Next
  
   Set objHTTP = Nothing
End Sub
to top
#4
Hallo André,

habe das leider nicht geschafft entsprechend einzubauen, kannst du mir sagen wo das hin müsste?
Wie erwähnt möchte ich gerne, dass das Makro die Liste abarbeitet und dann diese URL eingibt:

https://www.google.at/maps/place/6020

Sobald die URL im Browser vollständig geladen ist wird die so dargestellt:

https://www.google.at/maps/place/6020/@4...dac305e70b

Dieses Ergebnis würde ich dann gerne auslesen und neben der PLZ darstellen.
Es geht mir dabei um den dargestellten Shape auf der Karte, also die Ortsgrenzen.

Aktuell erhalte ich leider immer nur https://www.google.at/maps/place/6020 zurück.

@bst: Danke für den Tipp, das kann ich bei einem anderen Projekt super gebrauchen, werde ich auf jeden Fall einmal entsprechend testen.

Danke und lg

Olli
Privat: WIN 7 64-Bit Professional / EXCEL 2013 64-Bit
Arbeit: WIN 8 64-Bit Professional / EXCEL 2013 64-Bit
to top


Möglicherweise verwandte Themen...
Thema Verfasser Antworten Ansichten Letzter Beitrag
  Trendlinie erkennt Formeln ohne Ergebnis als Null... dreamer84 2 45 07.12.2016, 22:38
Letzter Beitrag: dreamer84
  Zeitreihe in Formel einsetzen und Ergebnis in Tabelle speichern Japa 4 73 29.11.2016, 20:54
Letzter Beitrag: Japa
  KW + xWochen mit KW als Ergebnis StephPsc 12 223 19.10.2016, 08:37
Letzter Beitrag: BoskoBiati
  Datum eruiren aus dem Ergebnis einer Berechnung die als Dezimalzahl in Jahren vorlieg tristanv 5 201 20.09.2016, 17:04
Letzter Beitrag: radagast
  Ergebnis aus Matrix suchen und liefern Koncti 2 163 02.09.2016, 12:01
Letzter Beitrag: Jockel
  Ergebnis der aktuellsten ausgefüllten Zelle anzeigen Timo B 9 245 11.08.2016, 07:21
Letzter Beitrag: Rabe
  Bestes Ergebnis finden tuscha 18 556 28.07.2016, 10:49
Letzter Beitrag: tuscha
  VAB Zufallszahl bis Ergebnis negativ + Liste RiggoHarbor 0 259 10.06.2016, 15:09
Letzter Beitrag: RiggoHarbor
  Zeile rot, wenn Ergebnis negativ rechnung-autohaus 2 261 06.06.2016, 08:44
Letzter Beitrag: steve1da
  unschönes Ergebnis im Diagramm axel18 6 334 05.06.2016, 11:53
Letzter Beitrag: axel18

Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste