Delphi控制Excel进行设计，代码亲测可用

2023.12.21提示：

使用过第三方的TMS FlexCel for VCL后发现，这个生成速度更快！真的快，使用起来也简单。

下面的例子是适合数据量较小的情况，如果可以强烈建议去用flexcel。

前言：

小部分参考网上的，大部分是自己通过录制宏得出的参数，这些都是在设计Excel的时候使用的，完全可以复制粘贴使用。

//必须引用 

uses ComObj

//必须定义

var
  这是个Excel: Variant;

//****合并单元格使用例子

  这是个Excel := CreateOleObject('Excel.Application');//调用EXCEL程序
  这是个Excel.Visible := True;//是否显示，这里为显示
  这是个Excel.WorkBooks.Open('C:\20190313.xls');//选择一个表
  这是个Excel.Range['D18:D24'].Merge;//合并内容

//设置第N个工作表为活动工作表：

这是个Excel.WorkSheets[2].Activate; 

//****更改单元格格式例子

这是个Excel.Columns[3].NumberFormatlocal := '0_ ';//更改为数值，且小数点为0
这是个Excel.Columns[2].NumberFormatlocal := '@';//更改为文本格式
这是个Excel.Range['P17'].NumberFormatlocal :='0.00_);(0.00)';{总重设置2位小数点}

//插入内容到单元格

这是个Excel.Cells[17, 2].Value := Edit1.Text;
{或者}
这是个Excel.Range['A11'].VALUE:='就是在A11里面插入内容';

//使用公式
//第18行，第2列

这是个Excel.Cells[18, 2].Value :='=SUM(B17)';{在18,2里面插入一条公式}

//单元格垂直居中

这是个Excel.Range['A17:A20'].VerticalAlignment  :=2;
//1：靠上；2：居中；3：靠下；4：两端对齐

//单元格水平居中

这是个Excel.Range['O17:O20'].HorizontalAlignment := 3；
//其中1：常规；2：左缩进；3：居中；4：靠右；5：填充

//设置字体

这是个Excel.Range['M:N'].Characters.Font.Name := 'Calibri';

很多情况下网上的内容不一定是对的，所以各位可以通过Excel的开发工具，录制宏，录制完毕后看看录制的结果，参考下就大概能知道怎么写了。

希望大家补充常用。