捐赠 | 广告 | 注册 | 发布 | 上传 | 关于我们    
  粤ICP备10103342号-1 DELPHI盒子 | 盒子文章 | 盒子问答悬赏 | 最新更新 | 盒子检索 | 下载中心 | 高级搜索    
  精品专区 | 繁體中文 | 奖励公告栏 | 直通车账号登陆 | 关闭GOOGLE广告 | 临时留言    
盒子资源分类
全部展开 - 全部合拢
DBGridEh和dbgrid导出
关键字：DBGridEh和dbgrid导出
来　自：原创
平　台：Win2k/XP/NT,Win2003 下载所需：0 火柴
深浅度：中级 完成时间：2008/4/24
发布者：xiongrubin 发布时间：2008/4/24
编辑器：DELPHI7 语　　种：简体中文
分　类：数据库 下载浏览：2201/16134
加入到我的收藏
下载错误报错
登陆以后才能下载
 用户名：
 密　码：
自动登陆(30天有效)
图片如果打不开，说明流量不够了，请稍候下载……
uses  ComObj
如果你用DBGrid把数据显示出来，不管你用什么数据库，都可以导出到Excel表里！   
    
  uses   ComObj;   
    
  procedure   TSearchinforfrm.Button11Click(Sender:   TObject);   
  var   
      eclApp,WorkBook:olevariant;   
      xlsFileName:string;   
      i,j:integer;   
  begin   
    
      if   SaveDialog1.Execute   then   
          xlsFileName:=SaveDialog1.FileName;   
    
          try   
          eclApp:=CreateOleObject('Excel.Application');   
          WorkBook:=CreateOleObject('Excel.Sheet');   
          except   
          Application.MessageBox('系统没有安装Microsoft   Excel','Microsoft   Excel',MB_OK+MB_ICONWarning);   
          Exit;   
          end;   
    
          try   
          WorkBook:=eclApp.workbooks.Add;   
          for   i:=0   to   DBGrid1.Columns.Count-1   do   
          begin   
          //这里可以更改列名，用if   ...   then进行判断和指定列名   
          eclApp.Cells(1,i+1):=DBGrid1.Columns[i].FieldName;   
          end;   
    
          DBGrid1.DataSource.DataSet.First;   
          j:=2;   
          while   not   DBGrid1.DataSource.DataSet.Eof   do   
          begin   
          for   i:=0   to   DBGrid1.DataSource.DataSet.FieldCount-1   do   
          begin   
          eclApp.Cells(j,i+1):=DBGrid1.DataSource.DataSet.Fields[i].Value;   
          end;   
          DBGrid1.DataSource.DataSet.Next;   
          inc(j);   
          end;   
    
          WorkBook.SaveAS(xlsFileName);   
          WorkBook.close;   
          except   
          ShowMessage('文件导出失败！');   
          Exit;   
          end;   
          Application.MessageBox('保存成功!','恭喜',MB_OK   +   MB_ICONINFORMATION);   
  end;
Google
 
本站原创作品，未经作者许可，严禁任何方式转载；转载作品，如果侵犯了您的权益，请联系我们！
龙脉加密锁 15元起 Grid++Report 报表 申请支付@网
　相关文章
没有相关文章
相关评论
共有评论6条
我要发表评论 查看全部评论
 
  DELPHI盒子版权所有 技术支持:深圳市麟瑞科技有限公司 1999-2024 V4.01 粤ICP备10103342号-1 更新RSS列表