delphi自带Excel控件使用.docx

delphi自带Excel控件使用

展开全文

dephi自带的excel控件有TExcelApplication,TExcelWorkbook,TExcelWorkSheet.每个控件可以通过connetto方法和相应的部分结合起来。

下面是从dfw找到的一些基本操作方法：

1）??打开Excel

ExcelApplication1.Connect;

2)显示当前窗口：

ExcelApplication1.Visible[0]:=True;

3)更改Excel标题栏：

ExcelApplication1.Caption:=应用程序调用MicrosoftExcel;

4)添加新工作簿：

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

5)添加新工作表：

varTemp_Worksheet:_WorkSheet;

begin

Temp_Worksheet:=ExcelWorkbook1.

WorkSheets.Add(EmptyParam,EmptyParam,EmptyParam,EmptyParam,0)as_WorkSheet;

ExcelWorkSheet1.ConnectTo(Temp_WorkSheet);

End;

6)打开已存在的工作簿：

ExcelApplication1.Workbooks.Open(c:\a.xls

EmptyParam,EmptyParam,EmptyParam,EmptyParam,

EmptyParam,EmptyParam,EmptyParam,EmptyParam,

EmptyParam,EmptyParam,EmptyParam,EmptyParam,0)

7)设置第2个工作表为活动工作表：

ExcelApplication1.WorkSheets[2].Activate;??或

ExcelApplication1.WorksSheets[Sheet2].Activate;

8)给单元格赋值：

ExcelApplication1.Cells[1,4].Value:=第一行第四列;

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：

Excel