oExcel.cells.Select
oExcel.Selection.ClearContents

eole=CREATEOBJECT('Excel.application')
eole.SheetsInNewWorkbook=1
eole.Workbooks.add
eole.WorkSheets("Sheet1").Name="新表"
eole.visible=.t.
FOR I=1 TO 10
    eole.Cells(I,5).Value=REPLICATE(CHR(64+I),10)
ENDFOR
*!*    eole.ActiveSheet.Range("E1").Select
*!*    eole. ActiveSheet.Range("E1").Clear
EOLE.cells.Select
EOLE.Selection.ClearContents

没有楼主所说的提示框出现

谢谢版主，不好意思我的代码没放全，可能是关闭表示出现的提示框，没有做删除时没提示框！
oExcel.ActiveWorkbook.save
oExcel.ActiveSheet.PrintOut
oExcel.Selection.ClearContents
oExcel.Workbooks.CLOSE
oExcel.QUIT
RELEASE oExcel

把语句 oExcel.ActiveWorkbook.save 调换一下，关键是调到oExcel.Workbooks.CLOSE前，目的保证此后再没修改EXCEL表的动作。
如
oExcel.ActiveSheet.PrintOut
oExcel.Selection.ClearContents

oExcel.ActiveWorkbook.save
oExcel.Workbooks.CLOSE
oExcel.QUIT
RELEASE oExcel

oExcel.DisplayAlerts = .F.  &&加这条命令试试
oExcel.ActiveWorkbook.save
oExcel.ActiveSheet.PrintOut
oExcel.Selection.ClearContents
oExcel.Workbooks.CLOSE
oExcel.QUIT
RELEASE oExcel

EOLE=CREATEOBJECT('EXCEL.APPLICATION')
EOLE.SHEETSINNEWWORKBOOK=1
EOLE.WORKBOOKS.ADD
EOLE.WORKSHEETS("SHEET1").NAME="新表"
FOR I=1 TO 10
    EOLE.CELLS(I,5).VALUE=REPLICATE(CHR(64+I),10)
ENDFOR
EOLE.CELLS.SELECT
EOLE.SELECTION.CLEARCONTENTS
EOLE.ACTIVEWORKBOOK.CLOSE(.F.)
EOLE.QUIT
RELEASE EOLE

谢谢，很管用

很管用。十分感谢