用Delphi从数据库中取得资料,然后导出到Excel中做成报表是个不错的选择,因为Excel强大的报表功能那可是没话说
前提
Delphi中要
uses comobj;
var Excel:Variant;
一、Excel操作
1
.创建Excel对象
Excel :
=
CreateOleObject( Excel.Application );
2
.显示Excel
Excel.Visible:
=
true
;
3
.更改标题
Excel.Caption:
=
Excel的标题;
4
.退出Excel
Excel.Quit;
二、工作表操作
1
.添加新工作簿(刚创建的Excel对象是没有工作表的):
Excel.WorkBooks.Add;
2
.打开已存在的工作簿:
Excel.WorkBooks.Open( C:ExcelDemo.xls );
3
.设置第2个工作表为活动工作表:
Excel.WorkSheets[
2
].Activate;
或
Excel.WorksSheets[Sheet2].Activate;
4
.打印预览工作表:
Excel.ActiveSheet.PrintPreview;
5
.打印输出工作表:
Excel.ActiveSheet.PrintOut;
6
.工作表另存为:
Excel.SaveAs( C:ExcelDemo1.xls );
7
.判断是否已经保存:
if
not Excel.ActiveWorkBook.Saved then
Excel.ActiveSheet.PrintPreview;
8
.放弃存盘:
Excel.ActiveWorkBook.Saved :
=
True;
9
.关闭工作簿:
Excel.WorkBooks.Close;
10
.删除“表1”工作表:
Excel.Sheets(表1).delete;
11
.改“sheet1”工作表名为“
123
”
Excel.Sheets(Sheet1).Name :
=
123
;
三、行
/
列设置
1
.设置指定列的宽度(单位:字符个数),以第一列为例:
Excel.ActiveSheet.Columns[
1
].ColumnsWidth :
=
5
;
2
.设置指定行的高度(单位:磅)(1磅=
0
.035厘米),以第二行为例:
Excel.ActiveSheet.Rows[
2
].RowHeight :
=
1
/
0.035
;
//
1厘米
3
.插入一行或一列:
a. Excel.ActiveSheet.Rows[
2
].Insert;
b. Excel.ActiveSheet.Columns[
1
].Insert;
4
.删除一行或一列:
a. Excel.ActiveSheet.Rows[
2
].Delete;
b. Excel.ActiveSheet.Columns[
1
].Delete;
5
.自适应宽度
Excel.ActiveSheet.Columns[
1
].EntireColumn.AutoFit;
//
第一列
Excel.Cells.EntireColumn.AutoFit;
//
整个表所有列
Excel.ActiveSheet.Rows[
1
:
1
].EntireRow.AutoFit;
//
第一行
Excel.ActiveSheet.Columns[A:A].EntireColumn.AutoFit;
//
第一列
6
.居中显示J列
Excel.Columns[J:J].HorizontalAlignment:
=
3
;
7
.设置E列单元格式为3位小数数值
Excel.Columns[E:E].NumberFormatLocal:
=
#,##
0
.000_
8
.设置E列单元格式为文字
Excel.Columns[E:E].NumberFormatLocal:
=
@
四、单元格设置
1
.设置单元格线框
Excel.ActiveSheet.Range[B10:C13].Borders[N].LineStyle :
=
xlNone
Excel.ActiveSheet.Range[B10:C13].Borders[N].Weight :
=
xlThin
边框的类型 Borders[N]
xlEdgeLeft 左
=
1
xlEdgeRight 右
=
2
xlEdgeTop 顶
=
3
xlEdgeBottom 底
=
4
xlDiagonalUp 左上右下
=
5
xlDiagonalDown 左下右上
=
6
xlEdgeLeft 外部左边框
=
7
xlEdgeTop 外部上边框
=
8
xlEdgeBottom 外部下边框
=
9
xlEdgeRight 外部右边框
=
10
xlInsideVertical 内部竖线
=
11
xlInsideHorizontal 内部横线
=
12
线条类型LineStyle,宽度Weight
第7种
=
1
,
1
第6种
=
2
,
2
第3种
=
3
,
2
第6种
=
4
,
2
第4种
=
5
,
2
第9种
=
6
,
3
第12种
=
1
,
3
第13种
=
1
,
4
第2种
=
2
,
1
单条线的LineStyle :
=
xlContinuous
双条线的LineStyle :
=
xlDouble
虚线 xlHairline
1
实线 xlThin
中实线 xlMedium
粗实线 xlThick
XLLineStyle等值参考Excel里面的VisualBasic对象浏览器帮助 (如图)
2
.给单元格赋值:
Excel.Cells[
1
,
4
].Value :
=
第一行第四列;
3
.设置第一行字体属性(隶书,蓝色,加粗,下划线):
Excel.ActiveSheet.Rows[
1
].Font.Name :
=
隶书;
Excel.ActiveSheet.Rows[
1
].Font.Color :
=
clBlue;
Excel.ActiveSheet.Rows[
1
].Font.Bold :
=
True;
Excel.ActiveSheet.Rows[
1
].Font.UnderLine :
=
True;
4
.设置整个表字体为9
Excel.Cells.Font.Size:
=
9
;
5
.在第8行之前插入
/
删除分页符:
Excel.WorkSheets[
1
].Rows[
8
].PageBreak :
=
1
; (0为删除)
6
.清除第一行第四列单元格公式:
Excel.ActiveSheet.Cells[
1
,
4
].ClearContents;
五、页面设置
1
.页脚和页眉
Excel.ActiveSheet.PageSetup.LeftHeader :
=
页眉左
Excel.ActiveSheet.PageSetup.CenterHeader :
=
页眉中
Excel.ActiveSheet.PageSetup.RightHeader :
=
页眉右
Excel.ActiveSheet.PageSetup.LeftFooter :
=
页脚左
Excel.ActiveSheet.PageSetup.CenterFooter :
=
页脚中
Excel.ActiveSheet.PageSetup.RightFooter :
=
页脚右
2
.页脚中间显示页数:
Excel.ActiveSheet.PageSetup.CenterFooter :
=
第
&
P页
/
共
&
N页;
3
.页眉到顶端边距2cm:
Excel.ActiveSheet.PageSetup.HeaderMargin :
=
2
/
0.035
;
4
.页脚到底端边距3cm:
Excel.ActiveSheet.PageSetup.FooterMargin :
=
3
/
0.035
;
5
.顶边距2cm:
Excel.ActiveSheet.PageSetup.TopMargin :
=
2
/
0.035
;
6
.底边距2cm:
Excel.ActiveSheet.PageSetup.BottomMargin :
=
2
/
0.035
;
7
.左边距2cm:
Excel.ActiveSheet.PageSetup.LeftMargin :
=
2
/
0.035
;
8
.右边距2cm:
Excel.ActiveSheet.PageSetup.RightMargin :
=
2
/
0.035
;
9
.页面水平居中:
Excel.ActiveSheet.PageSetup.CenterHorizontally :
=
2
/
0.035
;
10
.页面垂直居中:
Excel.ActiveSheet.PageSetup.CenterVertically :
=
2
/
0.035
;
11
.打印单元格网线:
Excel.ActiveSheet.PageSetup.PrintGridLines :
=
True;
12
.横向打印
Excel.ActiveSheet.PageSetup.Orientation:
=
2
转载于:https://www.cnblogs.com/bingege/archive/2009/12/28/1634605.html