Top-Themen

Aktuelle Themen (A bis Z)

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

Mitglied: chaos2go

chaos2go (Level 1) - Jetzt verbinden

02.10.2014 um 12:32 Uhr, 1709 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 ..
Ähnliche Inhalte
Utilities
Google Earth - Google CrashHandler
Frage von ovu-p86Utilities

Hallo, bei der Google Earth Installation hab ich mir 2 GoogleCrashHandler Prozesse eingefangen. Da ich ein neues Win7-64bit System ...

CPU, RAM, Mainboards

IAMT KVM-Zugriff (RADMIN-Viewer, VNC-Viewer, . )

gelöst Frage von moar70CPU, RAM, Mainboards7 Kommentare

Hallo! Ich habe auf meiner TAROX-Workstation (Mainboard Fujitsu D3128 B2) iAMT (Version ME 8.1.40.1416) konfiguriert. Der Webzugriff mittels funktioniert, ...

Microsoft Office

Powerpoint Viewer

gelöst Frage von Winfried-HHMicrosoft Office9 Kommentare

Guten Morgen Experten, ich suchte im Internet gerade nach dem aktuellen PowerPoint-Viewer. Aber das neueste was ich finde ist ...

Webbrowser

Google Chrome lädt Google Dienste nicht

Frage von r3volutionxxxWebbrowser3 Kommentare

Hallo Ich habe ein kleines Problem Zuhause benutze ich Google Chrome, wobei die Google Dienste nicht richtig funktionieren. OS: ...

Neue Wissensbeiträge
iOS
Updates für Iphone und Co
Information von sabines vor 2 StundeniOS

Gestern abend ist iOS 11.3.1 erschienen, ein kleineres Update, dass einige Lücken schließt und "Lahmlegen" nach einem Display Tausch ...

Windows 7

Windows 7 - Server 2008 R2: Exploit für Total Meltdown verfügbar

Information von kgborn vor 1 TagWindows 7

Kleine Information für Administratoren, die für die Updates von Windows 7 SP1 und Windows Server 2008 R2 SP1 verantwortlich ...

Sicherheit

Zero Day-Schwachstelle im Internet Explorer - wird von APT bereits ausgenutzt

Information von kgborn vor 1 TagSicherheit

Im Kernel des Internet Explorer scheint es eine Zero Day-Lücke zu geben, die von staatlichen Akteuren (APT) im Rahmen ...

Microsoft
Folder Security Viewer-Lizenzen zu gewinnen
Information von kgborn vor 1 TagMicrosoft

Ich nehme das Thema mal in Absprache mit Frank hier auf, da es für den einen oder anderen Administrator ...

Heiß diskutierte Inhalte
C und C++
Frage1 C Programmierung-Makefile Frage2 PHP-Programmierung HTTP-Fehler 404
Frage von KatalinaC und C++27 Kommentare

Hallo, ich habe 2 Fragen, die nichts miteinander zu tun haben aber mit denen ich mich gerade beschäftige: 1. ...

Linux
Linux Server oder Windows Server - lohnt eine Umstellung auf Linux und ebenso basierende SW bei einer langfristigen Planung?
Frage von motus5Linux27 Kommentare

Wir brauchen bei uns einen neuen Server. Dieser wird als Fileserver, Domäne Controller sowie Exchange Server verwendet. Wir versuchen ...

LAN, WAN, Wireless
Watchguard T15 VPN Einrichtung
gelöst Frage von thomasjayLAN, WAN, Wireless25 Kommentare

Hallo zusammen, wir möchten gerne über unsere Watchguard T15 einen VPN-Tunnel (Mobile VPN with IPSec) einrichten! Als Client nutzen ...

DSL, VDSL
ISP Wechsel auf Vodefone Koax, Gebäudeverkabelung nur per Cat 7
gelöst Frage von wusa88DSL, VDSL19 Kommentare

Hallo Zusammen, ich bin momentan bei Mnet als Glasfaser Kunde und möchte Preis/Leistungs-Technisch zu Kabel Deutschland / Vodafone wechseln. ...