Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

VBA Google View

Frage Entwicklung VB for Applications

Mitglied: chaos2go

chaos2go (Level 1) - Jetzt verbinden

02.10.2014 um 12:32 Uhr, 1377 Aufrufe, 2 Kommentare

Hey ihr ,

hab noch mal ein Anliegen


und zwar hab ich eine Excel Tabelle in der Andressen und noch mehr drin stehen


ich möchte jetzt , dass die adressen automatich auf auf google maps angezeigt werden .

die anzeige sollte nach und nach aufgerufen werden sprich erstes wird angezeigt name anzeigen par sec warten und zum nächsten eintrag .

wäre sowas möglich mit vba oder vbs ?


auf bau der Excel datei geht von A bis AM


B = name

Z = Straße

AC = Land

AA = PLZ

AB = City


es sind leider nicht im jeden feld einträge bei den straßen z.B.

die Datei hat weit über 20k einträge



danke schon einmal im vorraus



gruß chaos




Mitglied: colinardo
03.10.2014, aktualisiert 05.10.2014
Hallo Chaos,
klar geht das . Kannst du dir in diesem Demo-Sheet abschauen:
show_addresses_in_googlemaps_250808.xlsm

Wenn du es nicht in Excel machen willst kannst du es auch mit VBS extern aufrufen, ohne das die Arbeitsmappe sichtbar ist. (Pfad zum Excel Sheet und Pause in Zeile 3 und 4 bitte anpassen):
01.
Dim wsGoogle, wsDaten, row, strName, strStreet, strPLZ, strCity, strCountry, strURLParams 
02.
'Konstanten bitte anpassen 
03.
Const PATH_DATASHEET = "C:\Daten.xlsx" 
04.
Const PAUSE = 5   'Pause zwischen den Aufrufen (in Sekunden) 
05.
'--------------------------------------------------------- 
06.
Const GOOGLE_MAPS_URL = "https://www.google.de/maps/place/" 
07.
'Objekte erstellen 
08.
Set objExcel = CreateObject("Excel.Application") 
09.
Set objIE = CreateObject("InternetExplorer.Application") 
10.
Set objShell = CreateObject("Wscript.Shell") 
11.
'Excel unsichtbar machen 
12.
objExcel.Visible = False 
13.
objExcel.DisplayAlerts = False 
14.
 
15.
'InternetExplorer im Vordergrund öffnen 
16.
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2") 
17.
Set colProcessList = objWMIService.ExecQuery("Select * from Win32_Process where Name = 'iexplore.exe'") 
18.
For Each objProcess in colProcessList 
19.
	objShell.AppActivate objProcess.Handle 
20.
Next 
21.
objIE.FullScreen = True 
22.
objIE.Visible = True 
23.
 
24.
'Excel-Datensheet öffnen 
25.
Set wb = objExcel.Workbooks.Open(PATH_DATASHEET) 
26.
'Tabellenblatt festlegen auf dem die Daten stehen 
27.
Set wsDaten = wb.Sheets(1) 
28.
 
29.
'Für jede Datenzeile ab Zeile 2 (wenn in Zeile 1 Überschriften stehen) 
30.
For i = 2 To wsDaten.UsedRange.Rows.Count 
31.
    strName = wsDaten.Range("B" & i).Value 
32.
    strStreet = wsDaten.Range("Z" & i).Value 
33.
    strPLZ = wsDaten.Range("AA" & i).Value 
34.
    strCity = wsDaten.Range("AB" & i).Value 
35.
    strCountry = wsDaten.Range("AC" & i).Value 
36.
    if strStreet <> "" then  
37.
      strURLParams = strStreet 
38.
    end if 
39.
     if strPLZ <> "" then  
40.
      strURLParams = strURLParams & "+" & strPLZ 
41.
    end if 
42.
     if strCity <> "" then  
43.
      strURLParams = strURLParams & "+" & strCity 
44.
    end if 
45.
     if strCountry <> "" then  
46.
      strURLParams = strURLParams & "+" & strCountry 
47.
    end if 
48.
 
49.
    objIE.Navigate GOOGLE_MAPS_URL & strURLParams 
50.
    Do While (objIE.Busy) 
51.
        WScript.Sleep(250) 
52.
    Loop 
53.
    ' Anzahl an Millisekunden Sekunden warten bevor die neue Adresse aufgerufen wird 
54.
    WScript.Sleep(PAUSE * 1000) 
55.
Next 
56.
wb.Close False 
57.
objExcel.DisplayAlerts = True 
58.
objExcel.Quit 
59.
 
60.
Set objExcel = Nothing 
61.
Set objIE = Nothing 
62.
Set objShell = Nothing 
63.
Set objWMIService = Nothing 
64.
 
Grüße Uwe
Bitte warten ..
Mitglied: chaos2go
05.10.2014 um 19:29 Uhr
Merci viel mal

Ich werde es am Montag direkt testen
Bitte warten ..
Neuester Wissensbeitrag
Internet

Unbemerkt - Telekom Netzumschaltung! - BNG - Broadband Network Gateway

(3)

Erfahrungsbericht von ashnod zum Thema Internet ...

Ähnliche Inhalte
VB for Applications
Excel VBA Sortierung von Daten (4)

Frage von easy4breezy zum Thema VB for Applications ...

Microsoft Office
gelöst Excel-Formel oder VBA (7)

Frage von nicki01 zum Thema Microsoft Office ...

Webbrowser
Google stopft 36 Löcher in Chrome 55

Link von runasservice zum Thema Webbrowser ...

Erkennung und -Abwehr
Mehr als 1 Million Google Accounts von Malware Gooligan gekapert

Link von Frank zum Thema Erkennung und -Abwehr ...

Heiß diskutierte Inhalte
Windows Server
Outlook Verbindungsversuch mit Exchange (15)

Frage von xbast1x zum Thema Windows Server ...

Grafikkarten & Monitore
Tonprobleme bei Fernseher mit angeschlossenem Laptop über HDMI (11)

Frage von Y3shix zum Thema Grafikkarten & Monitore ...

Microsoft Office
Keine Updates für Office 2016 (11)

Frage von Motte990 zum Thema Microsoft Office ...