delphi应用EXCEL（2）使用delphi控件

现武發表於 2023-8-7 15:20:00

Delphi的excel控件在servers面板中，有些版本的DELPHI中未打开这些控件，但都是安装了的，手动去打开即可。
在servers控件选项页面中，选择ExcelApplication、ExcelWorkbook和ExcelWorksheet这3个控件。
<ul>
<li>ExcelApplication：用于启动/关闭EXCEL应用程序。</li>
<li>ExcelWorkbook：用于连接工作薄。</li>
<li>ExcelWorksheet：用于连接工作表。</li>
</ul>
我们的页面中使用这三个控件，命名分别是：
<ul>
<li>exclApp1: TExcelApplication; </li>
<li>exclSht1: TExcelWorksheet; </li>
<li>exclBk1: TExcelWorkbook; </li>
</ul>
<h3>1.      ExcelApplication的使用</h3>
这个是应用程序控件，用于打开或关闭excel，或设置应用程序可见或不可见等属性，也可用于打开、关闭工作簿。
Autoconnect属性用于确定是否在执行程序是自动打开EXCEL，autoquit属性用于确定在关闭程序时是否自动关闭excel；
<div class="cnblogs_code">
<pre>// 连接到Excel
exclApp1.Connect;
// 显示询问窗口（比如文件名重复是否保存之类的询问）
exclApp1.DisplayAlerts[0] := True;
// 显示EXCEL窗口,默认显示，设置为false则在后台运行excel程序
exclApp1.Visible[0] := True;
// 设置标题栏内容
exclApp1.Caption := 'Test Excel Demo';
//全屏显示EXCEL
EA1.DisplayAlerts[0]:=TRUE;</pre>
</div>
实际上，在这个控件中就可以实现对excel的所有操作，但接下来我们使用接下来的两个控件更方便。
<h3>2.      ExcelWorkbook的使用</h3>
这个控件主要用于控制工作簿，在使用前，应与某工作簿链接。常见操作见下：
<div class="cnblogs_code">
<pre>VAR wkExcel: _Workbook;
……
// 创建一份空的工作簿，默认包含3个工作表
wkExcel := exclApp1.Workbooks.Add(EmptyParam, 0);
// TExcelWorkbook连接到创建的工作簿
exclBk1.ConnectTo(wkExcel);
// 激活工作簿
exclBk1.Activate;
// 统计工作薄的有几张工作表
ShowMessage(IntToStr(exclBk1.Worksheets.Count));</pre>
</div>
可以使用控件Texcelworkbook通过连接_workbook来操作工作簿，其实也可直接操作_WORKBOOK，操作都是一样的。另外，_WORKBOOK的别名是Excelworkbook。
EA1下控制若干工作簿，但只有一个active（活动的）的工作簿,可以通过调用工作簿的activate来使得某一工作簿变成活动工作簿。
此外，EA1的worksheets并不是所有的sheets，而是活动工作簿的sheets，所以activeworksheet对应的是活动工作簿的活动工作表。
workbooks.count指的是工作簿的数量；
workbooks指的是第一个工作簿。
Workbooks.Add(EmptyParam, 0)，第一个参数是新建的工作簿的类型，emptyparam表示是默认的excel工作簿，也可以是‘’空字符串。
打开工作簿的函数比较复杂，参数很多。
WorkBooks.Open(filename,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam, EmptyParam,EmptyParam,EmptyParam,EmptyParam, EmptyParam,EmptyParam,LCID);
同样的，保存这个工作表也非常复杂。
Excel.ActiveWorkBook.SaveAs ( ' MyOutput ' , EmptyParam,EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, LCID);
主要是包含了各种密码设置等等。
注意，emptyparam并不是一个常量，而是一个函数，所以并不是每一个emptyparam都可以使用空字符串代替。
Activeworkbook.save(0)将以Activeworkbook.name加默认扩展名的文件名保存工作簿，但Activeworkbook.name是一个只读变量，不能修改，所以，另一种保存工作簿的方法是：
wkBook.Close(True, SaveAsName, EmptyParam, 0);
关闭workbook并保存。
第一个参数说明在关闭工作簿之前是否保存所做的修改。
第二个参数当然指的是文件名了。
第三个参数用于多位作者处理文档的情况。
<h3>3.      ExcelWorksheet的使用</h3>
工作表的使用稍微复杂一点，因为工作表连接时的类型和workbook生成表的类型略有区别，需要你手动转换一下。
同时，workbook默认的sheets有三张，先请看下面的语句：
<div class="cnblogs_code">
<pre>(EA1.ActiveWorkbook.Worksheets[2] as ExcelWorksheet).Activate(0);
with (EA1.ActiveSheet as ExcelWorksheet) do
begin
name:='shujuceshi';
with Cells.Range,Cells.Item[5,5]] do
begin
 Cells.RowHeight:=30;
 Cells.ColumnWidth:=25;
 Cells.Borders.Item[1].Weight:=3;
 Cells.Borders.Item[2].Weight:=3;
 Cells.Borders.Item[3].Weight:=3;
 Cells.Borders.Item[4].Weight:=3;
 Cells.Item[2,3]:='=pi()';
Cells.Range['A1','B2'].Value2:='test';
end;
end;</pre>
</div>
首先是让活动workbook的第二张表成为活动工作表；
接着针对第二章工作表（活动工作表表做操作）
<img src="https://img2023.cnblogs.com/blog/2037341/202308/2037341-20230807151628698-955967077.png">
 
参见上面的运行结果图，表下的cells表示表下的所有格子的集合。
然后在cells下用range函数圈定某些单元格，range的参数可以指定某些具体的单元格，例如例子中cells.item表示第二行第二列的单元格，也可直接用字符串’B2’表示。
然后圈定范围的单元格又可以从CELLS众检索，例如CELLS.item实际指向的是第三行第四列（因为cells子集是从2，2开始的）。里面的填充内容可以直接写字符串。当然这个字符串可以是excel的公式，例如本例中指的就是函数pi()
Cells的rowheight指的是指定cells的行高，注意，rowheight和columnwidth的单位是不一样的，例子中25的列宽明显比30的行高更高。
Borders.item.weight用于设置单元格的边框，1-6分别表示左上右下斜反斜线的厚度。
Item则指的是子集的外边框。
Range子集的value2可以为子集的集体赋值。同样的，range[‘A1’，’B2’]并不是指定的sheet的一行一列到二行二列，而是子集的相对位置。
下面再慢慢讲讲使用控件的操作方式。
我们通常应该是针对range或item进行操作，item指向具体的单元格，通常只对其赋值。而range指向的是单元格子集，可以改变子集的字体，对齐方式，单元格显示格式化等等。
<div class="cnblogs_code">
<pre>// 创建一张新的工作表
wsExcel := (exclBk1.Worksheets.Add(EmptyParam, EmptyParam, EmptyParam, EmptyParam, 0)) as _Worksheet;
exclSht1.ConnectTo(wsExcel);
exclSht1.Activate;</pre>
</div>
某张表的名称：
<div class="cnblogs_code">
<pre>// 设置当前工作表的名称
exclSht1.Name := 'New Worksheet';</pre>
</div>
ROWS表示行的数据，rows.range表示行内列的数据。
如果不设置具体的range，则可以设置整个表的行高；columns表示列，同样也可以设置列数据。需要注意的是，列宽和行高是的数字是有限的，设置过高的列宽或行高则无反应。
<div class="cnblogs_code">
<pre>exclSht1.Rows.Range['A1','D1'].ColumnWidth := 30;
// 设定第一行从A列到D列的字体颜色为蓝色
exclSht1.Rows.Range['A1','D1'].Font.Color := clblue;
// 设定第一行从A列到D列的字体加粗
exclSht1.Rows.Range['A1','D1'].Font.Bold := true;
// 设定第一行从A列到D列的字号为18
exclSht1.Rows.Range['A1','D1'].Font.Size := 18;
// 设定第一行从A列到D列合并
exclSht1.Rows.Range['A1','D1'].Merge(4);
// 调整第一行行高
exclSht1.Rows.Range['A1','D1'].Rows.RowHeight := 30;
// 设置文本垂直居中
exclSht1.Rows.Range['A1','D1'].VerticalAlignment := xlcenter;
// 设置文本水平居中
exclSht1.Rows.Range['A1','D1'].HorizontalAlignment := xlcenter;
// 填充内容
exclSht1.Cells.Item[1, 1] := 'TEST EXCEL DEMO';</pre>
</div>
Cells属性用于存储的数据。下列是一个九九乘法表。
<div class="cnblogs_code">
<pre>for I := 1 to 9 do
for j:=1 to Ido
es1.Cells.Item:=format( '%d × %d＝%d',);</pre>
</div>
下面的语句用于设置页面。
<div class="cnblogs_code">
<pre>with wkSheet.PageSetUpdo
begin PaperSize: = xlPaperA4;// Paper type A4 
 PrintTitleRows : = ' A1:D1 ' ;// Repeat this row/page 
 LeftMargin: = 18 ;// 0.25" Left Margin 
 RightMargin: = 18 ;// 0.25" will vary between printers 
 TopMargin: = 36 ;// 0.5"
 BottomMargin: = 36 ;// 0.5" 
 CenterHorizontally: = True;
 Orientation: = 1 ;// 横向打印（landscape）=2, 
 portrait = 1
 end; </pre>
</div>
  
来源：https://www.cnblogs.com/luohq001/p/17611571.html

頁: [1]

琼殿技术论坛's Archiver

delphi应用EXCEL（2） 使用delphi控件

delphi应用EXCEL（2）使用delphi控件