Определить открыт ли файл Excel

local $oExcel = _ExcelBookNew() ;Create new book, make it visible
_ExcelWriteSheetFromArray($oExcel, $aCoords, 1, 1, 0, 0) ;0-Base Array parameters
_ExcelBookSaveAs($oExcel, @ScriptDir & "\Temp.xls", "xls", 0, 1) ;

_ExcelBookOpen

; НАЧАЛО

 $BOOK="Temp.xls"
 $PATH=@ScriptDir&"\"&$BOOK

 MsgBox(0,"",IsOpen($PATH))

; Функция возвращает 0, если книга не открыта
; Функция возвращает 1, если книга открыта

 Func IsOpen($PATH)
  $oExcel=ObjGet("","Excel.Application")
  if $oExcel=0 then Return 0
  $R=0
  for $element in $oExcel.Application.Workbooks
   if $element.FullName=$PATH Then $R=1
  next
  Return $R
 EndFunc

; КОНЕЦ

#include <Excel.au3>
$sName = "Temp.xls"
$sFilePath = @ScriptDir & "\" & $sName ;This file should already exist

If ProcessExists("excel.exe") Then
   If WinExists("Microsoft Excel - "&$sName) Then
      WinActivate("Microsoft Excel - "&$sName)
   EndIf
   Dim $iMsgBox
       $iMsgBox = MsgBox(266545,"Внимание!","Excel уже открыт и используется! Закрыть без сохранения и продолжить работу скрипта?")
    Select
      Case $iMsgBox = 1 ;OK
         ProcessClose("excel.exe")
      Case $iMsgBox = 2 ;Cancel
         Exit
   EndSelect
EndIf
$oExcel = _ExcelBookOpen($sFilePath)
   Local $aArray[5][2] = [["LocoDarwin", 1],["Jon", 2],["big_daddy", 3],["DaleHolm", 4],["GaryFrost", 5]] ;0-Base Array
_ExcelWriteSheetFromArray($oExcel, $aArray, 1, 1, 0, 0) ;0-Base Array
_ExcelBookSaveAs($oExcel, @ScriptDir & "\"&$sName, "xls", 0, 1) ;