Makro wird 10 sec nach Öffnen der Datei gestartet
30.03.2016 11:02:06
Alesandro
habe folgendes Problem:
Ich starte via Windows Taskplaner mein File TIMLINE_PROJEKTE.xlsx das sich Daten von einer Oracle-DB holt.
Dies passiert automatisch sobald das File geöffnet wird.
Dieser Teil funktioniert bereits.
Nun möchte ich, dass nach 10 sec ein Makro, das in meiner PERSONAL.XLSB liegt,
aufgerufen wird, welches mir mein File mit anderem Namen auf einem Netzlaufwerksordner abspeichert und das vom Taskplaner aufgerufene File wieder schliesst.
Der Code zum Speichern sieht so aus und funktioniert auch wenn man ihn manuell aufruft:
Sub TIMELINE_PROJEKTE_SPEICHERN()
Dim Verzeichnis As String
Dim Datei As String
Verzeichnis = "\\dfs_stamm\org_swibs_leitung"
If Len(Dir(Verzeichnis, vbDirectory)) = 0 Then
MsgBox "Pfad existiert nicht! :("
Application.GetSaveAsFilename
Else
Verzeichnis = "\\dfs_stamm\org_swibs_leitung\"
Datei = "TIMELINE_PROJEKTE " & Format(Date, "yyyy-mm-dd")
ActiveWorkbook.SaveAs (Verzeichnis & Datei & ".xlsx"), FileFormat:=xlOpenXMLWorkbook
MsgBox "Datei: " & Datei & " wurde gespeichert!"
End If
End Sub
Daher meine Frage:
Wie schaffe ich es nun, dass dieses Makro erst nachdem die Daten von der Oracle-DB geholt wurden, aufgerufen wird?
Danke im Voraus ;-)