【ASP】ASP将access数据导出为excel电子表的方法-access-exce

欢迎您阅读本文，今天小编为你分享的电脑教程是：【ASP将access数据导出为excel电子表的方法】，下面是详细的讲解！

ASP将access数据导出为excel电子表的方法

ASP报表设计源代码 授权：试用软件 大小：148KB 语言： 简体中文 下载地址 本周共下载 47 次

有一个客户要求后台生成大数据量（每次生成几万条）的会员卡号及密码，金额等。生成的会员卡号及密码要印制在卡上对会员发放。生成大量数据在库中，印制卡片的厂家要拿到数据进行印制怎么办呢？

于是我想到用代码将access中的数据生成Excel表格导出。打印这样不就可以了吗？在网上查找相关资料可都不尽如我意，就自己动手写了这个程序。现放出来供大家分享！大家知道写代码很辛苦，所以要用或者转贴时一定注明出处：http://www.6yee.cn

下面为代码：

以下为引用的内容：


<%
if session("china_admin")="" then response.redirect "login.asp"
dbpath="../"
dblink
dim filename,fs,myfile,x,m,n,o,link
Set fs=server.CreateObject("scripting.filesystemobject")
Set rs=Server.CreateObject("ADODB.Recordset")
session("sql")="select * from china_car"
rs.Open session("sql"),conn,1,1
n=1
'==================================================================
'==============================================================建立excel文件系统
filename=Server.MapPath("car/CarTable"&n&".xls") '这个是为了方便，新建一个CAR的文件夹，这个可以自己设啦
if fs.FileExists(filename) then'如果文件存在，覆盖它。
fs.DeleteFile(filename)
end if
set myfile=fs.CreateTextFile(filename,true)
'========================================================================
dim strLine,responsestr
strLine=""
dim work,j,i
str="序号|卡号|密码|积分数|金额"　　'这个根据你的access数据表字段设置。
work=split(str,"|")
j=ubound(work)
i=0
o=0
do while not i>j
strLine=strLine & work(i) & chr(9)
i=i+1
loop
myfile.writeline strLine
Do while Not rs.EOF
o=o+1
m=20000

strLine=""
for each x in rs.Fields
strLine=strLine & x.value & chr(9)
if o>=m*n then
n=n+1
filename=Server.MapPath("car/CarTable"&n&".xls") '这个可以自己设啦
if fs.FileExists(filename) then'如果文件存在，覆盖它。
fs.DeleteFile(filename)
end if
set myfile=fs.CreateTextFile(filename,true)
end if
next
myfile.writeline strLine
rs.MoveNext
loop
rs.Close
set rs=nothing
conn.close
set conn=nothing
set myfile=nothing
Set fs=Nothing
ExcelPath="car/CarTable"&n&".xls"
response.Write "导出成功　　"
response.write("下载")
%>

关于ASP将access数据导出为excel电子表的方法的用户互动如下：

　　相关问题：asp如何将access数据导出到excel

　　答：给你个我正在使用的例子吧，有什么问题私信给我 >>详细

　　相关问题：如何用asp把access中数据导出到excel表格中

　　答：upload.asp 上传文件 if (top.location==self.location) { top.location="index.asp" } -------------------------------------- -------上传并且写入库----------- readxls.asp EXECL数据导入 120000 then %> alert("您选择的文件过大!"); wind... >>详细

　　相关问题：asp程序，把access数据导出成excel表格

　　答：如果单位名称，电话，联系人，都在一个表里面。那就可以使用数据库工具自带的导入导出工具很方便的导出。 想问下楼主，你朋友给你做的asp程序连接的是什么数据库？ mssql还是access？ 如果是access那就太简单了。 推荐安装office 2007 然后打开m... >>详细