[FlatX007]

Код:

;~  AutoIt Version: 3.3.6.0

#include <Excel.au3>

OnAutoItExitRegister('_ExitScr')

Global $DIR_LOAD_FILE = @ScriptDir & '\Xls'
Global $DIR_SAVE_FILE = @ScriptDir & '\Save'
DirCreate($DIR_SAVE_FILE)

$iSearch = FileFindFirstFile($DIR_LOAD_FILE & '\*.xls')
If (@error) Then Exit

While 1

    $iFile = FileFindNextFile($iSearch)
    If @error Then ExitLoop
    ConsoleWrite($DIR_LOAD_FILE & '\' & $iFile & @CRLF)
    $oExcel = _ExcelBookOpen($DIR_LOAD_FILE & '\' & $iFile)
    If Not (@error) Then _ExcelBookSaveAs($oExcel, $DIR_SAVE_FILE & '\' & $iFile, 'xls')
    _ExcelBookClose($oExcel)

WEnd

Func _ExitScr()

    FileClose($iSearch)

EndFunc   ;==>_ExitScr