急,删除一个worksheet(100分)

  • 主题发起人 主题发起人 wangfangzhen
  • 开始时间 开始时间
W

wangfangzhen

Unregistered / Unconfirmed
GUEST, unregistred user!
代码如下:
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;

但就是删除不掉,请高手指点一下
 
提示什么错误?
创建的Excel如果只有一个sheet,该sheet不可以删除吧
 
删除了啊
 
我的怎么删除不了啊,没有提示任何错误,请指点....
 
删除正常啊,什么问题也没有。您查一下您的Model.XLS,必须有一张以上的工作表才行,否则会出错,而且也不能删除。
 
那就奇怪了,我的Model.xls有很多张工作表呀,就是删除不了呀,不知道什么原因呀
 
录制一个删除的宏,用宏的语句代入试试
 
这个试过呀,跟我的代码一样呀,不知道是什么问题,就是删除不了......
 
查office的版本,高版本建的xls可能在低版本编译的程序中删除不了。
 
果然是版本的问题,我用的是2003,这个问题怎么解决呀
 
如果是版本问题那先存一次盘,再操作怎么样,或直接就把未删除的sheet拷贝到新的文件
,关闭老的,用新的覆盖保存
 
这个办法不太好,有没有办法可以直接删除的?
 
是不是要Uses不同版本的单元文件呢
楼主可以查一下
 
还有就是有些Excel版本删除的时候总是弹出"确认删除窗口",怎么样让它不弹出窗口?
 
office2003版的文档要选用office2000单元文件。删除时的提示是可以关掉的,您查一查vba就知道了。
 
后退
顶部