Пересохранить файлы

[temp]

Программа выдает отчеты в форме *.htm, которые корректно открываются в Excel. Каким образом можно пересохранить эти файлы в xls формат?

[madmasles]

temp,

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

Код:

Код: Выделить всё

#include 
#include 
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, просто расширение поменять.

[HORRIBLE]

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

[madmasles]

temp,

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

Код:

Код: Выделить всё

ShellExecute(@ScriptDir & "\Excel")