| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 657 人关注过本帖
标题:数据查询结果导出成Excel文件????,怎么实现
只看楼主 加入收藏
dh2007
Rank: 1
等 级:新手上路
帖 子:228
专家分:0
注 册:2007-2-28
结帖率:0
收藏
 问题点数:0 回复次数:5 
数据查询结果导出成Excel文件????,怎么实现

把数据查询结果的那个表格导出成Excel文件

搜索更多相关主题的帖子: Excel 数据 文件 结果 查询 
2007-09-24 14:49
yms123
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:209
帖 子:12488
专家分:19042
注 册:2004-7-17
收藏
得分:0 
http://bbs.bc-cn.net/viewthread.php?tid=162737&star=at
以前的帖子楼主可以看看。
2007-09-24 15:00
dh2007
Rank: 1
等 级:新手上路
帖 子:228
专家分:0
注 册:2007-2-28
收藏
得分:0 

啊!写成class了?我就这两天要用啊
能用简单的例子说明下吗?
你那个例子是把查询结果表格导入到一个单独页面(只包含表格元素),然后在把整个页面转成Excel

麻烦你跟我解释下怎么把这个只含有表格元素的页面转化成Excel

[此贴子已经被作者于2007-9-25 12:09:08编辑过]


2007-09-25 12:07
yms123
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:209
帖 子:12488
专家分:19042
注 册:2004-7-17
收藏
得分:0 
以下是引用dh2007在2007-9-25 12:07:48的发言:

啊!写成class了?我就这两天要用啊
能用简单的例子说明下吗?
你那个例子是把查询结果表格导入到一个单独页面(只包含表格元素),然后在把整个页面转成Excel

麻烦你跟我解释下怎么把这个只含有表格元素的页面转化成Excel


我那个例子里已经写了怎么生成Excel的源代码(也就是那个Class的调用方法)
其实HTML中的table标签的代码可以直接转换成Excel文件。
最简单的原理
新建一个文本文件
输入如下内容
<table>
<tr>
<td>123</td>
</tr>
<tr>
<td>123</td>
</tr>
</table>
然后把该文件扩展名重命名为.xls(也就是Excel文档的扩展名)使用Office的Excel文档打开看看。

2007-09-25 15:23
dh2007
Rank: 1
等 级:新手上路
帖 子:228
专家分:0
注 册:2007-2-28
收藏
得分:0 

难道你那例子里的4中方法的原理都是新建一个xls文件,然后在里面写入表格???

如果我要求导出的excel文件要非常整齐怎么半?
我听说如果导出excel要求格式的话会比较麻烦,是吗?

2007-09-25 15:50
yms123
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:209
帖 子:12488
专家分:19042
注 册:2004-7-17
收藏
得分:0 
以下是引用dh2007在2007-9-25 15:50:22的发言:

难道你那例子里的4中方法的原理都是新建一个xls文件,然后在里面写入表格???

如果我要求导出的excel文件要非常整齐怎么半?
我听说如果导出excel要求格式的话会比较麻烦,是吗?

也不是没有办法,我写的那个也可以进行改进
'生成Excel的HTML表格头部代码
Private Sub MarkHtmlTBHead(ObjRs)
ExlHtml="<table>"&Chr(13)
ExlHtml=ExlHtml&"<tr>"&Chr(13)
For i=0 To ObjRs.Fields.Count-1
ExlHtml=ExlHtml&"<td>"&ObjRs.Fields(i).Name&"</td>"&Chr(13)
Next
ExlHtml=ExlHtml&"</tr>"&Chr(13)
End Sub

'生成Excel的HTML表格内容代码
Private Sub MarhHtmlTBBody(ObjRs)
Do Until ObjRs.EOF
ExlHtml=ExlHtml&"<tr>"&Chr(13)
For i=0 To ObjRs.Fields.Count-1
ExlHtml=ExlHtml&"<td>"&ObjRs.Fields(i).Value&"</td>"&Chr(13)
Next
ExlHtml=ExlHtml&"</tr>"&Chr(13)
ObjRs.MoveNext
Loop
ExlHtml=ExlHtml&"</Table>"
End Sub
如果用些代码的方式规定格式,直接修改这两个函数就可以,这里是在写Excel工作表的HTML代码。
http://hi.baidu.com/egoc/blog/item/8c99b3d4af5ea102a08bb754.html
我那个只是生成了Excel的原始格式代码,要用HTML的方式规定Excel格式还真没做过。
不过Excel支持一些常用的表格HTML代码
<table border="2" cellpadding="20">
<tr>
<th>项目 A</th>
<th>项目 B</th>
<th>总计</th>
</tr>
<tr>
<td>4</td>
<td>3</td>
<td><font color="red">=sum(a2:b2)</font></td>
</tr>
<tr>
<td>2</td>
<td>1</td>
<td><font color="red">=sum(a3:b3)</font></td>
</tr>
</table>
这样的表格,能否支持CSS个人没试过。

2007-09-25 17:41
快速回复:数据查询结果导出成Excel文件????,怎么实现
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.019612 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved