Gibt eine Liste aller Arbeitsblätter des angegebenen Arbeitsbuches zurück
#include <Excel.au3>
_Excel_SheetList ( $oWorkbook )
$oWorkbook | Ein Arbeitsbuch-Objekt |
Erfolg: | Ein 2D, 0 basiertes Array mit der folgenden Information: 0 - Name des Arbeitsblattes 1 - Objekt des Arbeitsblattes |
Fehler: | 0 und setzt @error. |
@error: | 1 - $oWorkbook ist kein Objekt oder kein Arbeitsbuch-Objekt |
#include <Array.au3>
#include <Excel.au3>
#include <MsgBoxConstants.au3>
; Erstellt das Anwendungsobjekt und öffnet eine Arbeitsmappe
Local $oExcel = _Excel_Open()
If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Excel UDF: _Excel_SheetList Beispiel 1", "Fehler beim Erstellen des Excel-Anwendungsobjekts." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
Local $oWorkbook = _Excel_BookOpen($oExcel, @ScriptDir & "\Extras\_Excel2.xls")
If @error Then
MsgBox($MB_SYSTEMMODAL, "Excel UDF: _Excel_SheetList Beispiel 1", "Fehler beim Öffnen der Arbeitsmappe '" & @ScriptDir & "\Extras\_Excel2.xls'." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
_Excel_Close($oExcel)
Exit
EndIf
; Zeigt eine Liste aller Arbeitsblätter für eine bestimmte Arbeitsmappe an
Local $aWorkSheets = _Excel_SheetList($oWorkbook)
If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Excel UDF: _Excel_SheetList Beispiel 1", "Fehler beim Auflisten von Arbeitsblättern." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
_ArrayDisplay($aWorkSheets, "Excel UDF: _Excel_SheetList Beispiel 1")