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

【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 左上右下=5?xlDiagonalDown 左下右上=6xlEdgeLeft 外部左边框=7xlEdgeTop 外部上边框=8xlEdgeBottom 外部下边框=9xlEdgeRight 外部右边框=10xlInsideVertical 内部竖线=11xlInsideHorizontal 内部横线=12(其中1：为左 2：右 3：顶 4：底 5：斜\ 6：斜/)线条类型LineStyle,宽度Weight单条线的LineStyle := xlContinuous双条线的LineStyle := xlDouble虚线 xlHairline 1实线 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:ssexcelworksheet1.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)+);附：Delp