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