如何用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
