最近用delphi写一个查询数据库并自动生成excel报表的工具，发现网上很多关于delphi操作excel的介绍都是不正确的。下面就介绍一下在delphi 7中操作excel的一些基本方法：
把TExcelApplication,TExcelWorksheet,TExcelWorkbook拉到窗体上。
1.取得与excel引擎的连接
try
ExcelApplication1.Connect;
except
on Exception do raise exception.Create('无法创建Xls文件，请确认是否安装EXCEL');
end;
ExcelApplication1.Visible[1]:=true; //是否显示excel
2.取得所有打开的excel文件
for i:=1 to ExcelApplication1.Workbooks.Count do
begin
workbooks.Add(ExcelApplication1.Workbooks[i].Name);
end;
3.打开或新建工作薄
//连接指定路径下的excel文件
ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks.Open(path,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,0));
//连接已经打开的excel
ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks[i]);
//新建一个工作薄
ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks.Add(EmptyParam,0));
4.连接或新建表单
//新建表单
Temp_Worksheet:=ExcelWorkbook1.Worksheets.Add(EmptyParam,ExcelWorkbook1.Worksheets [3],EmptyParam,EmptyParam,0) as _WorkSheet;
ExcelWorksheet1.ConnectTo(Temp_Worksheet);
ExcelWorksheet1.Name:='abc' //更改表单的名字
//连接已存在的表单
ExcelWorksheet1.ConnectTo(ExcelWorkbook1.Sheets[1] as _WorkSheet);
5.对相应的单元格操作
ExcelWorksheet1.Cells.Item[1,1]:='abc' //对a1负值
ExcelWorksheet1.Range['a1','b1'].Merge(true); //水平合并单元格，false时为垂直合并
ExcelWorksheet1.Range['a1','b1'].HorizontalAlignment:=xlcenter;//水平居中
ExcelWorksheet1.Cells.Item[1,1].borders[5].LineStyle:=1;//画边框，1-左 2-右 3-顶 4-底 5-斜( \ ) 6-斜( / )
ExcelWorksheet1.Cells.Item[1,1].borders.LineStyle:=1;//画上下左右的边框
ExcelWorksheet1.Range['b1','d1'].Interior.Color:=rgb(255,0,0); //背景颜色
ExcelWorksheet1.Cells.Item[1,1].WrapText:=true; //自动换行
ExcelWorksheet1.Cells.Item[1,1].ColumnWidth:=15; //设置宽度
ExcelWorksheet1.Cells.Item[1,2].EntireColumn.insert(emptyparam);//插入列
ExcelWorksheet1.Cells.Item[2,1].EntireRow.insert(emptyparam); //插入行
6.保存并退出
ExcelApplication1.DisplayAlerts[LCID]:=false; //不提示保存，true时会提示保存
{for i:=1 to ExcelApplication1.Workbooks.Count do
begin
Excelapplication1.Workbooks[i].Save(LCID); //保存
end;}
ExcelApplication1.Quit;
ExcelApplication1.Disconnect;
9) 设置指定列的宽度（单位：字符个数），以第一列为例：
ExcelApplication1.ActiveSheet.Columns[1].ColumnsWidth := 5;
10) 设置指定行的高度（单位：磅）（1磅＝0.035厘米），以第二行为例：
ExcelApplication1.ActiveSheet.Rows[2].RowHeight := 1/0.035; // 1厘米
11) 在第8行之前插入分页符：
ExcelApplication1.WorkSheets[1].Rows[8].PageBreak := 1;
12) 在第8列之前删除分页符：
ExcelApplication1.ActiveSheet.Columns[4].PageBreak := 0;
13) 指定边框线宽度：
ExcelApplication1.ActiveSheet.Range[ 'B3:D4' ].Borders[2].Weight := 3;
1-左 2-右 3-顶 4-底 5-斜( \ ) 6-斜( / )
14) 清除第一行第四列单元格公式：
ExcelApplication1.ActiveSheet.Cells[1,4].ClearContents;
15) 设置第一行字体属性：
ExcelApplication1.ActiveSheet.Rows[1].Font.Name := '隶书';
ExcelApplication1.ActiveSheet.Rows[1].Font.Color := clBlue;
ExcelApplication1.ActiveSheet.Rows[1].Font.Bold := True;
ExcelApplication1.ActiveSheet.Rows[1].Font.UnderLine := True;
16) 进行页面设置：
a.页眉：
ExcelApplication1.ActiveSheet.PageSetup.CenterHeader := '报表演示';
b.页脚：
ExcelApplication1.ActiveSheet.PageSetup.CenterFooter := '第&P页';
c.页眉到顶端边距2cm：
ExcelApplication1.ActiveSheet.PageSetup.HeaderMargin := 2/0.035;
d.页脚到底端边距3cm：
ExcelApplication1.ActiveSheet.PageSetup.HeaderMargin := 3/0.035;
e.顶边距2cm：
ExcelApplication1.ActiveSheet.PageSetup.TopMargin := 2/0.035;
f.底边距2cm：
ExcelApplication1.ActiveSheet.PageSetup.BottomMargin := 2/0.035;
g.左边距2cm：
ExcelApplication1.ActiveSheet.PageSetup.LeftMargin := 2/0.035;
h.右边距2cm：
ExcelApplication1.ActiveSheet.PageSetup.RightMargin := 2/0.035;
i.页面水平居中：
ExcelApplication1.ActiveSheet.PageSetup.CenterHorizontally := 2/0.035;
j.页面垂直居中：
ExcelApplication1.ActiveSheet.PageSetup.CenterVertically := 2/0.035;
k.打印单元格网线：
ExcelApplication1.ActiveSheet.PageSetup.PrintGridLines := True;
17) 拷贝操作：
a.拷贝整个工作表：
ExcelApplication1.ActiveSheet.Used.Range.Copy;
b.拷贝指定区域：
ExcelApplication1.ActiveSheet.Range[ 'A1:E2' ].Copy;
c.从A1位置开始粘贴：
ExcelApplication1.ActiveSheet.Range.[ 'A1' ].PasteSpecial;
d.从文件尾部开始粘贴：
ExcelApplication1.ActiveSheet.Range.PasteSpecial;
18) 插入一行或一列：
a. ExcelApplication1.ActiveSheet.Rows[2].Insert;
b. ExcelApplication1.ActiveSheet.Columns[1].Insert;
19) 删除一行或一列：
a. ExcelApplication1.ActiveSheet.Rows[2].Delete;
b. ExcelApplication1.ActiveSheet.Columns[1].Delete;
20) 打印预览工作表：
ExcelApplication1.ActiveSheet.PrintPreview;
21) 打印输出工作表：
ExcelApplication1.ActiveSheet.PrintOut;
22) 工作表保存：
if not ExcelApplication1.ActiveWorkBook.Saved then
ExcelApplication1.ActiveSheet.PrintPreview;
23) 工作表另存为：
ExcelApplication1.SaveAs( 'C:\Excel\Demo1.xls' );
24) 放弃存盘：
ExcelApplication1.ActiveWorkBook.Saved := True;
25) 关闭工作簿：
ExcelApplication1.WorkBooks.Close;
26) 退出 Excel：
ExcelApplication1.Quit;
ExcelApplication1.Disconnect;
Delphi自带控件是速度比较慢，如果和xlsreadwrite结合来用，对excel的操作应该是比较方便了。
以上列举了一些对excel的基本操作。当然delphi对excel的操作很多，基本上在excel上手工可以做的操作，利用delphi也可以操作，例如：设置边框线条、线条宽度、字体、打印、使用excel函数等。望对刚开始使用这些控件的人有所帮助
