• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Tip: Excel Google Maps

Status
Niet open voor verdere reacties.
oceanrace

oceanrace

Gebruiker
Lid geworden
14 mei 2008
Berichten
198
Hallo forummers,

Op http://www.batchgeo.com/excel/ kun je een leuk bestand downloaden om Google Maps in excel te gebruiken.

Echter er is een probleem, het printen van de kaart?
Weet iemand hoe dit wel kan?
 

Bijlagen

  • excel_google_maps-1.xls
    34 KB · Weergaven: 1.756
oceanrace, dat van dat printen snap ik ook niet echt, maar wél mijn hartelijke dank voor deze tip! Dit workbook kan ik zéér goed gebruiken! :thumb:

Groet, Leo
 
Bas,

Bij mij print hij gewoon. Kijk eens naar de printereigenschappen, misschien moet je daar iets aanpassen.

Ik heb het bestand getest en gemerkt dat alleen gezocht wordt naar adres en plaats. Postcode wordt niet gebruikt.

Weet je of de namen van de knoppen aangepast kunnen worden?

Voor wie zoekt naar een methode om een route te berekenen plaats ik een bestand dat ik op een ander forum vond.
 

Bijlagen

  • Afstand GoogleMaps.xls
    52 KB · Weergaven: 1.206
rdg1314 zei:
Weet je of de namen van de knoppen aangepast kunnen worden?
Klik om te vergroten...

Hallo Rob

Kijk eens naar de VBA-code, daarin zal iets staan als:

CommandButton1.Caption = "..."

Deze regel zet dus hetgeen er op de knop CommandButton1 staat.

Wigi
 
Dit is de VBA code:

Code: 
Private Sub CommandButton1_Click()
    p = Worksheets("GoogleMaps").WebBrowser1.Document.parentWindow.execScript("initialize()", "", "JavaScript")
    
    Count = 2
    Do While Len(Worksheets("GoogleMaps").Cells(Count, 2))
        Address = Worksheets("GoogleMaps").Cells(Count, 1) & ", " & Worksheets("GoogleMaps").Cells(Count, 2) & ", " & Worksheets("GoogleMaps").Cells(Count, 3)
        
        CommandButton1.Caption = "Zoeken naar: " & Address
        
        p = Worksheets("GoogleMaps").WebBrowser1.Document.parentWindow.execScript("codeAddress(""" & Address & """, 0)", "", "JavaScript")
        Count = Count + 1
            
        Application.Wait (Now + TimeValue("00:00:01"))
    Loop
    
    CommandButton1.Caption = "Zoeken in Google Maps"
End Sub

Private Sub CommandButton2_Click()
    p = Worksheets("GoogleMaps").WebBrowser1.Document.parentWindow.Print
End Sub

Het stukje
Code: 
CommandButton1.Caption = "Zoeken naar: " & Address

bedoeld Wigi denk ik, ik heb de deze aangepast in "Zoeken naar:"

Het printen snap ik nog niet helemaal, bij mij wordt de kaart niet afgedrukt.
Het mooie is dat hij dus meerdere adressen kan zoeken en het afhankelijk van de afstand tot elkaar op schaal laat zien, ook Streetview kun je gebruiken.
 
Ginger zei:
Dit workbook kan ik zéér goed gebruiken! :thumb:

Groet, Leo
Klik om te vergroten...

Leo , op " worksheet" iets gemist ? .
Je moet bij bepaalde steden / gemeenten ook de straatnaam opgeven of je zit een paar honderden kilometers mis :p
 

Bijlagen

  • google geo.jpg
    google geo.jpg
    107,3 KB · Weergaven: 356
Zeer leuk programmaatje.

Als ik overigens de print optie activeer en vervolgens naar het print voorbeeld kijk zie ik enkel de tekst.

In de macro staat duidelijk dat deze de parentwindow wil printen en dat is enkel de getoonde map.

Mogelijk moet er een verwijzing aangezet worden.
 
@ Wigi & Bas: Dank, gevonden. De regel ook toegevoegd aan de print opdracht.

@ Daniël en Superzeeuw: het teken is inderdaad een wit vlak, maar de schaduw wordt wel afgedrukt. Er zit een beveiliging op het bestand, waardoor je niet in de opties kunt komen. Ik dacht daar iets te vinden over het afdrukken van plaatjes, maar heb het in een ander bestand ook niet gevonden. In Word staat dat wel.
 
rdg1314 zei:
Er zit een beveiliging op het bestand, waardoor je niet in de opties kunt komen. Ik dacht daar iets te vinden over het afdrukken van plaatjes, maar heb het in een ander bestand ook niet gevonden. In Word staat dat wel.
Klik om te vergroten...
Op welk bestand zit er een beveiliging ? op de twee bestandjes die gepost staan in deze topic is toch nergens iets beveiligd . Ze maken gebruik van deze
Code: 
=INSLUITEN("Shell.Explorer.2";"")
om de kaart in excel te krijgen , klik op " ontwerpmodus " en dan waar de kaart inkomt .
 
rdg1314 zei:
Voor wie zoekt naar een methode om een route te berekenen plaats ik een bestand dat ik op een ander forum vond.
Klik om te vergroten...

Bij mij werkt deze methode niet, iemand nog een ander tooltje waarmee ik in een lijst van 5000 adressen/postcodes de afstand kan berekenen?
 
Timmiesch zei:
Bij mij werkt deze methode niet, iemand nog een ander tooltje waarmee ik in een lijst van 5000 adressen/postcodes de afstand kan berekenen?
Klik om te vergroten...
Tim,

Wat er niet werkt, meld je niet.

Misschien heb je hier iets aan in de programmacode en daarna de opdracht
Code: 
=afstand(pc1;pc2)
:
Code: 
Option Explicit

Public Function GetPage(sLink As String) As XMLHTTP40
  Dim oObj     As MSXML2.XMLHTTP40
  Set oObj = New XMLHTTP40
  oObj.Open "GET", sLink, False
  oObj.send ""
  Set GetPage = oObj
End Function

Public Function afstand(Code1 As String, Code2 As String)
  Dim oResult  As XMLHTTP40
  Dim oDOM     As DOMDocument40
  Dim sStr     As String
  Dim sResult  As String
  Dim sURL     As String
  Const sKeyWords As String = "</strong> route over <strong>"
  sURL = "http://route.anwb.nl/routeplanner/servlet/rp?action=0&zip1="
  sURL = sURL & Code1 & "&city1=&street1=&zip2="
  sURL = sURL & Code2 & "&city2=&street2=&iad=homepage.navigatie.middenkolom.routeplannerplanroute"
  Set oResult = GetPage(sURL)
  Set oDOM = New DOMDocument40
  On Error Resume Next
  sStr = oResult.responseText
  sStr = oResult.responseText
  sResult = Mid(sStr, InStr(sStr, sKeyWords) + Len(sKeyWords))
  sResult = Replace(Mid(sResult, 1, InStr(sResult, "m") - 1), ",", ".")
  afstand = Val(Left(sResult, Len(sResult) - 1)) * IIf(Right(sResult, 1) = "k", 1, 0.001)

End Function
 
Op verzoek van Timmiesch en op basis van een bestandje van SNB.

Tool om grote aantallen afstanden te berekenen.

In kolom A en B een postcode (optioneel: adres + huisnummer ervoor zonder toevoeging!)

gr wim
 

Bijlagen

  • Reisafstand.rar
    96,3 KB · Weergaven: 1.237
Laatst bewerkt:
Excuses had wat moeite om het bestand klein genoeg te krijgen en had de bladen gekopieerd.
De volgende macro ontbreekt. Macro kan uiteraard nog wat verbeterd worden maar in basis werkt deze prima.

Code: 
Sub reisafstand()
Dim r As Long
Dim PauseTime, Start
Application.ScreenUpdating = False
   For r = 2 To 32500 'rijen
 If Cells(r, 1) <> "" Then
        Worksheets("blad1").Cells(2, 2) = Worksheets("blad2").Cells(r, 1)
        Worksheets("blad1").Cells(4, 2) = Worksheets("blad2").Cells(r, 2)
        Worksheets("blad1").Range("F26").QueryTable.Refresh BackgroundQuery:=False
Application.Wait (Now + TimeValue("0:00:01"))                ' Tijdsduur instellen.
        Worksheets("blad2").Cells(r, 3) = Worksheets("blad1").Cells(32, 6)
        Worksheets("blad2").Cells(r, 4) = Worksheets("blad1").Cells(33, 6)
        Worksheets("blad2").Cells(r, 5) = Worksheets("blad1").Cells(34, 6)
        Worksheets("blad2").Cells(r, 6) = Worksheets("blad1").Cells(35, 6)
        Worksheets("blad2").Cells(r, 7) = Worksheets("blad1").Cells(36, 6)
        Worksheets("blad2").Cells(r, 8) = Worksheets("blad1").Cells(37, 6)
        Worksheets("blad2").Cells(r, 9) = Worksheets("blad1").Cells(38, 6)
         Worksheets("blad2").Cells(r, 10) = Worksheets("blad1").Cells(39, 6)
     End If
     Next r
      For r = 2 To 32500 'rijen
If Cells(r, 3) = "Voorgestelde routes" Then
        Cells(r, 3).Delete Shift:=xlToLeft
     End If
     Next r
      Cells.Select
    Selection.Replace What:="1.", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:="2.", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
        [A1].Select
 Application.ScreenUpdating = True

End Sub

gr wim
 
Laatst bewerkt:
Nav een andere vraag heb ik het bestand GoogleMaps en Afstand GoogleMaps gecombineerd. Je vind het bestand op mijn site als Afstand GoogleM

@Oceanrace: je kunt dit topic als opgelost afmelden.
 
Laatst bewerkt:
Ik ben op zoek naar iets om de website van Google Maps in een excelblad te gebruiken om daarna met de afstand en tijd te kunnen rekenen. Weet iemand hoe dat moet ?
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan