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。
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】凌霞软件回馈社区,博客园 & 1Panel & Halo 联合会员上线
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】博客园社区专享云产品让利特惠,阿里云新客6.5折上折
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步
· 浏览器原生「磁吸」效果!Anchor Positioning 锚点定位神器解析
· 没有源码,如何修改代码逻辑?
· 一个奇形怪状的面试题:Bean中的CHM要不要加volatile?
· [.NET]调用本地 Deepseek 模型
· 一个费力不讨好的项目,让我损失了近一半的绩效!
· PowerShell开发游戏 · 打蜜蜂
· 在鹅厂做java开发是什么体验
· 百万级群聊的设计实践
· WPF到Web的无缝过渡:英雄联盟客户端的OpenSilver迁移实战
· 永远不要相信用户的输入:从 SQL 注入攻防看输入验证的重要性