asp如何将数据库中的数据输出到表格中并修改
下面是asp中的代码
Set rs2=Server.CreateObject(ADODB.recordset)
sql=select * from eq where eqbumen='&dep;&' order by eqbumen desc
rs2.open sql,conn,1,1
set objExcel=CreateObject(Excel.Application)
objExcel.Workbooks.Open(server.mappath(test)&book1.xlt) '打开Excel模板
objExcel.Sheets(1).select '选中工作页
set sheetActive=objExcel.ActiveWorkbook.ActiveSheet
num=2 '从Excel的第2行开始
Do while not rs2.eof '循环直至数据集中的数据写完
strRange=b#&:k# '设定要填写内容的单元区域
sheetActive.range(strRange).font.size=10 '设定字体大小
sheetActive.range(strRange).WrapText=false '设定文字回卷
sheetActive.range(strRange).ShrinkToFit=true '设定是否自动适应表格单元大小
sheetActive.range(strRange).value=array(rs2(zcid),rs2(eqname),rs2(eqchangjia),rs2(eqxinghao),rs2(eqnengli),rs2(eqweizhi),rs2(eqxianzhuang),rs2(eqno),rs2(eqbumen),rs2(eqchejian)) '把数据集中的数据填写到相应的单元中
num=num+1
rs2.MoveNext
loop
function getTemporaryFile(myFileSystem)
dim tempFile,dotPos
tempFile=myFileSystem.getTempName
dotPos=instr(1,tempFile,.)
getTemporaryFile=mid(tempFile,1,dotPos)&xls;end function
set myFs=createObject(scripting.FileSystemObject)
filePos=server.mappath(test)&temp '要存放打印临时文件的临时目录
fileName=getTemporaryFile(myFs) '取得一个临时文件名
'myFs.DeleteFile filePos&*.xls '删除该目录下所有原先产生的临时打印文件
set myFs=nothing
objExcel.ActiveWorkbook.saveas filePos&filename;
objExcel.quit
set objExcel=Nothing。
![](/images/zang.png)
![](/images/jiucuo.png)
猜你喜欢
虚拟机上如何搭建一个网络环境
首先在里使用网卡时设为桥接模式确保网卡地址和主机的网卡地址在...佘太翠玉手镯能养人吗 佘太翠与翡翠有啥区别
据现代科学测定,佘太翠本身含有多种微量元素,如锌铁铜锰镁钴硒...历练人生的经典语录
人们最难控制的,不是别人,而是自己。人生,没有纯粹的甜和苦,...龙岩最富的镇是哪几个
古田镇古田镇,位于福建省龙岩市上杭县境内,地处新罗上杭连城三...家常凉菜怎么拌好吃
针对不同食材,可用不同调料拌食家常凉菜,具体介绍如下盐味汁以...17度穿什么衣服合适 穿衣搭配禁忌有哪些
导读人人都说,长得好看是优势,穿得好看才是本事,这句话说明颜...鱼塘水质如何净化
鱼塘水质的净化方法有清理淤泥曝晒污泥后,泼洒生石灰以改良底质...契税是什么
契税是指不动产土地房屋产权发生转移变动时,就当事人所订契约按...蘑菇街怎样换头像
蘑菇街换头像的方法如下打开客户端打开首页点击我的按钮点击头像...知而不行是什么意思
知而不行,是为不知行而不知,可以致知。解释行动前不知道道理的...十35是哪个国家区号
十是欧洲国家葡萄牙的区号,一个位于欧洲西南部的共和制国家。东...集成热水器费电吗 集成热水器耗电量大吗
热水器类型有很多种,集成热水器是目前最多家庭都在使用的热水器...重庆丰都县有什么好玩的
重庆丰都县好玩的景点很多,如重庆丰都兴龙文化公园地处丰都县城...老汤干豆腐最正宗的做法
食材干豆腐小红辣椒油盐葱和味精。步骤干豆腐切成细丝备用葱切成...成都哪里便宜而且好看的男士衣服
的钴男装,地址成都市新都区正西街号虎都男装,地址成都市武侯区...