Batch-Datei Excel

'Ö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

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

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