|
Guten Morgen,
ich bin leider ein wenig am Verzweifeln und brauche Eure Hilfe
Um die Koordinaten mehrerer Standorte zu ermitteln, bin ich gerade dabei ein Makro zu schreiben, dass die Adresse jeweils in Googlemaps eingibt. Über den Sourcecode von GoogleMaps will ich mir dann die exakten Koordinaten ziehen. Vorzugsweise soll das Ganze über Firefox laufen.
Mein Code sieht aus wie folgt:
Sub Koordinaten()
Dim E As String
Dim adresse As String
E = "C:\Programme\Mozilla Firefox\firefox.exe"
adresse = Range("G1") 'Webseite= view-source:https://www.google.de/maps/place/Street,+Postcode+City
Shell E & " -new-tab " & adresse, vbNormalFocus
End Sub
Soweit so gut bis hierhin.
Wie kann ich mir den kompletten Inhalt, also den kompletten Code, der aufgerufenen Seite kopieren und in einer excel-Zelle zurückgeben lassen?
Vielen Dank und VG
Jonas
|