如何取得当前EXCEL表中工作表的数目及各工作表的名称?
---------------------------------------------------------------
CLEAR
LOCAL lnSheetCount
EOLE=CREATEOBJECT("EXCEL.APPLICATION") &&创建Excel对象
EOLE.WORKBOOKS.OPEN("c:\111\321.xls") &&打开指定工作簿
WITH EOLE
lnSheetCount=.WorkBooks(1).Sheets.Count &&统计工作表数量
ENDWITH
?'当前EXCEL表中工作表的数目为:'+ALLTRIM(STR(lnSheetCount))
FOR EACH oMyVar IN eole.sheets
?'当前EXCEL表中工作表的名称分别为'+oMyVar.name
&&显示Excel表中所有工作表
NEXT oMyVar
EOLE.WORKBOOKS.CLOSE &&关闭工作簿
EOLE.QUIT &&退出Excel
如何取得当前EXCEL表中工作表的数目及各工作表的名称?
comments powered by Disqus