下面是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。