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

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