Delphi- 操作EXCEL
可能以后会用到,记录一下:
导出EXCEL
var h,k:integer; Excelid: OleVariant; s: string; begin try Excelid := CreateOLEObject('Excel.Application'); except Application.MessageBox('Excel没有安装!', '提示信息', MB_OK+MB_ICONASTERISK+MB_DEFBUTTON1+MB_APPLMODAL); Exit; end; try Tblrs.Close; Tblrs.SQL.Clear; Tblrs.SQL.Add('select * from rszl'); Tblrs.Open; k:=Tblrs.RecordCount; Excelid.Visible := True; Excelid.WorkBooks.Add; Excelid.worksheets[1].range['A1:C1'].Merge(True); //A1到C1的单元格进行合并 Excelid.WorkSheets[1].Cells[1,1].Value :='人事表' ; //给A1到C1的单元格合并后取一个TITLE Excelid.WorkSheets[1].Cells[2,1].Value :='工号' ; Excelid.WorkSheets[1].Cells[2,2].Value :='姓名' ; Excelid.WorkSheets[1].Cells[2,3].Value :='性别' ; //给A1到C1的单元格 设置字体 字号 加粗 Excelid.worksheets[1].Range['A1:C1'].Font.Name := '宋体'; Excelid.worksheets[1].Range['A1:C1'].Font.Size := 14; Excelid.worksheets[1].Range['A1:C1'].Font.Bold:=true; //填充入值 h:=3; Tblrs.First; while not Tblrs.Eof do begin Excelid.WorkSheets[1].Cells[h,1].Value := Tblrs.FieldByName('ygbh').AsString; Excelid.WorkSheets[1].Cells[h,2].Value := Tblrs.FieldByName('mc').AsString; Excelid.WorkSheets[1].Cells[h,3].Value := Tblrs.FieldByName('sex').AsString; Inc(h); Tblrs.Next; end; except Application.MessageBox('导入数据出错!请检查文件的格式是否正确!', '提示信息', MB_OK+MB_ICONASTERISK+MB_DEFBUTTON1+MB_APPLMODAL); end; MessageBox(GetActiveWindow(), 'EXCEL数据导出成功!', '提示信息', MB_OK +MB_ICONWARNING);
【推荐】国内首个AI IDE,深度理解中文开发场景,立即下载体验Trae
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步
· SQL Server 2025 AI相关能力初探
· Linux系列:如何用 C#调用 C方法造成内存泄露
· AI与.NET技术实操系列(二):开始使用ML.NET
· 记一次.NET内存居高不下排查解决与启示
· 探究高空视频全景AR技术的实现原理
· 阿里最新开源QwQ-32B,效果媲美deepseek-r1满血版,部署成本又又又降低了!
· Manus重磅发布:全球首款通用AI代理技术深度解析与实战指南
· 开源Multi-agent AI智能体框架aevatar.ai,欢迎大家贡献代码
· 被坑几百块钱后,我竟然真的恢复了删除的微信聊天记录!
· AI技术革命,工作效率10个最佳AI工具