Hallo zusammen,
ich habe mir gerade ein Script erstellt (aufgenommen ^^) womit ich bestimmte Einstellungen in Excel-Dokumente ändere (Kopfzeile = Dateiname) und diese dann automatisch ausdrucke. Die Dateien werden beim Start von Excel direkt geöffnet und nach dem Drucken automatisch geschlossen.
Ich habe das Script nun für eine Datei aufgenommen und an meine Anforderungen angepasst, allerdings nur für eine Datei. Da der Dateiname sich immer nur aufgrund des Datums unterscheidet, würde ich die gerne mit Einsatz von Variablen lösen, oder gibt es eine bessere Methode?
Hier mal mein Quellcode:
WinWait("Microsoft Excel - OK_FFM_2008-09-01","")
If Not WinActive("Microsoft Excel - OK_FFM_2008-09-01","") Then WinActivate("Microsoft Excel - OK_FFM_2008-09-01","")
WinWaitActive("Microsoft Excel - OK_FFM_2008-09-01","")
Send("{ALTDOWN}a{ALTUP}{DOWN}{DOWN}{DOWN}{ENTER}")
WinWait("Seite einrichten","")
If Not WinActive("Seite einrichten","") Then WinActivate("Seite einrichten","")
WinWaitActive("Seite einrichten","")
Send("{TAB}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{ENTER}{ENTER}")
WinWait("Microsoft Excel - OK_FFM_2008-09-01","")
If Not WinActive("Microsoft Excel - OK_FFM_2008-09-01","") Then WinActivate("Microsoft Excel - OK_FFM_2008-09-01","")
WinWaitActive("Microsoft Excel - OK_FFM_2008-09-01","")
Send("{CTRLDOWN}p{CTRLUP}{SHIFTDOWN}{TAB}{TAB}{TAB}{SHIFTUP}1{TAB}1{ENTER}")
WinWait("Microsoft Excel - OK_FFM_2008-09-01","")
If Not WinActive("Microsoft Excel - OK_FFM_2008-09-01","") Then WinActivate("Microsoft Excel - OK_FFM_2008-09-01","")
WinWaitActive("Microsoft Excel - OK_FFM_2008-09-01","")
Send("{ALTDOWN}d{ALTUP}{DOWN}{ENTER}")
WinWait("Microsoft Excel","")
If Not WinActive("Microsoft Excel","") Then WinActivate("Microsoft Excel","")
WinWaitActive("Microsoft Excel","")
Send("{ENTER}")
Vorschläge? .. Es sind Monatsauswertungen, die mit dem Dateinamen versehen werden müssen.
Danke für Eure HILFE!!