Не работает _Excel_BookOpen(...)

#include <Excel.au3>

$oEx = 0
$sFilePathExcelPP1 = @ScriptDir & "\PP1.xlsx"
_Excel_BookOpen($oEx, $sFilePathExcelPP1)

$oEx = _Excel_Open()

#include <Excel.au3>

$oEx = _Excel_Open()
$sFilePathExcelPP1 = @ScriptDir & "\PP1.xlsx"
_Excel_BookOpen($oEx, $sFilePathExcelPP1)

Local $oExcel = _Excel_Open()
Local $oWorkbook = _Excel_BookOpen($oExcel,@WorkingDir &"\Книга1.xlsb",1,False,"12345")

Func _Excel_BookOpenEX($oExcel, $sFilePath, $bReadOnly = Default, $bVisible = Default, $sPassword = Default, $sWritePassword = Default, $bUpdateLinks = Default)
    ; Error handler, automatic cleanup at end of function
    Local $oError = ObjEvent("AutoIt.Error", "__Excel_COMErrFunc")
    #forceref $oError
    If Not IsObj($oExcel) Or ObjName($oExcel, 1) <> "_Application" Then Return SetError(1, @error, 0)
    If Not FileExists($sFilePath) Then Return SetError(2, 0, 0)
    If $bReadOnly = Default Then $bReadOnly = False
    If $bVisible = Default Then $bVisible = True
    Local $oWorkbook = $oExcel.Workbooks.Open($sFilePath, $bUpdateLinks, $bReadOnly, Default, $sPassword, $sWritePassword)
    If @error Then Return SetError(3, @error, 0)
    Local $oWindow = $oExcel.Windows($oWorkbook.Name) ; <== Modified
    If IsObj($oWindow) Then $oWindow.Visible = $bVisible ; <== Modified
    ; If a read-write workbook was opened read-only then set @extended = 1
    If $bReadOnly = False And $oWorkbook.Readonly = True Then Return SetError(0, 1, $oWorkbook)
    Return $oWorkbook
EndFunc   ;==>_Excel_BookOpen