数据查询结果导出成Excel文件？？？？，怎么实现

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

以下是引用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个人没试过。