[madmasles]

temp,
Наверное, так:

Код:

#include <Excel.au3>
#include <File.au3>

If Not FileExists(@ScriptDir & "\*.htm") Then
    MsgBox(0, "", "В этой папке нет файлов *.htm", 5)
    Exit
EndIf
DirCreate(@ScriptDir & "\Excel")
$aFileHTM = _FileListToArray(@ScriptDir, "*.htm", 1)

For $i = 1 To UBound($aFileHTM) - 1
    $sFilePath = @ScriptDir & "\" & $aFileHTM[$i]
    $oExcel = _ExcelBookOpen($sFilePath, 0)
    _ExcelBookSaveAs($oExcel, @ScriptDir & "\Excel\" & StringTrimRight($aFileHTM[$i], 4), "xls")
    If @error Then MsgBox(0, "Error", "Произошла ошибка с файлом" & @CRLF & $aFileHTM[$i], 5)
    _ExcelBookClose($oExcel, 1, 0)
Next

[HORRIBLE]

А почему не воспользоваться FileMove, просто расширение поменять.

[temp]

madmasles, дома потренировался "на кошках", вроде то . А как по завершении операции открыть папку excel?

[madmasles]

temp,
В конце добавьте

Код:

ShellExecute(@ScriptDir & "\Excel")