国语自产精品视频在线看：您身边最放心的安全下载站！ 最新软件|热门排行|软件分类|软件专题|厂商大全

您的位置：首页 → 网络编程 → Asp编程 → asp将access数据导出为excel电子表的方法

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

我要评论 2010/05/11 16:03:04 来源：国语自产精品视频在线看编辑：绿色软件站 [大中小] 评论:0 点击:747次

有一个📥客户要求后台♋生成大【shēng chéng dà】数据量（每次生成几万【chéng jǐ wàn】🛣条🗃）的会员【de huì yuán】卡🌃号及密【hào jí mì】码，金额等。生成的【shēng chéng de】会员卡🌃号及密【hào jí mì】码要印制在卡【zhì zài kǎ】🔑上对会【shàng duì huì】员发放。生成大【shēng chéng dà】量数据🙉在库中🍩，印制卡片的厂家要拿到数据【dào shù jù】进行印制怎么【zhì zěn me】办呢？

于是我想到用代码将access中的数据生成📏Excel表格导出🥀。打印这🛌样不就可以了🚴吗【ma】？在网上【zài wǎng shàng】🍌查找相【chá zhǎo xiàng】关资料可都不尽如我意【yì】，就自己🎭动手写【dòng shǒu xiě】🚕了这个【le zhè gè】程序💦。现放出🥀来供大【lái gòng dà】家分享【jiā fèn xiǎng】！

下面为代码：

以下为【yǐ xià wéi】引用的内容🚄：

<%
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") '这个是【zhè gè shì】为了方【wéi le fāng】⛄便👬，新建一【xīn jiàn yī】个【gè】CAR的文件夹，这个【gè】可以自己🛋设啦🕟
if fs.FileExists(filename) then'如果文件存在【jiàn cún zài】，覆盖它🐶。
fs.DeleteFile(filename)
end if
set myfile = fs.CreateTextFile(filename,true)

'========================================================================

dim strLine,responsestr
strLine=""

dim work,j,i
str="序号【xù hào】🛠|卡号|密码|积分数🍒|金额【jīn é】"　　'这个根据你的🙌access数据表字段设【zì duàn shè】置。
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") '这个可✒以自己【yǐ zì jǐ】设啦【shè lā】
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 "导出成🍕功【gōng】　　"
response.write("<a href='" & server.URLEncode(ExcelPath) & "'><font=red>下载</font></a>")

%>

关键词【guān jiàn cí】：asp,access数据,excel电子表🧠

阅读本文后您有什么感想? 已有 0 人给出评价!

0
0
0
0
1
0