库存管理软件版1楼: 代码如下:
var
mExcelApplication,mExcelWorkbook,mExcelWorkSheet:OleVariant;
begin
mExcelApplication:=createoleobject(＇＇Excel.Application＇＇);
mExcelApplication.Workbooks.Open(extractfilepath(application.ExeName)+＇＇＼Model.XLS＇＇,false);
mExcelApplication.Visible:=false;
mExcelWorkbook:=mExcelApplication.Workbooks[1];
mExcelWorkSheet := mExcelWorkbook.Sheets[1];
mExcelWorkSheet.Activate;
mExcelWorkSheet.Delete;
mExcelApplication.Workbooks[1].save;
mExcelApplication.Workbooks[1].Close;
mExcelApplication.Quit;
mExcelApplication:= unassigned;

但就是删除不掉,请高手指点一下

2楼: 提示什么错误？
创建的Excel如果只有一个sheet，该sheet不可以删除吧 如家庭记账软件

3楼: 删除了啊

4楼: 我的怎么删除不了啊,没有提示任何错误,请指点....

5楼: 删除正常啊，什么问题也没有。您查一下您的Model.XLS，必须有一张以上的工作表才行，否则会出错，而且也不能删除。

6楼: 那就奇怪了,我的Model.xls有很多张工作表呀,就是删除不了呀,不知道什么原因呀

库存管理软件版7楼: 录制一个删除的宏，用宏的语句代入试试

8楼: 这个试过呀,跟我的代码一样呀,不知道是什么问题,就是删除不了......

9楼: 查office的版本，高版本建的xls可能在低版本编译的程序中删除不了。

10楼: 果然是版本的问题,我用的是2003,这个问题怎么解决呀

11楼: 如果是版本问题那先存一次盘，再操作怎么样，或直接就把未删除的sheet拷贝到新的文件

，关闭老的，用新的覆盖保存

12楼: 这个办法不太好,有没有办法可以直接删除的？ 如进销存软件免费版

13楼: 是不是要Uses不同版本的单元文件呢
楼主可以查一下

库存管理软件版14楼: 还有就是有些Excel版本删除的时候总是弹出＂确认删除窗口＂,怎么样让它不弹出窗口？

15楼: office2003版的文档要选用office2000单元文件。删除时的提示是可以关掉的，您查一查vba就知道了。