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

下载本文档

41
0
约8.11千字
约 10页
2017-02-28 发布于北京
举报
版权申诉

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

1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击这里二次下载。
3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
4、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
5、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
6、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
7、VIP文档为合作方或网友上传，每下载1次，网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档

【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)+);附：Delphi操作Excel方法(一) 使用动态创建的方法(二) 使用Delphi 控件方法一) 使用动态创建的方法首先创建 Excel 对象，使用ComObj:varE