资源描述：
《【delphi】汇出excel时,excel单元格格式设置(附delphi操作excel方法)》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、【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:=xlContinu
2、ous;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';注：不知道公式及格式，均可通过录制宏找出对应公式及格式。效果如下
3、图： 资料来自网络单元格设置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左上右下=5 xlDiagonalDown左下右上=6xlEdgeLeft外部左边框=7xlEdgeTop外部上边框=8xlEdg
4、eBottom外部下边框=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.设置第一行字体属性(隶书,蓝色,加粗,下划线)：
5、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.清除第一行第四列单元格公
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.
7、加公式(不知道公式格式，请录制宏，抽出宏中公式格式。)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;Exce
