木子屋
 

标题: 使用FSO创建Excel

作者: dnawo

日期: 2007-02-26 04:47 PM

分类: Web编程

内容: <%
Dim conn,sqlstr,rs
On error resume next
Set conn=server.createobject("ADODB.connection")
connstr = "provider=microsoft.jet.oledb.4.0;data source=" & server.mappath("mzwucom.mdb")
conn.open connstr
If err then
    Response.write "数据库连接出错！"
    err.clear
    Response.end()
End if
On error goto 0
sqlstr = "select * from table1"
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.open sqlstr,conn,1,2
Dim filename,fs,myfile,x,link  
Set fs = server.CreateObject("scripting.filesystemobject")
filename = Server.MapPath("mzwucom.xls" )
Set myfile = fs.CreateTextFile(filename,true) '存在则覆盖
If not(rs.eof and rs.bof) then
   Dim strLine
   strLine=""
   For each x in rs.fields
           strLine= strLine & x.name & chr(9)
   Next  
   '--将表的列名先写入EXCEL
   myfile.writeline strLine  
   Do while Not rs.EOF
           strLine=""  
           for each x in rs.Fields
               strLine= strLine & x.value & chr(9)
           next
   '--将表的数据写入EXCEL
   myfile.writeline strLine  
   rs.MoveNext
   Loop  
End if
Set myfile = nothing
Set fs=Nothing
rs.close
Set rs = nothing
conn.close
Set conn = nothing
link="<A HREF=" & filename & ">Open The Excel File</a>"
Response.write link
%>
注：使用本方法无法对Excel单元格的格式进行控制，因而诸如身份证号码之类的数值型字符串会被认为是数值，并采用科学计数法显示！此问题目前尚未解决。

+ 查看当前日志评论 (1)

 

登录

────────────

木子屋

PJBlog3 v3.2.9.518 Inside.

Processed In 0.047 ms

标题: 使用FSO创建Excel

你没有权限发表评论

────────────

木子屋

PJBlog3 v3.2.9.518 Inside.

Processed In 0.047 ms

暂无评论

返回

────────────

木子屋

PJBlog3 v3.2.9.518 Inside.

Processed In 0.047 ms