• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    公众号

Delphi使用server组件控制excel的一点经验

原作者: [db:作者] 来自: [db:来源] 收藏 邀请

近来的项目报表全部做成excel文件,方便很多。可惜的是delphi中的server组件没有帮助,只能靠网上的资料和自己的摸索。经过一段时间,积累了一点经验,写出来希望对大家有所帮助。近来在网上搜索到TXLSRead and TXLSWrite两个组件操作excel更加方便,但是还没研究过,大家有兴趣可以研究一下。

 

 

 

1、  Connect问题

对微软真实又爱又恨,爱的是很多东西很方便易用,恨的是慢和老是出现莫名其妙的错误。不明白为什么ExcelApplication1.Connect连接那么慢,而且会影响窗口的显示。所以在执行ExcelApplication1.Connect之前最好加一句Application.ProcessMessages

 

 

 

2、  ExcelWorksheet1.ConnectTo的问题

要连接上一个worksheet,需要三个步骤:

ExcelApplication1.Connect

ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks.Add(EmptyParam,0));

ExcelWorksheet1.ConnectTo(ExcelWorkbook1.Sheets[1] as _worksheet);

第一个步骤是连接到Excel

第二个步骤是创建新的excel,并将ExcelWorkbook1组件连接到这个新的excel,如果是打开一个已存在的excel文件请用:

ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks.Open(excel文件名及路径,

EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,

EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,0));

第三个步骤就是ExcelWorksheet1组件连接到要读写的工作表,比较容易忽略的就是红色字部分(as _worksheet),如果没有,编译时是肯定通不过的。

 

 

 

3、  保存文件

    保存文件根据网上的资料测试过不少,可惜有些不行,老编译不过。可能是自己没仔细研究,代码写得不对。现在只用以下这句:

ExcelApplication1.ActiveWorkBook.Close(True,CurrentPath+CurrentFile,EmptyParam, 0);

 

 

 

4、  设置单元格格式为文本

    Excel的一个问题就是将000001这些文本也当成数字了,最后显示为1,所以要设置单元格的格式为文本才行。在大富翁论坛找到了答案,就是:

Cells.Item[行号,列号].NumberFormatLocal:='@';

还有一种办法就是:ells.Item[行号,列号].style:='';

后面那个关键词找不到,用Normal不行,用Text也不行,找不到资料,也就没深究下去。

 

 

 

5、  获取工作簿中所有工作表

        for i:=1 to ExcelWorkbook1.Sheets.Count do

        begin

            ExcelWorksheet1.ConnectTo(ExcelWorkbook1.Sheets[i] as _WorkSheet);

            cbList.Items.Add(ExcelWorksheet1.Name);

            ExcelWorksheet1.Disconnect;

        end;

 

 

 

6、  获取工作表中已经使用的行数和列数

获取列数并取得列标题(如果有标题行且是第一行)

    ColCount:=ExcelWorksheet1.UsedRange[0].Columns.Count;

    if ColCount>0 then

    begin

        for I:=1 to ColCount do

        begin

            ListString:=ExcelWorksheet1.UsedRange[0].Cells.Item[1,I];

            ListString:=''+IntToStr(I)+''+ListString;

        end;

    end;

    在这里要注意的地方就是一定要用变量保存信息,如果直接在循环中使用ExcelWorksheet1.UsedRange[0].Columns.Count,编译通过不了,下面获取标题行的值也是,直接使用也是不行。

    获取行数:

    RowCount:=ExcelWorksheet1.UsedRange[0].Rows.Count;

    如果有标题行,别忘记将行数减1。循环时也要从第二行开始。

 

 

 

7、  参考文档

DelphiExcel的亲密接触 [王安鹏([email protected] 2002/4/14]

链接:http://www.zahui.com/html/2/4846.htm

 

 

 

Delphi控制Excel2000心得 [tiexinliu (铁心刘)  2003-10-15 10:45:11]

链接:http://search.csdn.net/Expert/topic/2357/2357198.xml?temp=.6645929


鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
上一篇:
matlab中repmat函数的用法(堆叠矩阵)发布时间:2022-07-18
下一篇:
Matlab之矩阵发布时间:2022-07-18
热门推荐
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap