Löscht das angegebene Arbeitsblatt
#include <Excel.au3>
_Excel_SheetDelete ( $oWorkbook [, $vSheet = Default] )
| $oWorkbook | Ein Arbeitsbuch-Objekt |
| $vSheet | [optional] Das Arbeitsblatt, das gelöscht werden soll. Dies ist entweder Arbeitsblatt-Objekt, Arbeitsblatt-Name oder Nummer (default = keyword Default = aktives Worksheet) |
| Erfolg: | 1. |
| Fehler: | 0 und setzt @error. |
| @error: | 1 - $oWorkbook ist kein Objekt oder kein Arbeitsbuch-Objekt 2 - Angegebenes Arbeitsblatt existiert nicht. @extended ist auf den COM Fehlercode gesetzt 3 - Error trat beim Löschen des Arbeitsblattes auf. @extended ist auf den COM Fehlercode gesetzt |
#include "Extras\HelpFileInternals.au3"
#include <Excel.au3>
#include <MsgBoxConstants.au3>
; Erstellt das Anwendungsobjekt und öffnet eine Beispiel-Arbeitsmappe
Local $oExcel = _Excel_Open()
If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Excel UDF: _Excel_SheetDelete Beispiel 1", "Fehler beim Erstellen des Excel-Anwendungsobjekts." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
Local $oWorkbook = _Excel_BookOpen($oExcel, _Extras_PathFull("_Excel1.xls"))
If @error Then
MsgBox($MB_SYSTEMMODAL, "Excel UDF: _Excel_SheetDelete Beispiel 1", "Fehler beim Öffnen der Arbeitsmappe '" & _Extras_PathFull("_Excel1.xls") & "'." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
_Excel_Close($oExcel)
Exit
EndIf
; Löscht Blatt Nummer 1 der angegebenen Arbeitsmappe
_Excel_SheetDelete($oWorkbook, 1)
If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Excel UDF: _Excel_SheetDelete Beispiel 1", "Fehler beim Löschen eines Blatts." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
MsgBox($MB_SYSTEMMODAL, "Excel UDF: _Excel_SheetDelete Beispiel 1", "Das erste Blatt wurde gelöscht.")