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

1、问题
对微软真实又爱又恨，爱的是很多东西很方便易用，恨的是慢和老是出现莫名其妙的错误。不明白为什么ExcelApplication1.Connect连接那么慢，而且会影响窗口的显示。所以在执行ExcelApplication1.Connect之前最好加一句Application.ProcessMessages。
 
2、的问题
要连接上一个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、 参考文档
Delphi与Excel的亲密接触 [王安鹏（anpengwang@263.net） 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