最近用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函数等。望对刚开始使用这些控件的人有所帮助