Excelfunktionen funktionieren teilweise nicht mehr

**Tweaky**

Hi,
bis vor kurzem hatte ich Win XP 32bit und Office 2010 32bit.
Damit funktionierte folgendes Skript

Spoiler anzeigen

[autoit]

#include <Array.au3>
#include <Excel.au3>
$sFilePath1 = "E:\Mappe1.xlsm" ; Diese Datei sollte bereits existieren
$oExcel = _ExcelBookOpen($sFilePath1)

[/autoit] [autoit][/autoit] [autoit]

$namen = _ExcelReadSheetToArray($oExcel, 1, 1, 10, 1) ;funktioniert
ConsoleWrite(@error & @CRLF)
ConsoleWrite(@extended & @CRLF & @CRLF)
_ArrayDisplay($namen)
$namen = _ExcelReadSheetToArray($oExcel, 1, 1, 100, 1) ;funktioniert nicht @error = 3
ConsoleWrite(@error & @CRLF)
ConsoleWrite(@extended & @CRLF & @CRLF)
_ArrayDisplay($namen)
$namen = _ExcelReadSheetToArray($oExcel, 2, 1, 10, 1) ;funktioniert nicht @error = 3
ConsoleWrite(@error & @CRLF)
ConsoleWrite(@extended & @CRLF & @CRLF)
_ArrayDisplay($namen)

[/autoit] [autoit][/autoit] [autoit]

_ExcelBookClose($oExcel) ;funktioniert gar nicht @error = 1
ConsoleWrite(@error & @CRLF)

[/autoit]

Nun bin ich auf Win 7 64bit umgestiegen.
Nun geht im Bsp bei 2 von 3 Fällen ExcelReadSheetToArray nicht mehr.
Außerdem funktioniert ExcelBookClose nicht mehr.

Kann dies mal einer testen, ob ihr das gleiche Problem habt?

Danke

**BugFix**

Mir gefällt diese Funktion sowieso nicht und deshalb hatte ich mir eine geschrieben, die nicht absolut adressiert, sondern relativ zur ersten Zelle (A1) ausliest.
Teste mal, ob das läuft.

_ExcelSheetToArray

[autoit]

Func _ExcelSheetToArray(ByRef $oExcel, $vSheet=1, $iRowStart=1, $iColStart=1)
; by BugFix
If Not IsObj($oExcel) Then Return SetError(1,0,0)
$oExcel.ActiveWorkbook.Sheets($vSheet).Select()
Local $RowCount = $oExcel.Worksheets($vSheet).UsedRange.Rows.Count
Local $ColCount = $oExcel.Worksheets($vSheet).UsedRange.Columns.Count
If $iRowStart > $RowCount Or $iColStart > $ColCount Then Return SetError(2,0,0)
Local $aOut[$RowCount-($iRowStart-1)][$ColCount-($iColStart-1)]
For $i = 0 To UBound($aOut) -1
For $j = 0 To UBound($aOut,2) -1
$aOut[$i][$j] = $oExcel.Range("A1").Offset($i +($iRowStart-1), $j +($iColStart-1)).Value
Next
Next
Return $aOut
EndFunc

[/autoit]

Ich habe Win7 Pro 32bit, da funktioniert ExcelBookClose.

**Tweaky**

Danke damit gehts.
Nur habe ich das Problem, dass mit deiner Funktion immer das komplette Blatt erfasst wird.
Bei mir sinds viele Einträge.
Da wäre die Definition eines Bereichs sehr sinnvoll.

Ich werd mal wegen den beiden Problemen was in deren Bugtracker schreiben

**BugFix**

Zitat von Tweaky

Da wäre die Definition eines Bereichs sehr sinnvoll.

OK, dadran soll es nicht scheitern. Ich werde die Funktion dahingehend erweitern.

Edit:
So, Funktion nun so erweitert, dass nur bestimmte Bereiche ausgelesen werden können:

_ExcelSheetToArray

[autoit]

; z.B.
; Auslesen "B3:D10": $array = _ExcelSheetToArray($oExcel, 1, 'B3:D10')
; Auslesen "A1 bis letzte belegte Zelle": $array = _ExcelSheetToArray($oExcel)
; Auslesen "C2 bis letzte belegte Zelle": $array = _ExcelSheetToArray($oExcel, 1, 'C2:')

[/autoit] [autoit][/autoit] [autoit]

Func _ExcelSheetToArray(ByRef $oExcel, $vSheet=1, $sRange='A1:') ; $sRange 'A1:' ==> A1 bis Ubound
; by BugFix
If Not IsObj($oExcel) Then Return SetError(1,0,0)
$oExcel.ActiveWorkbook.Sheets($vSheet).Select()
Local $iRowStart = 1, $vColStart = 1
Local $iRowEnd = $oExcel.Worksheets($vSheet).UsedRange.Rows.Count
Local $vColEnd = $oExcel.Worksheets($vSheet).UsedRange.Columns.Count
If $sRange <> 'A1:' Then
Local $ret, $sTmp = StringSplit($sRange, ':')
If $sTmp[2] <> '' Then
$ret = StringRegExp($sTmp[2], '([a-zA-Z]+)(\d+)', 3)
$vColEnd = __LetterToColNr($ret[0])
$iRowEnd = $ret[1]
EndIf
$ret = StringRegExp($sTmp[1], '([a-zA-Z]+)(\d+)', 3)
$vColStart = __LetterToColNr($ret[0])
$iRowStart = $ret[1]
EndIf
If $iRowStart > $iRowEnd Or $vColStart > $vColEnd Then Return SetError(2,0,0)
Local $aOut[$iRowEnd-$iRowStart +1][$vColEnd-$vColStart +1]
For $i = 0 To UBound($aOut) -1
For $j = 0 To UBound($aOut,2) -1
$aOut[$i][$j] = $oExcel.Range("A1").Offset($i +$iRowStart -1, $j +$vColStart -1).Value
Next
Next
Return $aOut
EndFunc

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func __LetterToColNr($sLetter) ; === Spaltenadresse zu Nummer
; by BugFix
If StringLen($sLetter) = 1 Then Return Asc(StringUpper($sLetter)) -64
Return (Asc(StringUpper(StringLeft($sLetter, 1)))-64)*26 + (Asc(StringUpper(StringRight($sLetter, 1)))-64)
EndFunc

[/autoit]

**water**

Zitat von Tweaky

Nun bin ich auf Win 7 64bit umgestiegen.
Nun geht im Bsp bei 2 von 3 Fällen ExcelReadSheetToArray nicht mehr.
Außerdem funktioniert ExcelBookClose nicht mehr.

Dieses Problem hatte ich auch. Liegt daran, dass das Betriebssystem 64bit, Office aber vermutlich 32Bit ist.
Compiliere das Skript mal für 32Bit und das ExcelBookClose Problem sollte behoben sein.

**Tweaky**

Danke BugFix,
funktioniert einwandfrei.

Danke water,
hast recht dann geht es