欢迎来到Doc100.Net免费学习资源知识分享平台!
您的位置:首页 > 程序异常 >

怎么用vfp 命令删除工作簿中电子表格名字为sheet的表

更新时间: 2014-01-05 02:27:38 责任编辑: Author_N1

 

如何用vfp 命令删除工作簿中电子表格名字为sheet的表?
如何用vfp 命令删除工作簿中电子表格名字为sheet的表?
假设有10张表,其中4张表名为sheet1,sheet3,sheet7,sheet10,其余为汉字表名,怎样一次删除表名为
sheet的4张表?
--参考方法--
大概这样就可以

oExcel = NewObject('Excel.Application')
oExcel.Workbooks.Open(GetFile('xls'))
oExcel.Sheets('Sheet1').Delete()
oExcel.Sheets('Sheet3').Delete()
oExcel.Sheets('Sheet7').Delete()
oExcel.DisplayAlerts = .f.
oExcel.Save()
oExcel.Quit()

--参考方法--
_ole_excel = CreateObject("Excel.Application") 
_ole_excel.VISIBLE=.T.
_ole_excel.WorkBooks.Open('TEMP.xls') 
FOR each ff IN _ole_excel.Worksheets
IF AT('sheet',ff.name)>0
_ole_excel.Sheets(ff.name).Delete()
ENDIF
NEXT
上一篇:上一篇
下一篇:下一篇

 

随机推荐程序问答结果

 

 

如对文章有任何疑问请提交到问题反馈,或者您对内容不满意,请您反馈给我们DOC100.NET论坛发贴求解。
DOC100.NET资源网,机器学习分类整理更新日期::2014-01-05 02:27:38
如需转载,请注明文章出处和来源网址:http://www.doc100.net/bugs/t/10067/
本文WWW.DOC100.NET DOC100.NET版权所有。