Niklas_V

Okay vielen dank schonmal für die hilfe, kannst du mir vielleicht auch noch helfen wie ich das in mein script einbauen kann? bis jetzt krieg ich nur fehlermeldungen :P

Korrekt ich meine den Dateiname, leider entspricht die Nummer der Datei nicht der Kalenderwoche sondern wird einfach hochgezählt. danke schonmal ;)

Hallo, folgende Frage: Wir haben bei uns im Unternehmen wöchentlich eine Excelliste auszudrucken, wobei jede Woche eine neue Datei erstellt wird. Der Name der Datei ist immer "Schichtplan 2014 01.xlsx", wobei der hintere Teil also die "01" dann durch "02" usw. ersetzt wird. Diese soll nach Möglichkeit zeitgesteuert jeden Montag nach Computerstart gedruckt werden. Durch wiederholtes Googlen versuch Ich es nun mit einem VBScript zu realisieren, da ich aber ein Anfänger im Bereich scripting bin funktioniert mein Script noch nicht so ganz. Ich bekomm es hin das eine Datei gedruckt wird aber noch nicht das sich das Script immer die aktuellste .xlsx-Datei raussucht. Hier mal mein erster Versuch: ' Excel (versteckt) öffnen Set appXLS = CreateObject("Excel.Application") ' Workbook (versteckt) und schreibgeschützt öffnen Set wbkXLS = appXLS.Workbooks.Open("C:\Users\Niklas Vitt\Documents\Schichtplaene\Schichtplan 2014 25.xlsx", , True) Aktuell = "" Pre = "Schichtplan 2014 " For Each Blatt in wbkXLS.worksheets BN = Blatt.Name If Left (BN, Len(Pre)) = Pre Then Woche = Split(BN) (1) If Woche > Aktuell Then Aktuell = Woche End If Next MsgBox "Neuestes Blatt: " & Pre & Aktuell ' Tabelle1 ausdrucken wbkXLS.sheets("Tabelle1").PrintOut ' Workbook schließen wbkXLS.Close Set wbkXLS = Nothing appXLS.Quit Set appXLS = Nothing freue mich über jede Hilfe MfG Niklas_V