有没有导出的execl报表既美观，又快速的方法？？

[ALbert_Yu]

我现在用的execl导出的方法，速度慢、又占用系统资源，时常还会出现服务器死机的现象，请问有没有更好的方法？主要是导出的报表要美观呀，这些都是要用到公司的日常工作中的呀！希望高手帮帮忙！
我现在的代码如下：
set objExcelApp = CreateObject("Excel.Application")
objExcelApp.DisplayAlerts = false '不显示警告
objExcelApp.Application.Visible = false '不显示界面
strAddr = Server.MapPath(".")
objExcelApp.WorkBooks.Open(strAddr & "\Temp\yangban.xls")
set objExcelBook = objExcelApp.ActiveWorkBook
set objExcelSheets = objExcelBook.Worksheets
set objExcelSheet = objExcelBook.Sheets(1)
objExcelSheet.Cells(4,3).Value=date()
……
function getTemporaryFile(myFileSystem)
dim tempFile,dotPos
tempFile=myFileSystem.getTempName
dotPos=instr(1,tempFile,".")
getTemporaryFile=mid(tempFile,1,dotPos)&"xls"
end function
saveas=strAddr&"\Temp\baobiao\"

randomize
fileName=int(200501+(10000*rnd))
fileName=fileName&".xls"
'保存为表
objExcelBook.SaveAs saveas & fileName
'退出表
objExcelApp.Quit '一定要退出
set objExcelApp = Nothing
end if
set cn=nothing
set rs=nothing
%>

[deninghe]

mark

[FIREGUNS]

hehe.真累。
拿xls文件当作数据库就行了。
美观不美观的就是HTML的事了。

注意一点，就是列名。最好先新建一个空的XLS，自己输入列名，再把内容复制过去。
还有
select * from [sheet1$]
其他的都一样了。

因为xls没有数据类型，如果某列里有数字又有文本，判断起来稍微麻烦点而已。。

[webphoenix]

直接输出用这个
<%
Response.ContentType = "application/vnd.ms-excel"
.....

'生成HTML，就像生成一般的HTML、表格一样

%>
保存文件，你就生成个HTML，把后缀改成.xls