Excel Pivot Charts automatisch Aktualisieren
Hier ein Makro für all diejenigen die umfangreiche Auswertungen in Excel via ODBC fahren wollen und diese z.b. Täglich aktualisieren müssen.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 | ' Ausführung des Makros nur als user excel_updater' Sub Auto_Open() Dim strUser As String strUser = Application.UserName If strUser <> "excel_updater" Then Exit Sub Else ' Datenaktualisierungs Makro ' ActiveWorkbook.RefreshAll ActiveWorkbook.Save Application.Quit End If End Sub |
Der erste Teil des Makros holt sich den Angemeldeten User und Prüft dessen Name.
Wenn Name = excel_updater dann fahre mit Makro fort.
Damit erreichen wir dass nicht jedesmal wenn ein user diese Excel Datei öffnet, das Makro durchläuft, wir wollen ja das ganze nur 1x Täglich ausführen.
Der Zweite Teil startet dann die Aktualisierung, speichert anschließend und beendet Excel.
Was wir jetzt noch benötigen ist ein Rechner der zum gewünschten Zeitpunkt läuft und als excel_updater Angemeldet ist.
Am besten eignet sich hier natürlich ein kleines Virtualisiertes Windows XP.
Jetzt können wir die gewünschte Excel Datei in den Task Planer aufnehmen und schon hat man wieder ein bisschen was Automatisiert 
Veröffentlicht in 1 Kommentar zu „Excel Pivot Charts automatisch Aktualisieren“
Kommentieren
Partner Links
[...] ein Paar Tagen hatte ich geschrieben wie man Excel Auswertungen automatisieren kann. Wenn nun die Daten aus einer ODBC Quelle kommen kann es sein dass bei jedem Start der [...]