Problems with Excel UDF

[FrancescoDiMuro]

Hi guys I have a script that read a worksheet based on a choice made by the user ( through a GUI ); with .xlsx format I have no problems... But with .xls, errors like:
 

$oWorkbook.Sheets("RD-DIG").Activate
$oWorkbook^ ERROR

Why? Can someone help me out please? 
I posted a question like this:
How can I "copy" symbols like ° or ì or à, from a .txt to a .csv? Thanks

[water]

Can you please post the full error message you see in the SciTE output pane?

[FrancescoDiMuro]

Sure water  

>"C:\Program Files (x86)\AutoIt3\SciTE\..\AutoIt3.exe" "C:\Program Files (x86)\AutoIt3\SciTE\AutoIt3Wrapper\AutoIt3Wrapper.au3" /run /prod /ErrorStdOut /in "C:\Users\Portatile-60\Documents\Documenti Lavoro\AutoIt\Database_Creator_CSV\Database_Creator_CSV.au3" /UserParams    
+>13:58:16 Starting AutoIt3Wrapper v.16.612.1119.0 SciTE v.3.6.6.0   Keyboard:00000410  OS:WIN_10/  CPU:X64 OS:X64  Environment(Language:0410)  CodePage:0  utf8.auto.check:4
+>         SciTEDir => C:\Program Files (x86)\AutoIt3\SciTE   UserDir => C:\Users\Portatile-60\AppData\Local\AutoIt v3\SciTE\AutoIt3Wrapper   SCITE_USERHOME => C:\Users\Portatile-60\AppData\Local\AutoIt v3\SciTE 
>Running AU3Check (3.3.14.2)  from:C:\Program Files (x86)\AutoIt3  input:C:\Users\Portatile-60\Documents\Documenti Lavoro\AutoIt\Database_Creator_CSV\Database_Creator_CSV.au3
+>13:58:16 AU3Check ended.rc:0
>Running:(3.3.14.2):C:\Program Files (x86)\AutoIt3\autoit3.exe "C:\Users\Portatile-60\Documents\Documenti Lavoro\AutoIt\Database_Creator_CSV\Database_Creator_CSV.au3"    
--> Press Ctrl+Alt+Break to Restart or Ctrl+Break to Stop
"C:\Users\Portatile-60\Documents\Documenti Lavoro\AutoIt\Database_Creator_CSV\Database_Creator_CSV.au3" (619) : ==> The requested action with this object has failed.:
$oWorkbook.Sheets("RD-DIG").Activate
$oWorkbook^ ERROR
->13:58:38 AutoIt3.exe ended.rc:1
+>13:58:38 AutoIt3Wrapper Finished.
>Exit code: 1    Time: 22.46

 

[water]

Seems we need a COM error handler!

Local $oErrorHandler = ObjEvent("AutoIt.Error", "_ErrFunc")

; Your code goes here

Func _ErrFunc($oError)
    ; Do anything here.
    ConsoleWrite(@ScriptName & " (" & $oError.scriptline & ") : ==> COM Error intercepted !" & @CRLF & _
            @TAB & "err.number is: " & @TAB & @TAB & "0x" & Hex($oError.number) & @CRLF & _
            @TAB & "err.windescription:" & @TAB & $oError.windescription & @CRLF & _
            @TAB & "err.description is: " & @TAB & $oError.description & @CRLF & _
            @TAB & "err.source is: " & @TAB & @TAB & $oError.source & @CRLF & _
            @TAB & "err.helpfile is: " & @TAB & $oError.helpfile & @CRLF & _
            @TAB & "err.helpcontext is: " & @TAB & $oError.helpcontext & @CRLF & _
            @TAB & "err.lastdllerror is: " & @TAB & $oError.lastdllerror & @CRLF & _
            @TAB & "err.scriptline is: " & @TAB & $oError.scriptline & @CRLF & _
            @TAB & "err.retcode is: " & @TAB & "0x" & Hex($oError.retcode) & @CRLF & @CRLF)
EndFunc   ;==>_ErrFunc

 

[FrancescoDiMuro]

8 minutes ago, water said:

Seems we need a COM error handler!

Local $oErrorHandler = ObjEvent("AutoIt.Error", "_ErrFunc")

; Your code goes here

Func _ErrFunc($oError)
    ; Do anything here.
    ConsoleWrite(@ScriptName & " (" & $oError.scriptline & ") : ==> COM Error intercepted !" & @CRLF & _
            @TAB & "err.number is: " & @TAB & @TAB & "0x" & Hex($oError.number) & @CRLF & _
            @TAB & "err.windescription:" & @TAB & $oError.windescription & @CRLF & _
            @TAB & "err.description is: " & @TAB & $oError.description & @CRLF & _
            @TAB & "err.source is: " & @TAB & @TAB & $oError.source & @CRLF & _
            @TAB & "err.helpfile is: " & @TAB & $oError.helpfile & @CRLF & _
            @TAB & "err.helpcontext is: " & @TAB & $oError.helpcontext & @CRLF & _
            @TAB & "err.lastdllerror is: " & @TAB & $oError.lastdllerror & @CRLF & _
            @TAB & "err.scriptline is: " & @TAB & $oError.scriptline & @CRLF & _
            @TAB & "err.retcode is: " & @TAB & "0x" & Hex($oError.retcode) & @CRLF & @CRLF)
EndFunc   ;==>_ErrFunc

 

What a nice thing Can you please explain this nice thing?  
Meanwhile, the result:
 

Database_Creator_CSV.au3 (65) : ==> COM Error intercepted !
    err.number is:      0x80020006
    err.windescription: Nome sconosciuto.

    err.description is:     
    err.source is:      
    err.helpfile is:    
    err.helpcontext is:     
    err.lastdllerror is:    0
    err.scriptline is:  65
    err.retcode is:     0x00000000

 

[water]

"Unknown name". Seems there is no sheet named "RD-DIG".
Could you try to activate the sheet by number?

Edited December 2, 2016 by water

[water]

The COM error handler calls a function whenever a COM error occurs.
With AutoIt 3.3.14.x you need a COM error handler because AutoIt now crashes with each COM error.
The Excel UDF contains a builtin COM error handler and ignores all errors.

 

[FrancescoDiMuro]

9 minutes ago, water said:

"Unknown name". Seems there is no sheet named "RD-DIG".
Could you try to activate the sheet by number?

The sheet "RD-DIG" does exist. I do the "sheet selection" by name  because the sheet in the file could be in a different order sometimes...
Should I try anyway this selection by number?

 

Quote

The COM error handler calls a function whenever a COM error occurs.
With AutoIt 3.3.14.x you need a COM error handler because AutoIt now crashes with each COM error.
The Excel UDF contains a builtin COM error handler and ignores all errors.

Thanks!  

Edited December 2, 2016 by FrancescoDiMuro

[water]

1 minute ago, FrancescoDiMuro said:

Should I try anyway this selection by number?

Yes, just to make sure we can access the sheet. If it works by number we will check what causes the problem to access the sheet by name.

[FrancescoDiMuro]

2 minutes ago, water said:

Yes, just to make sure we can access the sheet. If it works by number we will check what causes the problem to access the sheet by name.

Strangely, without changing the code and without changing anything inside the "source Excel", the error doesn not appear. 
This is my face now -> :/ 
Why? Ahahahahah

[water]

Perfect! As long as the problem stays away

[FrancescoDiMuro]

18 minutes ago, water said:

Perfect! As long as the problem stays away

Ahahahah, yes But there's no explanation about "Why that error did occur?" 
Thanks for your disposability, Water  

[water]