预览加载中，请您耐心等待几秒...

【Delphi】汇出Excel时,Excel单元格格式设置(附Delphi操作Excel方法).docx

预览
1/10
2/10
3/10
4/10
5/10
6/10
7/10
8/10
9/10
10/10

在线预览结束，喜欢就下载吧，查找使用更方便

下载提示 文本预览

如果您无法下载资料，请参考说明：

1、部分资料下载需要金币，请确保您的账户上有足够的金币

2、已购买过的文档，再次下载不重复扣费

3、资料包下载后请先用软件解压，在使用对应软件打开

【Delphi】汇出Excel时，Excel单元格格式设置（附Delphi操作Excel方法） 一个例子：excelworksheet1.Cells.Item[row,3].numberformatlocal:='$#,##0.00;[红色]-$#,##0.00';excelworksheet1.Cells.Item[row,3].Formula:='=SUM(R[-'+inttostr(row-rowflag+1)+']C:R[-1]C)';excelworksheet1.Cells.Item[row,3].Borders[3].LineStyle:=xlContinuous;excelworksheet1.Cells.Item[row,3].Borders[4].LineStyle:=xlDouble;excelworksheet1.Cells.Item[row,4].Borders[3].LineStyle:=xlContinuous;excelworksheet1.Cells.Item[row,4].Borders[4].LineStyle:=xlDouble;excelworksheet1.Cells.Item[row,4].Formula:='=R[-1]C';注：不知道公式及格式，均可通过录制宏找出对应公式及格式。效果如下图： 资料来自网络单元格设置1.设置单元格线框Excel.ActiveSheet.Range[B10:C13].Borders[N].LineStyle:=xlNoneExcel.ActiveSheet.Range[B10:C13].Borders[N].Weight:=xlThin边框的类型Borders[N]xlEdgeLeft左=1xlEdgeRight右=2xlEdgeTop顶=3xlEdgeBottom底=4xlDiagonalUp左上右下=5xlDiagonalDown左下右上=6xlEdgeLeft外部左边框=7xlEdgeTop外部上边框=8xlEdgeBottom外部下边框=9xlEdgeRight外部右边框=10xlInsideVertical内部竖线=11xlInsideHorizontal内部横线=12(其中1：为左2：右3：顶4：底5：斜\6：斜/)线条类型LineStyle,宽度Weight单条线的LineStyle:=xlContinuous双条线的LineStyle:=xlDouble虚线xlHairline1实线xlThin中实线xlMedium粗实线xlThick2.给单元格赋值：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.设置整个表字体为9Excel.Cells.Font.Size:=9;5.在第8行之前插入/删除分页符：Excel.WorkSheets[1].Rows[8].PageBreak:=1;(0为删除)6.清除第一行第四列单元格公式：Excel.ActiveSheet.Cells[1,4].ClearContents;7.从数字类型转换成文本类型(不知道格式化字符串，请录制宏，抽出宏中格式化字符串。)excelworksheet1.Cells.Item[row,10].numberformatlocal:='@';excelworksheet1.Cells.Item[row,10].NumberFormat:='hh:mm:ss'excelworksheet1.Cells.Item[row,9].numberformatlocal:='$#,##0.00;[红色]-$#,##0.00';8.加公式(不知道公式格式，请录制宏，抽出宏中公式格式。)excelworksheet1.Cells.Item[row,10].Formula:='=R[-1]C+RC[-1]';ExApp.cells[9+iLoop,6].value:='=SUM(G'+inttostr(9+iLoop)+':H'+inttostr(9+iLoop)+')';附：Delphi操作Excel方法(一)使用动态创建的方法(二)使用Delphi控件方法一)使用动态创建的方法首先创建Excel对象，使用ComObj:varExcelApp:Variant;ExcelAp