Close an in use file

[wchan2122 0]

I want to close an in use excel file with below code but fail with error. Please help

>"C:\Program Files\AutoIt3\SciTE\..\autoit3.exe" /ErrorStdOut "C:\w5\Auto\t4.au3"

C:\w5\Auto\t4.au3 (6) : ==> The requested action with this object has failed.:

For $element In $oExcel.Application.Workbooks

For $element In $oExcel.Application^ ERROR

>Exit code: 1 Time: 0.395

_CloseExcel()

Func _CloseExcel()

$oExcel = ObjGet("", "Excel.Application")

For $element In $oExcel.Application.Workbooks

If $element.FullName <> "" Then

;MsgBox(0,"",$element.FullName)

$element.Save

$element.Close

Else

$element.Activate

$oExcel.Application.Dialogs(5).Show

EndIf

Next

$oExcel.Application.Quit

EndFunc

[doudou 4]

This func will do just what you need:

Func _CloseExcel()
    Local $oExcel = ObjGet("", "Excel.Application")
    If IsObj($oExcel) Then
        ConsoleWrite("EXCEL: " & ObjName($oExcel) & @lf)
        For $wbk In $oExcel.Workbooks
            ConsoleWrite("Closing workbook: " & $wbk.Name & @lf)
            $wbk.Close(True)
        Next
        $oExcel.Quit()
    EndIf
EndFunc

You don't need to check if a workbook is new (FullName property is anyway the wrong place to look - it is always set) or to call Save(), $wbk.Close(True) will save automatically or ask user for path where appropriate. But you always should check IsObj($var) before calling any methods on it.

[wchan2122 0]

This func will do just what you need:

Func _CloseExcel()
    Local $oExcel = ObjGet("", "Excel.Application")
    If IsObj($oExcel) Then
        ConsoleWrite("EXCEL: " & ObjName($oExcel) & @lf)
        For $wbk In $oExcel.Workbooks
            ConsoleWrite("Closing workbook: " & $wbk.Name & @lf)
            $wbk.Close(True)
        Next
        $oExcel.Quit()
    EndIf
EndFunc

You don't need to check if a workbook is new (FullName property is anyway the wrong place to look - it is always set) or to call Save(), $wbk.Close(True) will save automatically or ask user for path where appropriate. But you always should check IsObj($var) before calling any methods on it.

[wchan2122 0]

Dear Doudou,

It can work

Million thanks!!!!