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

2006-05-17 04:55:21 191 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

如何在Excel中调用Python脚本，实现数据自动化处理二条：有了这款Python神器，新手也会调试代码！三条：一行代码简化Python异常信息：错误清晰指出，排版简洁美观！这次我们会介绍如何使用xlwings将Python和Excel两大数据工具进行集成，更便捷地处理日常工作。说起Excel，那绝对是数据处理领域王者般的存在，尽管已经诞生三十多年了，现在全球仍有7.5亿忠实用户，而作为网红语言的Python，也仅仅只有700万的开发人员。 Excel是全世界最流行的编程语言。对，你没看错，自从微软引入了LAMBDA定义函数后，Excel已经可以实现. 阅读详情

我现在用的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
%>

...全文