ACCESS里面的表导出到EXCEL

最新推荐文章于 2017-08-18 11:01:07 发布

tongers

最新推荐文章于 2017-08-18 11:01:07 发布

阅读量681

点赞数

分类专栏： Windows技术文摘文章标签： excel access

本文链接：https://blog.csdn.net/tongers/article/details/6214268

版权

Windows技术文摘专栏收录该内容

0 篇文章

订阅专栏

博客展示了一段脚本代码，通过创建Excel应用程序对象，生成随机命名的Excel文件。若文件已存在则删除，不存在则添加工作簿并保存。接着将数据库userfile的数据导入到Excel文件的sheet1中，最后关闭工作簿和应用程序并实现文件下载。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

<% set fso=CreateObject("Scripting.FileSystemObject") set myexcell=CreateObject("Excel.Application") myexcell.Visible = True Randomize newfile="output" & Int(Rnd * 9000 + 1000) & ".xls" 'on error resume next if fso.FileExists(server.MapPath(newfile))=true then fso.DeleteFile server.MapPath(newfile) else set mywork=myexcell.Workbooks.Add '生成Excell文件就这两行代码，列名是原数据库的字段名。 mywork.SaveAs server.MapPath(newfile) sql="select * into [sheet1$] In '" & server.MapPath(newfile) & "' 'EXCEL 5.0;' from userfile" conn.execute sql rsclose() connclose() mywork.Close myexcell.Quit 'set mywork=nothing 'set myexcell=nothing set fso=nothing end if Response.ContentType="application/x-msdownload" response.Redirect(newfile) %>