807
社区成员
请教高手: 怎样将界面 DataGrid中显示的数据库报表查询结果,输出到excel中?
请教高手: 怎样将界面 DataGrid中显示的数据库报表查询结果,输出到excel中?
不胜感谢!
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
pcking 2003-03-05
答案在这里：
http://www.5ivb.net/club/dispbbs.asp?boardID=1&ID=11813
http://www.5ivb.net/club/dispbbs.asp?boardID=1&ID=11813
pcking 2003-03-04
请问ybcaa，Gridrow是行数吗？？
maskzha 2003-02-10
up up 完全正确。
看看 MSDN 还可画出网格线。
看看 MSDN 还可画出网格线。
zyh9188 2002-12-20
up
ybcaa 2002-12-20
这里有段代码，可参考一下
PrivateSubcommand3_Click()
DimiAsInteger
DimjAsInteger
DimxlAppAsExcel.Application
DimxlBookAsExcel.Workbook
DimxlSheetAsExcel.Worksheet
SetxlApp=CreateObject("Excel.Application")
xlApp.Visible=True
SetxlBook=xlApp.Workbooks.Add
OnErrorResumeNext
Set xlBook=xlApp.Workbooks.AddOpen("d:\text2.xls")
Set xlSheet=xlBook.Worksheets(1)
xlSheet.Cells(6,1)="i"
Fori=0Togridrow
grid1.Row=i
Forj=0To6
Grid1.Col=j
If IsNull(Grid1.Text)=FalseThen
xlSheet.Cells(i+5,j+1)=Grid1.Text
EndIf
Nextj
Nexti
ExitSub
PrivateSubcommand3_Click()
DimiAsInteger
DimjAsInteger
DimxlAppAsExcel.Application
DimxlBookAsExcel.Workbook
DimxlSheetAsExcel.Worksheet
SetxlApp=CreateObject("Excel.Application")
xlApp.Visible=True
SetxlBook=xlApp.Workbooks.Add
OnErrorResumeNext
Set xlBook=xlApp.Workbooks.AddOpen("d:\text2.xls")
Set xlSheet=xlBook.Worksheets(1)
xlSheet.Cells(6,1)="i"
Fori=0Togridrow
grid1.Row=i
Forj=0To6
Grid1.Col=j
If IsNull(Grid1.Text)=FalseThen
xlSheet.Cells(i+5,j+1)=Grid1.Text
EndIf
Nextj
Nexti
ExitSub
asp.net知识库 将数据库表中的数据生成Insert脚本的存储过程!!! 2分法-通用存储过程分页(top max模式)版本(性能相对之前的not in版本极大提高) 分页存储过程：排序反转分页法 优化后的通用分页存储过程 sql语句 一些Select检索高级...
VB如何只读取字符串中的数字部分?? 中的一个，取出连续的数值部分问题不明确啊 比如： dim s as string dim v as long s="123abc456efg" 如果你只要123，那么有现成的函数： v=val(s) 如果你要123456,如老鸟所言，逐个字符...
我在CSDN参与的3000个帖子 2：100分急求，随机输出十个小写字母，但是，要求这十个字母不相同 3：求Sn=a+aa+aaa+…+aaa…a（n个a）之值 4：数组题 望高手帮忙！ 5：呵呵，来推荐一下我的网站，本站提供大量当今流行的免费的音乐和免费电影，...
VB+ADO+Access如何修改数据 我把用adodc1绑定了表Case，并在窗体中用几个Text跟表Case中的对应字段相绑定，我现在想直接通过修改Text(i).text来修改数据库表Case中的记录，问该如何修改，大侠们可否提供一下建议，并帮忙看看我的问题出在哪儿 ...
vb/vb.net开发精粹(7) 一个简单的句子，却搞不定 flexcell 单元格图像问题 谁知道tar.gz文件在vb中解压命令如何写 ◆求让一个窗体成为另一个窗体对话框的API写法◆ 请教了：如何获取控件listview的消息常量 ...vb中操作excel问题，如何
转载,一些不错的资料 作者:CSDN 许仙 Homepage : jjweb.126.comMSN :Coderxu#hotmail.comQQ:19030300转载请保持文章完整,保存以上作者信息 请珍惜他人劳动成果转自...PostId=116708TreeView中如何选中一个父节点同时选中所有的子节点和
VB fans可以看一下，偶在2001-2003年参与的一些贴子！特此放上来！ TreeView中如何选中一个父节点同时选中所有的子节点和孙节点http://search.csdn.net/Expert/topic/2381/2381636.xml?temp=5.942935E-02请问如何在word里嵌入一个工具条...
WEB开发文档2 总结 http://blog.donews.com/lvjiyong/archive/2006/06/29/931071.aspx 怎样将后台生成的在内存中的图象显示到客户端 Microsoft IE WebControls下载地址 如何在DATAGRID中使用JAVASCRIPT脚本控制 DataGrid中连接到...
.NET + Excel + SQL 昨天有个任务，做个报表页面（以Excel中的数据作为数据源），前段时间有人让我给他解决将Excel插入到数据库，于是很自信的开始了工作。如果将Excel插入到数据库，然后再从数据库中检索的话那样太浪费资源了（而且...
sql server sql server 作者：Sanle 来源：博客园 发布时间：2006-04-27 13:06 阅读：3402 次 原文链接 [收藏] ...1.清空日志:DUMP TRANSACTION 库名 WITH NO_...3.收缩数据库文件(如果不压缩,数据库的文件不会减小)
webmagic采集CSDN的Java_WebDevelop页面 , 单位排班维护界面怎么开发，急 急 急, 请问高手，关于xstream插件的问题, JSP中if-else-if语句多的时候，运行就会报错！, myeclipse导入web项目出错, 求助：怎么将一个有web项目目录结构的java项目部署到tomcat中...
袖珍拾遗（转贴来源于流水无声） 关键字 SQL Server 与 Excel /*存储过程名称：导出数据到Excel功能描述：导出数据到ExcelEXEC ExportToExcel @server = ., @uname = sa, @pwd = , @QueryText = SELECT *
Jiangsheng的CSDN Digest(May 15, 2006) 为了便于搜索（http://search.csdn.net）,这里尽可能保留了论坛上讨论的原文，但是这并不表示本人赞同帖子中的表述方式和观点。 CSDN 讨论总结系列： Jiangsheng的CSDN Digest(April 3, 2006) ...
C#面试题集锦 1. 简述 private、 ...protected : 保护成员，该类内部和继承类中可以访问。 public : 公共成员，完全公开，没有访问限制。 internal: 在同一命名空间内可以访问。 2 .列举ASP.NET 页面之间传递值的几种方式。
vb/vb.net开发技巧荟萃(五) 一个简单的句子，却搞不定 flexcell 单元格图像问题 谁知道tar.gz文件在vb中... vb中操作excel问题，如何计算某个单元格包含的已经经过合并的单元格（即合并后的项目）数 如何将记录集的数据快速插入到表里。 大...
