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);
复制代码

 

posted @   春天又来了  阅读(309)  评论(0编辑  收藏  举报
编辑推荐:
· 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工具
点击右上角即可分享
微信分享提示