[megaloman]

VBA не хочу »

А vbs?

Код:

BoxIn = "Z:\Box_In"
BoxInOld = "_Old.xls"

Set Book = CreateObject("Excel.Application")
Book.Visible = False 'True  ' False

With CreateObject("Scripting.FileSystemObject")
    If Not .FolderExists(BoxIn + "\" + BoxInOld) Then Call .CreateFolder(BoxIn + "\" + BoxInOld)
    
    For Each iFile In .GetFolder(BoxIn).Files
        If LCase(Right(iFile, 4)) = ".xls" And Not .FileExists(iFile + "x") Then
            With Book
                .Workbooks.Open iFile
                Call .ActiveWorkbook.SaveAs(iFile + "x", 51, , , , False)
                .ActiveWorkbook.Close
            End With
        End If
        .MoveFile iFile, BoxIn + "\" + BoxInOld + "\" + iFile.Name
    Next
End With
Book.Quit