asp导出EXCEL数字格式及自动适应宽度的问题
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("生成成功")
%>
相关文档：
在编写ASP程序的时候，通常都会用到<!--#include virtual|file="path/filename"-->把一段相对独立的文件代码嵌套到当前页面中来。在实际的使用中很多人对"file"和"virtual"的使用不太理解，导致页面执行的时候会出现错误。现就该问题作一个简述。
使用"file"的时候，等号后面使用的是相对路径。所谓相� ......
dataurl=Server.MapPath("menutree.mdb")'数据库地址
dim conn,strQuery,rs
set conn = server.CreateObject("adodb.connection")
conn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE="&dataurl
strQuery="select * from menufun"
set rs=server.createobject("adodb.recordset")
rs.open strQuery,conn,1 ......
1. 现在的日期时间命令是 <%=now%> 即可
2.ASP取得表格(from)数据输入的方法，是使用一个内置的对象(object)—Requect, 它以get,post而异。
3.若要自己用VB或其它语言编写，.dll文件供ASP使用需将DLL文件注册方可：DOS下输入 regsbr32 *.dll
4.显示五个重复的句子，字体越来越大 <% for i=1 to 5 %> &l ......
最近做一个用asp做的网站后台的数据导出功能时,google,baidu了很多,但是多数都是转载,代码大概都一样,但是就是报错,最后有人说通过设置MIME类型和建立模板,最后整理,测试问题终于解决.关键的地方有以下几点:
1):MIME类型要设置正确,如要把DB中表(或表中指定字段)的数据导出成exel格式时,头部的MEMI类型的设置是:
<%
......
