使用表名称或编号删除指定表.
#Include <Excel.au3>
_ExcelSheetDelete($oExcel, $vSheet [, $fAlerts = False])
| $oExcel | 由前面调用 _ExcelBookOpen() 或者 _ExcelBookNew() 函数返回的 Excel 对象 |
| $vSheet | 要删除的表名称或编号 |
| $fAlerts | [可选参数] 允许提示模式 ( True 或 False) (默认 = False) |
| 成功: | 返回 1 |
| 失败: | 返回 0, 并设置 @error |
| @error: | 0 - 无错误 |
| 1 - 指定的对象不存在 | |
| 2 - 指定的表编号不存在 | |
| 3 - 指定的表名称不存在 |
; ***************************************************************
; 示例 1 - 打开工作簿并返回其对象标识符后, 根据字符串名删除一个工作表
; *****************************************************************
#include <Excel.au3>
Local $oExcel = _ExcelBookNew() ;创建新工作簿, 并使其可见
_ExcelSheetDelete($oExcel, "Sheet1") ;根据表示工作表名称的字符串删除相应的工作表
MsgBox(4096, "Exiting", "Press OK to Save File and Exit")
_ExcelBookSaveAs($oExcel, @TempDir & "\Temp.xls", "xls", 0, 1) ; 现在我们把它保存到临时目录; 必要时覆盖文件
_ExcelBookClose($oExcel) ; 最后我们关闭并退出
; ***************************************************************
; 示例 2 - 打开工作簿并返回其对象标识符后, 根据索引值删除相应的工作表
; *****************************************************************
#include <Excel.au3>
$oExcel = _ExcelBookNew() ;创建新工作簿, 并使其可见
_ExcelSheetDelete($oExcel, 1) ;根据工作表名称的索引值删除相应的工作表
MsgBox(4096, "Exiting", "Press OK to Save File and Exit")
_ExcelBookSaveAs($oExcel, @TempDir & "\Temp.xls", "xls", 0, 1) ; 现在我们把它保存到临时目录; 必要时覆盖文件
_ExcelBookClose($oExcel) ; 最后我们关闭并退出