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