Funktionreferenz

_Excel_BookList

Beschreibung anzeigen in

Gibt eine Liste von Arbeitsbüchern (Workbooks) von der angegebenen Excel Instanz zurück

#include <Excel.au3>
_Excel_BookList ( [$oExcel = Default] )

Parameter

$oExcel [optional] Das Objekt einer Excel Instanz (Standard = Schlüsselwort Default = verarbeite alle Excel Instanzen)

Rückgabewert

Erfolg: ein zweidimensionales, 0 basiertes Array mit den folgenden Informationen:
    0 - Objekt des Arbeitsbuches (Workbook)
    1 - Name des Arbeitsbuches/der Datei
    2 - Kompletter Pfad des Arbeitsbuches/der Datei
Fehler: 0 und setzt @error.
@error: 1 - $oExcel ist kein Objekt oder kein Anwendungs-Objekt

Beispiel

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

; Erstellt zwei Instanzen von Excel und öffnet in jeder Instanz eine Arbeitsmappe
Local $sWorkbook1 = @ScriptDir & "\Extras\_Excel1.xls", $sWorkbook2 = @ScriptDir & "\Extras\_Excel2.xls"
Local $oExcel1 = _Excel_Open()
If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Excel UDF: _Excel_BookList Beispiel 1", "Fehler beim Erstellen des Excel-Anwendungsobjekts." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
Local $oWorkbook1 = _Excel_BookOpen($oExcel1, $sWorkbook1)
If @error Then
    MsgBox($MB_SYSTEMMODAL, "Excel UDF: _Excel_BookList Beispiel 1", "Fehler beim Öffnen der Arbeitsmappe   '" & $sWorkbook1 & "'." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
    _Excel_Close($oExcel1)
    Exit
EndIf
Local $oExcel2 = _Excel_Open(Default, Default, Default, Default, True)
If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Excel UDF: _Excel_BookList Beispiel 1", "Fehler beim Erstellen des Excel-Anwendungsobjekts." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
Local $oWorkbook2 = _Excel_BookOpen($oExcel2, $sWorkbook2)
If @error Then
    MsgBox($MB_SYSTEMMODAL, "Excel UDF: _Excel_BookList Beispiel 1", "Fehler beim Öffnen der Arbeitsmappe '" & $sWorkbook2 & "'." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
    _Excel_Close($oExcel1)
    _Excel_Close($oExcel2)
    Exit
EndIf

; Zeigt eine Liste aller Arbeitsmappen aller Excel-Instanzen an
Local $aWorkBooks = _Excel_BookList()
If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Excel UDF: _Excel_BookList Beispiel 1", "Fehler bei Anzeige der Arbeitsmappen." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
_ArrayDisplay($aWorkBooks, "Excel UDF: _Excel_BookList Beispiel 1 - Liste der Arbeitsmappen aller Instanzen")