获取当前工作表

命令说明

获取指定Excel下已经激活的工作表

命令原型

objRet = Excel.CurrentSheet(objExcelWorkBook,bRetName)

命令参数

参数	必选	类型	默认值	说明
objExcelWorkBook	True	expression	objExcelWorkBook	使用 "打开Excel工作簿"命令（Excel.OpenExcel） 或 "绑定Excel工作簿" 命令（Excel.BindBook）返回的工作簿对象
bRetName	True	boolean	True	是否返回工作表名，为true返回表名，为false返回表索引

返回结果

objRet，将命令运行后的结果赋值给此变量。

运行实例

/*********************************获取当前工作表***************************************
命令原型：
    objRet = Excel.CurrentSheet(objExcelWorkBook,true)
入参：
    objExcelWorkBook--Excel工作簿对象（使用 "打开Excel"命令（Excel.OpenExcel） 打开的工作簿或使用"绑定Excel"命令（Excel.BindBook）绑定的工作簿对象）。
    bRetName--是否返回工作表名，为true返回表名，为false返回表索引
出参：
    objRet--将命令运行后的结果赋值给此变量。
注意事项：
    该命令不能单独使用，需配合 "打开Excel"命令（Excel.OpenExcel） 或"绑定Excel"命令（Excel.BindBook）一起使用才能正常使用，单独使用则会报错。
**********************************************************************************/
Dim objExcelWorkBook = ""
objExcelWorkBook = Excel.OpenExcel(@res'''测试.xls''',true,"WPS","","")
objRet = Excel.CurrentSheet(objExcelWorkBook,true)
TracePrint "获取当前工作表：获取Excel对象当前打开的工作表"
Excel.CloseExcel(objExcelWorkBook,True)

可视化样例