delphi导出Excel表
|
方法二
procedure CopyDbDataToExcel(Args: array of const); http://www.lovegirl.org.cn
var http://www.lovegirl.org.cn
iCount, jCount: Integer; http://www.ladyspark.cn
XLApp: Variant; http://www.100jz.com
Sheet,range: Variant; http://www.100jz.com
I: Integer; http://blog.zj.com
begin http://www.digitalstreet.net.cn
Screen.Cursor := crHourGlass; http://www.digitalstreet.net.cn
if not VarIsEmpty(XLApp) then http://www.ladyspark.cn
begin http://www.lovegirl.org.cn
XLApp.DisplayAlerts := False; http://www.100jz.com
XLApp.Quit; http://www.digitalstreet.net.cn
VarClear(XLApp); http://www.100jz.com
end;
try http://www.ladyspark.cn
XLApp:=CreateOleObject(Excel.Application); http://blog.zj.com
except http://www.100jz.com
Screen.Cursor := crDefault; http://www.digitalstreet.net.cn
Exit; http://www.100jz.com
end;
XLApp.WorkBooks.Add; http://www.100jz.com
XLApp.SheetsInNewWorkbook := High(Args) + 1;
for I := Low(Args) to High(Args) do http://www.ladyspark.cn
begin http://blog.zj.com
XLApp.WorkBooks[1].WorkSheets[I+1].Name := TDBGrid(Args[I].VObject).Name; http://www.lovegirl.org.cn
Sheet := XLApp.Workbooks[1].WorkSheets[TDBGrid(Args[I].VObject).Name];
if not TDBGrid(Args[I].VObject).DataSource.DataSet.Active then http://blog.zj.com
begin http://www.lovegirl.org.cn
Screen.Cursor := crDefault; http://www.digitalstreet.net.cn
Exit; http://www.digitalstreet.net.cn
end; http://www.100jz.com
TDBGrid(Args[I].VObject).DataSource.DataSet.first; http://www.digitalstreet.net.cn
for iCount := 0 to TDBGrid(Args[I].VObject).Columns.Count - 1 do http://www.lovegirl.org.cn
range:=sheet.range[sheet.cells[1,1],sheet.cells[1,iCount + 1]]; http://www.100jz.com
range.select; http://www.lovegirl.org.cn
range.merge; http://www.digitalstreet.net.cn
sheet.cells[1,1]:=[+fqueryhuman.dbedit2.text+]+个人报销记录(普通报销、特殊报销)查询; http://blog.zj.com
jCount :=2; http://www.100jz.com
for iCount := 0 to TDBGrid(Args[I].VObject).Columns.Count - 1 do http://www.digitalstreet.net.cn
Sheet.Cells[2, iCount + 1]:=TDBGrid(Args[I].VObject).Columns.Items[iCount].Title.Caption; http://blog.zj.com
while not TDBGrid(Args[I].VObject).DataSource.DataSet.Eof do http://www.digitalstreet.net.cn
begin http://blog.zj.com
for iCount := 0 to TDBGrid(Args[I].VObject).Columns.Count - 1 do http://www.lovegirl.org.cn
Sheet.Cells[jCount + 1, iCount + 1] := http://www.digitalstreet.net.cn
TDBGrid(Args[I].VObject).Columns.Items[iCount].Field.AsString;
Inc(jCount); http://www.digitalstreet.net.cn
TDBGrid(Args[I].VObject).DataSource.DataSet.Next; http://blog.zj.com
end; http://www.lovegirl.org.cn
XlApp.Visible := True; http://www.ladyspark.cn
end; http://www.lovegirl.org.cn
Screen.Cursor := crDefault; http://www.ladyspark.cn
end;
方法三
从Excel文件中,导入数据到SQL数据库中,很简单,直接用下面的语句:
/*===================================================================*/ --如果接受数据导入的表已经存在 insert into 表 select * from OPENROWSET('MICROSOFT.JET.OLEDB.4.0' ,'Excel 5.0;HDR=YES;DATABASE=c:\test.xls',sheet1$) --如果导入数据并生成表 /*===================================================================*/ --如果Excel文件不存在,也可以用BCP来导成类Excel的文件,注意大小写: --导出查询的情况 /*--说明: --下面是导出真正Excel文件的方法: if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[p_exporttb]') and OBJECTPROPERTY(id, N'IsProcedure') = 1) /*--数据导出EXCEL 导出表中的数据到Excel,包含字段名,文件为真正的Excel文件 --邹建 2003.10(引用请保留此信息)--*/ /*--调用示例 p_exporttb @tbname='地区资料',@path='c:\',@fname='aa.xls' --参数检测 --检查文件是否已经存在 --数据库创建语句 --连接数据库 exec @err=sp_oamethod @obj,'open',null,@constr /*--如果覆盖已经存在的表,就加上下面的语句 --创建表的SQL exec @err=sp_oadestroy @obj --导入数据 exec('insert into '+@sql+'('+@fdlist+') select '+@fdlist+' from '+@tbname) return lberr: if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[p_exporttb]') and OBJECTPROPERTY(id, N'IsProcedure') = 1) /*--数据导出EXCEL 导出查询中的数据到Excel,包含字段名,文件为真正的Excel文件 --邹建 2003.10(引用请保留此信息)--*/ /*--调用示例 p_exporttb @sqlstr='select * from 地区资料' --参数检测 --检查文件是否已经存在 --数据库创建语句 --连接数据库 exec @err=sp_oamethod @obj,'open',null,@constr --创建表的SQL select @sql='',@fdlist='' if @@rowcount=0 return select @sql='create table ['+@sheetname exec @err=sp_oamethod @obj,'execute',@out out,@sql exec @err=sp_oadestroy @obj --导入数据 exec('insert into '+@sql+'('+@fdlist+') select '+@fdlist+' from ['+@tbname+']') set @sql='drop table ['+@tbname+']' lberr: |
转载于:https://www.cnblogs.com/yxbsmx/articles/1319449.html
delphi导出Excel表相关推荐
- ASP.Net导出EXCEL表(小结)
这个问题困扰了我好几天,现在终于解决了,现公布整个过程的注意点.通过.net导出Excel表,除了注意导出的方法外,还要关心资源的回收问题,中间涉及到COM组件的关闭等. 因为对windows系统.. ...
- 【机房收费系统】---导出Excel表
一.背景 机房收费系统中有很多地方用到了"导出Excel表"这个功能,那么,怎么导出呢? 二.导出Excel表 1.电脑安装office 2.引用 之前已经有一篇博客介绍过如何引用 ...
- 关于扫码签到统计信息,一键导出excel表
1.首先进入草料二维码官网 2.微信扫码登录注册,登录成功后即可进入草料二维码后台(手机微信小程序也可以实时查看后台数据) 3.根据自己需要创建活动二维码(选择自己喜欢的模板,这里我们选择的是会议签到 ...
- 数据的导出Excel表
数据的导出Excel表 1.原理 点击前端页面的按钮函数,函数里面去调用后端对应对的请求地址,这个请求地址所对应的方法再去调用业务层,业务层再去持久层拿到数据,返回给控制层,控制层将数据封装为比特 ...
- JSON数据导出Excel表
JSON数据导出Excel表 应老板要求写了一个实用的小功能,需求是将api接口返回的JSON数据导出Excel表,过程中改了两稿,一是前端js直接导出一个表,另一是分门别类在java中同时导出多个表 ...
- springmvc使用easypoi导出导入Excel表(1):导出Excel表
编译工具:eclipse 项目:maven+ssm springmvc使用easypoi导出导入Excel表(2):导入Excel表 在pom.xml引入easypoi的依赖包: <!--eas ...
- django 导出数据到excel表 导出excel表到目标路径及客户端下载
python导出excel表利用的是xlwt模块 学习的网址 大佬教学网址 导出数据到excel表 下面是代码 import os from xlwt import Workbook from inf ...
- 使用poi导出excel表基础
使用poi导出excel表基础. 本人使用的是ssm的框架.使用了mybatis的逆向工程.数据的获取方法很多,如果用servlet大同小异. 在页面中设置一个按钮 为按钮添加点击事件. <bu ...
- odoo从tree视图导出excel表
odoo从tree视图导出excel表 视图 <button type="button" class="layui-btn layui-btn-sm export& ...
最新文章
- 实验6-选第K小元素
- Debian下使用OpenLDAP 管理端
- Tensorflow:tf.contrib.rnn.DropoutWrapper函数(谷歌已经为Dropout申请了专利!)、MultiRNNCell函数的解读与理解
- Netty的Socket编程详解-搭建服务端与客户端并进行数据传输
- 函数计算机按键没反应,关于waitKey()函数按键无反应情况
- 读书笔记之Unix命令
- ExtJs实践(3)——xtype名称与控件对应
- robot:根据条件主动判定用例失败或者通过
- bisect git 使用_让 Git Bisect 帮助你
- Android为网络请求自定义加载动画
- keil及iar调试解释
- 视频专家之路【三】:Vs开发环境的搭建
- 【算法基础】动态规划解题实例之野营问题
- 【教程】PDF控件Spire.PDF 教程:在C#中加密和解密PDF文件
- android studio生成jks,Android Studio生成keystore签名文件步骤讲解
- Axure 点图片外区域即隐藏_多年后终迎换代,新奔腾B70——颜值即是正义!_搜狐汽车...
- smartupload下载
- 函数的重载与重载解析
- 2022爱分析· 隐私计算厂商全景报告 | 爱分析报告
- 微信小程序|使用小程序制作一个节日祝福生成器