XLSReadWriteII5使用示例

最新推荐文章于 2025-10-21 14:46:51 发布

转载最新推荐文章于 2025-10-21 14:46:51 发布 · 1k 阅读

1 ·

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/railgunman/p/8657060.html

本文介绍了如何使用 XLSReadWriteII5 进行数据读写操作，包括代码示例和生成的Excel表格效果展示。内容来源于网络转载。

之前一直是使用XLSReadWriteII4，今天更新到XLSReadWriteII5，测试了一下，发现一些操作变化比较大，现将XLSReadWriteII5的使用示例写一下，以下是代码和生成的excel表格的效果：

 1 procedure TForm1.Button1Click(Sender: TObject);
 2 var
 3   i, n: Integer;
 4   XLS: TXLSReadWriteII5; // 引用XLSReadWriteII5, Xc12DataStyleSheet5, ShellAPI
 5 begin
 6   XLS := TXLSReadWriteII5.Create(nil);
 7   try
 8     XLS.Clear;
 9     XLS.FileName := ExtractFilePath(paramstr(0)) + 'temp.xls';
10     for i := 0 to 9 do
11       XLS.Sheets[0].AsString[i, 0] := '标题' + IntToStr(i + 1);
12     for i := 0 to 9 do
13       for n := 1 to 19 do
14         XLS.Sheets[0].AsString[i, n] := IntToStr(i + 1) + ':' + IntToStr(n);
15  
16     for i := 0 to 9 do // XLS.Sheets[0].LastCol do // 从第一列到最后一列
17     begin
18       for n := 0 to 19 do // 从第一行到最后一行
19       begin
20         XLS.Sheets[0].Range.Items[i, n, i, n].BorderOutlineStyle := cbsThin;
21         XLS.Sheets[0].Range.Items[i, n, i, n].BorderOutlineColor := 0; // 黑色#0
22         if n = 0 then
23         begin
24           XLS.Sheets[0].Cell[i, n].CellColorRGB := 16744448; // 橘黄#FF8000
25           XLS.Sheets[0].Cell[i, n].FontColor := 16777215; // 白色#FFFFFF
26         end
27         else
28           XLS.Sheets[0].Cell[i, n].CellColorRGB := 16777165; // 杏仁灰#FFFFCD
29       end;
30       XLS.Sheets[0].AutoWidthCol(i); // 每列为自动宽度
31     end;
32     XLS.Write;
33     ShellExecute(0, 'Open', PChar(ExtractFilePath(paramstr(0)) + 'temp.xls')
34       , nil, nil, SW_SHOW);
35   finally
36     XLS.Free;
37   end;
38 end;

转自：http://www.offeu.com/www/index_id_144.html

转载于:https://www.cnblogs.com/railgunman/p/8657060.html