EXCEL表格处理问题:做删除操作时如何不让EXCEL弹出提示框?
oExcel.cells.SelectoExcel.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没有楼主所说的提示框出现
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