asp如何将数据库中的数据输出到表格中并修改
2024-04-16 15:49:11
下面是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。
声明:本网站信息来自网络,所有数据仅供参考,不代表本站立场,如存在版权或非法内容,请联系站长删除,联系邮箱:abc5566@foxmail.com。
- 上一篇:健康证在哪里办
- 下一篇:通天狄仁杰聂欢第几集
猜你喜欢
-
乒乓球拍黑色和红色胶皮的区别是什么
阅读量:43 -
巴浪鱼的营养价值
阅读量:17 -
好听又不失格调的宠物个性的名字
阅读量:36 -
梦见田地
阅读量:22 -
听过好玩的宠物名字神仙级别的搞笑
阅读量:23 -
梦见上帝
阅读量:92 -
苏虎鱼跟印尼虎区别
阅读量:19 -
梦见钱包里多了钱
阅读量:11 -
周公解梦梦见买新鞋是什么意思
阅读量:6 -
幸福阳光快乐的网名
阅读量:88
-
阅读量:70
-
阅读量:34
-
阅读量:9
-
阅读量:44
-
阅读量:17
-
阅读量:67
-
阅读量:63
-
阅读量:47
-
阅读量:14
-
阅读量:62