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

Frage Entwicklung VB for Applications

GELÖST

VBA Google View

Mitglied: chaos2go

chaos2go (Level 1) - Jetzt verbinden

02.10.2014 um 12:32 Uhr, 1643 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
Router & Routing

PfSense als Addon auf QNAP

Information von magicteddy vor 12 StundenRouter & Routing2 Kommentare

Moin, für Spielereien eine ganz nette Idee aber ich fürchte das soetwas auch als echte Firewall genutzt wird: In ...

Datenschutz

Teamviewer kommt für IoT-Geräte wie den Raspberry Pi

Information von magicteddy vor 19 StundenDatenschutz

Moin, jetzt werden IoT Geräte endgültig zur Wanze? Anscheinend kann man auf einem Dashboard seine Geräte visualisieren Ich stelle ...

Microsoft

Letzte Updates für Win10 und Server2016 müssen bei Bedarf über den Update catalogue in den WSUS importiert werden!

Tipp von DerWoWusste vor 23 StundenMicrosoft1 Kommentar

automatisch kommt da nichts an im WSUS und auch nicht im SCCM. Siehe Hinweise zum Bezug der jeweils neuesten ...

Linux

Meltdown und Spectre: Linux Update

Information von Frank vor 3 TagenLinux

Meltdown (Variante 3 des Prozessorfehlers) Der Kernel 4.14.13 mit den Page-Table-Isolation-Code (PTI) ist nun für Fedora freigegeben worden. Er ...

Heiß diskutierte Inhalte
Netzwerkmanagement
Preis für Wartungsvertrag ok?
gelöst Frage von a-za-zNetzwerkmanagement22 Kommentare

Hallo! Mal ne Frage, weil ich mich mit dem akzeptablen Preis für einen Reaktionszeitvertrag nicht auskenne. Meine Firma hat ...

Windows Netzwerk
Ist ein Portforwarding auf einen PC ohne lauschendes Programm ein (großes) Sicherheitsproblem?
Frage von PluwimWindows Netzwerk13 Kommentare

Hallo zusammen, zur Fernwartung eines Rechners an einem anderen Ort nutze ich VNC. Da dieser Rechner einfach nur eine ...

Windows Server
Terminal Server 2016 erkennt Berechtigungen nicht
gelöst Frage von Thomas2Windows Server10 Kommentare

Hallo Administratoren, folgendes Problem stellt sich dar: Es gibt zwei Windows Server 2016, die als Terminal Server fungieren. Jetzt ...

Sonstige Systeme
7-zip: Programm frägt nach Passwort erst bei einzelnen Dateien
Frage von freeskierchrisSonstige Systeme7 Kommentare

Guten Morgen, ich habe ein Problem beim Arbeiten mit 7-zip: Wenn ich die einzelnen Dateien zu einem Archiv verpacke ...