asp导出EXCEL数字格式及自动适应宽度的问题

最新推荐文章于 2023-05-23 11:14:54 发布

魔拉宝

最新推荐文章于 2023-05-23 11:14:54 发布

阅读量4.1k

点赞数

分类专栏：特效代码网页设计文章标签： excel asp email qq

特效代码同时被 2 个专栏收录

109 篇文章 1 订阅

订阅专栏

网页设计

59 篇文章 0 订阅

订阅专栏

asp导出EXCEL数字格式及自动适应宽度的问题

下面直接进行代码演示：

<%
If Response.IsClientConnected Then
Response.Flush
Else
Response.End
End If

Set xlApplication = Server.CreateObject("Excel.Application")
xlApplication.Visible = False
xlApplication.Workbooks.Add
Set xlWorksheet = xlApplication.Worksheets(1)
xlWorksheet.Cells(9).NumberFormatLocal = "@" '处理为数据格式
xlWorksheet.Cells(1,1).Value = "编号"
xlWorksheet.Cells(1,2).Value = "笔记本品牌"
xlWorksheet.Cells(1,3).Value = "地址"
xlWorksheet.Cells(1,4).Value = "班级"
xlWorksheet.Cells(1,5).Value = "IP"
xlWorksheet.Cells(1,6).Value = "金额"
xlWorksheet.Cells(1,7).Value = "email"
xlWorksheet.Cells(1,8).Value = "QQ"
xlWorksheet.Cells(1,9).Value = "3503221985080111111"

xlWorksheet.Cells.EntireColumn.AutoFit '自动调整列宽
'xlWorksheet.ActiveSheet.Columns[1].ColumnsWidth=50

filename="NBB"&year(now())&month(now())&day(now())
xlWorksheet.SaveAs Server.MapPath(filename & ".xls")
xlApplication.Quit
Set xlWorksheet = Nothing
Set xlApplication = Nothing

response.write("生成成功")