Batch-Datei Excel

Hallo zusammen,

Ich habe da jetzt ein Problem. In einem Verzeichnis sind mehrere Excel-Dateien. Ich muss eine Batch-Datei erstellen, die in das Verzeichnis reingeht, die letzte Version auswählt (Geändert am ...) und öffnet.

Habt ihr irgendwelche Ideen?

Danke!

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 33678

Url: https://administrator.de/forum/batch-datei-excel-33678.html

Ausgedruckt am: 18.04.2025 um 12:04 Uhr

9 Kommentare

Neuester Kommentar

Welches Namensnomenklatur wird bei den Dateien verwendet?
Wie werden die verschiedenen Versionen gekennzeichnet?

Grüße
Guido

Es sieht so aus:

Name Grösse Typ Geändert am

20060228_Dateiname 29KB Microsoft Excel Worksheet 28.02.2006
20060329_Dateiname 29KB Microsoft Excel Worksheet 29.03.2006

usw.

Gruß Pavlo

Hallo Pavlo,

Du musst die Variable C_Quelle noch anpassen.

'Öffne letzte Datei im Verzeichnis'  
'07.06.06/ge'  

Option Explicit

Const C_Quelle = "c:\temp"  

DIM O_FSO
DIM O_Shell

Set O_FSO = CreateObject("Scripting.FileSystemObject")  
Set O_Shell = CreateObject("Wscript.Shell")  

call S_Dir

'################'  
'Lese Verzeichnis aus'  
sub S_Dir
    DIM O_Datei
    DIM O_Dir
    DIM L_Datei
    Set O_Dir = O_FSO.GetFolder(C_Quelle)
    for each O_Datei in O_Dir.files
        L_Datei = O_Datei.Path
    next
    call S_Run(L_Datei)
end sub

'Rufe Anwendung auf'  
sub S_Run(P_Datei)
    O_Shell.run "excel " & P_Datei  
end sub

Grüße
Guido
www.code-master.de

Hallo, Tundra!

Ich hab, leider nicht verstanden. Könntest du mir alles erklären?!
Ich habe nicht gesagt, dass Ordner auf dem anderen Server im Lokalnetz liegt.

Gruß Pavlo

Hi Pavlo,

das ist ein VBScript.
Kopiere den Text in einem Editor z. B. Notepad und speichere die Datei mit der Dateierweiterung vbs ab.
Im Quelltext muss Du bei C_Quelle den Ort der Excel-Dateien angeben.
Wenn Du remote darauf zugreifst muss mit UNC-Pfaden arbeiten.

Das Script geht in den angegebenen Ordner herein, scannt alle Dateien alphanumerisch und ruft dann die letzte Datei mit der Anwendung Excel auf.

Grüße
Guido

...oder, vom CMD-Prompt aus:

for /f "delims=" %i in ('dir /b /o:d *.xls') do @set "lastxlsfile=%i"  
Start "%lastxlsfile%" "%lastxlsfile%"  

-bzw. als Batch-

::------snipp LastXLS.bat
for /f "delims=" %%i in ('dir /b /o:d *.xls') do @set "lastxlsfile=%%i"  
Start "%lastxlsfile%" "%lastxlsfile%"  
::------snapp LastXLS.bat

Sieht nicht so ästhetisch aus wie der VBS-Schnipsel, tut aber auch.

Gruß
Biber

Hallo, zusammen!

Ich hab beide Varianten ausprobiert. Leider funktioniert es bei mir nicht (weder vbs, noch batch). Ich bekomme die Meldung, dass die Datei nicht gefunden wurde. Dabei steht in der Meldung der falsche Dateiname. Kann der Fehler vorkommen, weil der Dateiname mehrere Leerzeichen enthält? Was meint ihr?

Gruß Pavlo