Office: GPS-Position per Batch bekommen

twk1 · 14. März 2016

Hallo Leute,

ich habe inb meiner Adress-Datenbank eine Funktion, welche mir zu der eingetragenen Adresse die Google Maps liefert.
FollowHyperlink "Google Maps" & Me!Adresse & " " & Me!PLZ & " " & Me!Ort

Nach einigen Sekunden (unterschiedlich je Computerhardware, Internetverbindung, Browser) verändert sicvh die URL selbständig und präsentiert dann in Url eingebettet die Koordinaten.
Die kann ich jatzt händiisch mit Cut & Paste in die Adress-DB eintragen.

Nun möchte ich aber per Knopfdruck und ohne dass jetzt etliche hundert Browserfenster aufgehen das per vba als Batch erledigen können; also die Koordinaten von GMaps bekommen und in die beiden Felder der Adress-DB automatisch eintragen.

Könnt ihr mir da bitte helfen.

Danke sehr und lg, Thomas

:)

avogt_at_home · 15. März 2016

Hallo,
also bei mir geht da nur 1 Browserfenster auf?!
Sieh dir mal dieses Beispiel an:
http://www.vbarchiv.net/tipps/tipp_2...ermitteln.html

Gruß Andreas

twk1 · 15. März 2016

Hi,

ich will das für alle (ausgewählten) Datensätze tun - batch mässig. Da können hunderte sein. Pro Datensatz ein Browserfenster.

Am liebsten wäre es mir, wenn man gar nicht sieht, dass da ein browser aufgeht ...

lg, thomas

avogt_at_home · 16. März 2016

dann sieht dir das Beispiel an!
da geht kein Browserfenster auf.

Andreas

Nouba · 16. März 2016

Warum machst Du denn nicht im alten Tema Sonstiges - Google-Maps Link (teilweise) auslesen weiter? *frown.gif*

Hier ist eine kleine Funktion, mit der Du den Breiten- und Längengrad ermitteln kannst. Als Adresse gibst Du Deine Angaben z. Bsp. mit Komma getrennt ein. Code:

Public Function GetGeoCode(ByVal Address$, ByRef lat#, ByRef lng#) As Boolean
Const GAPI_URL$ = _
"https://maps.googleapis.com/maps/api/geocode/json?address=%1"

'// JSon-Basispfad
Const JSonBasePath$ = "results[0].geometry.location"

Static urlCache As Object
Dim json$, URL$

On Error Resume Next

If urlCache Is Nothing Then
'// Cache für JSon-Ergebnisse anlegen
Set urlCache = CreateObject("Scripting.Dictionary")
End If

'// URL zusammensetzen
URL$ = Replace(GAPI_URL, "%1", Address)

If Not urlCache.Exists(URL) Then
'// Server abfragen, falls die URL nicht im Cache existiert
With CreateObject("MSXML2.ServerXMLHTTP.6.0")
.Open "GET", URL, False
.send vbNullString
json = .responseText
End With
'// Ergebnis im Cache ablegen
urlCache.Add URL, json
Else
'// Cache verwendem
json = urlCache(URL)
End If

'// ScriptControl zum Auswerten heranziehen
With CreateObject("ScriptControl")
.Language = "JScript"
.Eval "var obj=(" & json & ")"
'// Ergebnisse eintragen
lat = .Eval("obj." & JSonBasePath & ".lat")
lng = .Eval("obj." & JSonBasePath & ".lng")
End With

GetGeoCode = Err = 0
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Zum Testen: Code:

Sub TestGeoCode()
Dim lat#, lng#

Debug.Print GetGeoCode("Zugspitze,Deutschland", lat, lng)
Debug.Print lat, lng
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ausgabe: Code:

Wahr
47,421066 10,9853652
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

twk1 · 16. März 2016

Hallo,

danke schön für eure Antworten. Werde jetzt beide testen und sehen wie es läuft.

lg, Thomas

@nouba: Habe deswegen einen neuen Thread aufgemacht, weil es nicht mehr um das teilweise auslesen einer url im vordergrund geht, sondern um das batchmässige auslesen vieler urls. Dachte daher, dass ein neuer thread sinnvoller wäre. verzeihung, wenn das falsch war.

twk1 · 16. März 2016

Hallo,

ich habe jetzt beide Funktionen getestet und habe dabei folgendes Ergebnis erzielt:
Die Funktion aus dem Link (vbaarchiv) funktioniert bei mir nicht - es werden keine Koordinaten geliefert.
Die Funktion von nouba funktioniert und das Ergebnis ist auch korrekt. DANKE sehr.

lg, Thomas

Office: GPS-Position per Batch bekommen

GPS-Position per Batch bekommen

GPS-Position per Batch bekommen

GPS-Position per Batch bekommen

GPS-Position per Batch bekommen - Similar Threads - GPS Position Batch

User form Drucken Position

Textfelder verschieben

Rechnung mit Positionen und Defaultwert-Vervollständigung

Linien in Bericht dynamisch in Höhe und Position???

GPS-Koordinaten in Openstreetmap anzeigen

GPS-Koordianten des aktuellen Standorts auslesen

GPS-Daten aus Exif auslesen