Если сможете - в принципе подойдет и решение в виде батника или java-скрипта...

2Слэн  
Не устраивает тем, что открывает все xls файлы в папке, а нужно только последний!

нужно вынести строку objShell.Run fn из цикла, то есть поставить последней  
я вообще не спец по vbs, но мне кажется строка WScript.Sleep 1000 - лишняя, она только замедляет выполнение кода

2Артем: Может быть Вы тогда знаете как превратить bas файл (модуль макроса) в vbs. У меня есть макрос с этого форума:  
Private Sub Workbook_Open()  
Dim iPath As String  
Dim fs As FileSearch  
Dim last As Date, prev As Date  
iPath = ThisWorkbook.Path  
prev = CDate("1/1/1980")  
With Application.FileSearch  
.NewSearch  
.LookIn = ThisWorkbook.Path  
.SearchSubFolders = False  
.Filename = "*.xls"  
.MatchTextExactly = False  
.FileType = msoFileTypeExcelWorkbooks  
End With  
With Application.FileSearch  
If .Execute() > 0 Then  
Set fs1 = CreateObject("Scripting.FileSystemObject")  
For i = 1 To .FoundFiles.Count  
Set f = fs1.GetFile(.FoundFiles(i))  
last = CDate(f.DateLastModified)  
If last > prev Then  
prev = last: fn = .FoundFiles(i)  
End If  
Next i  
Workbooks.Open Filename:=fn  
Else  
MsgBox "В папке " & iPath & "XLS файлов не найдено", 48, "Внимание"  
End If  
End With  
End Sub  
 
Он делает как раз то, что нужно, но мне нужен отдельный скрипт (vbs, bat, java...), чтобы он работал без экселя... Нашел один скрипт bas2vbs, но он некорректно работает.  
Может тогда Вы сможете конвертировать скрипт выше в vbs???