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

http://bbs.bc-cn.net/viewthread.php?tid=162737&star=at
以前的帖子楼主可以看看。

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

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

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

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

难道你那例子里的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个人没试过。