ASP创建真正的EXCEL文件

最新推荐文章于 2015-01-29 09:48:59 发布

iteye_14829

最新推荐文章于 2015-01-29 09:48:59 发布

阅读量418

点赞数

分类专栏： ASP

本文链接：https://blog.csdn.net/iteye_14829/article/details/82162045

版权

ASP 专栏收录该内容

30 篇文章 0 订阅

订阅专栏

<%
on error resume next
Dim xlWorkSheet
Dim xlApplication
Set xlApplication = server.CreateObject("Excel.Application")
if err.number<>0 then
 Response.Write "错误发生：" & err.description & "<p>"
end if
xlApplication.Visible = False
xlApplication.Workbooks.Add
Set xlWorksheet = xlApplication.Worksheets(1)
xlWorksheet.Cells(1,1).Value = "姓名"
xlWorksheet.Cells(1,1).Interior.ColorIndex = 6     '黄色
xlWorksheet.Cells(1,2).Value = "性别"
xlWorksheet.Cells(1,2).Interior.ColorIndex = 5     '蓝色
xlWorksheet.Cells(1,3).Value = "年龄"
xlWorksheet.Cells(1,3).Interior.ColorIndex = 5
strFile = "Excel/"& GenFileName() & ".xls"

xlWorksheet.SaveAs Server.MapPath(strFile)
xlApplication.Quit    ' Close the Workbook

Set xlWorksheet = Nothing
Set xlApplication = Nothing

Response.Write("Click <A HRef=" & strFile & ">Here</A>  to get XLS file")

Function GenFileName()
 GenFileName = year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)
End Function

%>