分类：电脑/网络-程序设计-数据库
问题：求教：想把access中的查询结果用excel保存并打开怎么样实 
怎么样实现？多谢了
回答：sql="select 姓名,部门职位,年龄,程度,籍贯 into [sheet1$] In '" & server.MapPath(newfile) & "' 'EXCEL 5.0;' from 数据表a"conn.execute sqlset fso=nothingresponse.Redirect(newfile)%>   lnboy1003(陌生人) 于 2005-9-30 13:05:02 顶   jspadmin(阿笨狗 ) 于 2005-9-30 13:27:03 up   yuexi_hou(watermoon) 于 2005-9-30 13:33:37 文件是通过set mywork=myexcell.Workbooks.Addmywork.SaveAs server.MapPath(newfile)生成了，但是你只查询没有写入阿，只是个空文件要用fso往文件里写吗   jspadmin(阿笨狗 ) 于 2005-9-30 13:58:39 再顶一下，一会帖上我收集到的可行的代码   jspadmin(阿笨狗 ) 于 2005-9-30 14:20:52 顶，代码调试中   jspadmin(阿笨狗 ) 于 2005-9-30 14:51:16 下面这段代码可以生成Excel文件，可是还有问题，继续调试<!--#include file="inc/ p"--><%dim rs,sql,filename,fso,myfile,xSet fso = server.CreateObject(" lesystemobject") filename = Server.MapPath("download.xls") if fso.FileExists(filename) thenfso.DeleteFile(filename) end if'--创建EXCEL文件set myfile = fso.CreateTextFile(filename,true)Set rs = Server.CreateObject("ADODB.Recordset")sql = "select * from userfile" rs.Open sql,conn,1,1if rs.EOF and rs.BOF thenresponse.write "无数据"elsedim strLine,responsestr strLine=""'--将表的列名先写入EXCEL For each x in  eldsstrLine = strLine &   & chr(9)Nextmyfile.writeline strLineDo while Not rs.EOF strLine=""for each x in rs.Fields strLine = strLine &  lue & chr(9) next'--将表的数据写入EXCEL myfile.writeline strLiners.MoveNextloopend ifrs.Close set rs = nothingResponse.ContentType="application/x-msdownload"Response.Redirect "download.xls"%>