_Excel_RangeFind - Fehler seit 3.3.14.1

**Tweaky**

Hi,
seit ich auf 3.3.14.1 umgestiegen bin funktioniert _Excel_RangeFind nicht mehr. In 3.3.12.0 klappt es.

So kommt bei dem Beispiel aus der Hilfe

Spoiler anzeigen

AutoIt

#include <Array.au3>
#include <Excel.au3>
#include <MsgBoxConstants.au3>


; Create application object and open an example workbook
Local $oExcel = _Excel_Open()
If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Excel UDF: _Excel_RangeFind Example", "Error creating the Excel application object." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
Local $oWorkbook = _Excel_BookOpen($oExcel, @ScriptDir & "\Extras\_Excel1.xls")
If @error Then
	MsgBox($MB_SYSTEMMODAL, "Excel UDF: _Excel_RangeFind Example", "Error opening workbook '" & @ScriptDir & "\Extras\_Excel1.xls'." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
	_Excel_Close($oExcel)
	Exit
EndIf


; *****************************************************************************
; Find all occurrences of value "37000" (partial match)
; *****************************************************************************
Local $aResult = _Excel_RangeFind($oWorkbook, "37000")
If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Excel UDF: _Excel_RangeFind Example 1", "Error searching the range." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
MsgBox($MB_SYSTEMMODAL, "Excel UDF: _Excel_RangeFind Example 1", "Find all occurrences of value '37000' (partial match)." & @CRLF & "Data successfully searched.")
_ArrayDisplay($aResult, "Excel UDF: _Excel_RangeFind Example 1", "", 0, "|", "Sheet|Name|Cell|Value|Formula|Comment")'

Alles anzeigen

folgender Fehler:

AutoIt

"C:\Program Files (x86)\AutoIt3\Include\Excel.au3" (656) : ==> The requested action with this object has failed.:
$aResult[$iIndex][1] = $oMatch.Name.Name
$aResult[$iIndex][1] = $oMatch^ ERROR

Ich nutze wie vorher auch Office 2010 32bit SP2 unter Win 7 64Bit SP1.

**autoBert**

Auch unter Win 8.1 64 und Office 2015 kommt der gleiche Fehler. Scheint ein Bug in der Excel.au3 zu sein.

**water**

Sorry, hatte noch keine Zeit zu testen.
Das liegt ziemlich sicher an der Art und Weise, wie nun COM Fehler behandelt werden.
Muss ich mir ansehen. Kann aber etwas dauern, da ich im Stres bin.
Workaround: Zurück auf die 3.3.12.0

**water**

Könnt Ihr bitte am Anfang von _Excel_RangeFind folgende Zeilen einfügen:

Code

; Error handler, automatic cleanup at end of function
	Local $oError = ObjEvent("AutoIt.Error", "__Excel_COMErrFunc")

Dann sollte es eigentlich funktionieren.

**Tweaky**

Danke für die schnelle Antwort @water,
leider klappt es auch dann nicht.
Es kommt dann folgende Fehlermeldung.

AutoIt

"C:\Program Files (x86)\AutoIt3\Include\Excel.au3" (662) : ==> The requested action with this object has failed.:
$aResult[$iIndex][5] = $oMatch.Comment.Text
$aResult[$iIndex][5] = $oMatch.Comment^ ERROR

**autoBert**

Code

>"C:\Program Files\AutoIt3\SciTE\AutoIt3Wrapper\AutoIt3Wrapper.exe" /run /prod /ErrorStdOut /in "C:\Program Files\AutoIt3\Examples\Helpfile\_Excel_RangeFind.au3" /UserParams C:\Users\Bert\AutoIt3.My\Temp\musterdatei_UTF-8.txt   
+>15:41:45 Starting AutoIt3Wrapper v.14.801.2025.0 SciTE v.3.4.4.0   Keyboard:00000407  OS:WIN_81/  CPU:X64 OS:X64    Environment(Language:0407)
+>         SciTEDir => C:\Program Files\AutoIt3\SciTE   UserDir => C:\Users\Bert\AppData\Local\AutoIt v3\SciTE\AutoIt3Wrapper   SCITE_USERHOME => C:\Users\Bert\AppData\Local\AutoIt v3\SciTE 
>Running AU3Check (3.3.14.1)  from:C:\Program Files\AutoIt3  input:C:\Program Files\AutoIt3\Examples\Helpfile\_Excel_RangeFind.au3
+>15:41:45 AU3Check ended.rc:0
>Running:(3.3.14.1):C:\Program Files\AutoIt3\autoit3.exe "C:\Program Files\AutoIt3\Examples\Helpfile\_Excel_RangeFind.au3" C:\Users\Bert\AutoIt3.My\Temp\musterdatei_UTF-8.txt   
--> Press Ctrl+Alt+Break to Restart or Ctrl+Break to Stop
"C:\Program Files\AutoIt3\Include\Excel.au3" (662) : ==> The requested action with this object has failed.:
$aResult[$iIndex][5] = $oMatch.Comment.Text
$aResult[$iIndex][5] = $oMatch.Comment^ ERROR
->15:41:48 AutoIt3.exe ended.rc:1
+>15:41:48 AutoIt3Wrapper Finished.
>Exit code: 1    Time: 3.169

Alles anzeigen

**water**

Workaround:

Code

$aResult[$iIndex][5] = $oMatch.Comment.Text

auf

Code

If IsObj($oMatch.Comment) Then $aResult[$iIndex][5] = $oMatch.Comment.Text

ändern!

**Tweaky**

Danke water, funktioniert einwandfrei

BananaJoe

Bei mir kommt immer noch diese Fehlermeldung:

AutoIt

"C:\Program Files (x86)\AutoIt3\Include\Excel.au3" (656) : ==> The requested action with this object has failed.:
$aResult[$iIndex][1] = $oMatch.Name.Name
$aResult[$iIndex][1] = $oMatch^ ERROR

**Tweaky**

du musst noch die Einstellungen aus Post 4 dieses Threads durchführen

BananaJoe

OK, jetzt läufts. Danke

**water**

Leider nur ein Workaround und keine permanente Lösung. Ich wende mich mal an Jon wegen eines dauerhaften Fixes.

dartrax

Moin!
Ich klinke mich hier mal ein, da ich ebenfalls auf dieses Problem gestoßen und an einem dauerhaften Fix interessiert bin.
Gibt es etwas neues?

**water**

Im engl. Forum gibt es einen Thread mit allen gefixten Funktionen. Denn bis zum nächsten offiziellen Release dauert es vermutlich noch einige Zeit
https://www.autoitscript.com/forum/topic/18…r-autoit-33120/