操作一个已存在Excel文件,里面有多个Sheet,利用Delphi打开这个Excel文件,在每个Sheet中的最后增加一行(每个Sheet行数不确定)Delphi里如何操作?谢谢!
解决方案 »
- winhttp---winhttpcertcfg造成的困惑
- 请教怎样对一个文本文件里的内容排序,数据量很大.提供点思路.
- 要用vc++调用一个delphi的dll,不会调了。不知道函数声明在c++里怎么写?哪位能帮帮忙?
- 求救:使用IDFTP下载文件列表的问题!!!
- 为什么不能设置断点??
- 请问从数据库中读取信息,以树型控件显示三层结构(省,市,公司)过程!!!!??
- 数据连接菜鸟问题之三:为什么SQL语句中要使用''
- 100分相赠:如何做一个系统,能读取和保存图片。开发工具Delphi,数据库用Access
- 各位 delphi7 那个控件支持解析 XSLT 语言?
- 东北还冷真冷,把我冻够呛的,冬天再也不来东北啦
- 请教串口通讯的速度问题!
- 如何在客户机上获取IIS服务器用ASP输出的文本?谢谢大家!
var
i,m:integer;
excelapp,book,sheet:variant;
begin
excelapp:=createoleobject('excel.application');
excelapp.visible:=false;
excelapp.DisplayAlerts:=False;
try excelapp.workbooks.open('d:\123.xls');
book:=excelapp.workbooks[1]; i:=book.worksheets.count;
showmessage(inttostr(i)); for i:=1 to book.worksheets.count do
begin
sheet:=excelapp.worksheets[i];
m:=sheet.usedrange.rows.count;
showmessage(inttostr(m));
sheet.cells[m+1,1].value:='new new';
end; book.save;
excelapp.quit;
except
excelapp.quit;
end;
end;