NativeExcel使用

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
var
    Book: IXLSWorkbook;
    ws: IXLSWorksheet;
begin
  Book := TXLSWorkbook.Create;                    //建立NativeExcel
  ws := Book.Sheets.Add;                          //增加一个Sheet页
  ws.Name := 'Sheet1';                            //Sheet页的名称,也就是显示在Tab上的名字
  ws.DisplayGridLines :=False;                    //本Sheet页是否显示表格线
  With ws.Range['B3', 'F3'] do begin              //NativeExcel中需要对一个范围进行操作
    Merge(False);                                 //参数设置为False时是合并单元格,设置成True就不合并了
    Interior.Color :=RGB(184, 204, 228);          //设置表格背景色
    Borders[xlAround].Weight := xlThin;           //设置外围线框
    Borders[xlInsideAll].Weight := xlThin;        //设置内部线
    Font.Name := '微软雅黑';
    Font.Size := 10;
    Font.Bold :=True;
    Value :='Demo';                               //放在Range里的赋值,相当于统一赋值
    HorizontalAlignment := xlHAlignCenter;        //单元格的水平对齐
    VerticalAlignment := xlVAlignCenter;          //单元格的竖直对齐
    NumberFormat :='#,##0.00';                    //设置显示内容的格式
  end;
  ws.Cells.Columns[1].ColumnWidth :=20;           //设置列宽,这个数值基本上和Excel里是一样的
  ws.Cells.Item[3, 2].Value :='名称';             //给单元格赋值,读取单元格也用Value,但是需要对读取的内容进行处理判断。坐标是先行后列,而且第一个位置是从1开始,而不是0。
  ws.UsedRange.Columns.AutoFit;                   //设置单元格宽度为自适应,表格生成完成后使用
  Book.SaveAs('test.xlsx', xlOpenXMLWorkbook);    //xlOpenXMLWorkbook参数为保存xlsx格式

  NativeExcel适合比较轻量的应用,写Excel的速度很快。但是如果更复杂的操作,或者需要从Excel里读取数据的话,建议还是使用XLSReadWriteII。

posted on   西点肥牛  阅读(1489)  评论(1编辑  收藏  举报

编辑推荐:
· 浏览器原生「磁吸」效果!Anchor Positioning 锚点定位神器解析
· 没有源码,如何修改代码逻辑?
· 一个奇形怪状的面试题:Bean中的CHM要不要加volatile?
· [.NET]调用本地 Deepseek 模型
· 一个费力不讨好的项目,让我损失了近一半的绩效!
阅读排行:
· PowerShell开发游戏 · 打蜜蜂
· 在鹅厂做java开发是什么体验
· 百万级群聊的设计实践
· WPF到Web的无缝过渡:英雄联盟客户端的OpenSilver迁移实战
· 永远不要相信用户的输入:从 SQL 注入攻防看输入验证的重要性

导航

< 2025年2月 >
26 27 28 29 30 31 1
2 3 4 5 6 7 8
9 10 11 12 13 14 15
16 17 18 19 20 21 22
23 24 25 26 27 28 1
2 3 4 5 6 7 8
点击右上角即可分享
微信分享提示