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。

asp如何将数据库中的数据输出到表格中并修改相关文章：