我是一个ASP新手，用ASP+SQL2000+SERVER2000+破电脑组了一个内部网站，各部门在网上报后我想把数据转出EXCEL进行整理。以下是我从网上找到关于ASP输出到EXCEL的资料，但不成功，怎么也想不明白，并且每次运行后都在系统中保留有EXCEL.EXE，有时高达10多个。如各位有什么好方法请列出。谢谢！！！
<!--#include file="articleconn.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>新建网页 2</title>
</head>
<body>
<%
set objExcel=CreateObject("Excel.Application")
objExcel.Workbooks.Open (server.mappath("\test")&"\book1.xlt")
'objExcel.Workbooks.Open(server.mappath("\test")&"\book1.xlt") '打开Excel模板
objExcel.Sheets(3).select
set sheetActive=objExcel.ActiveWorkbook.ActiveSheet
sheetActive.cells(6,8).value="fasfdsafasfasfasd" ‘测试是否写入，但未见成功
sheetActive.range("g5").value="fasfdsafasfasfasd"
response.write "fsafasf5555115"
sql="select * from 学生表 "
Set adorset= Server.CreateObject("ADODB.Recordset")
adorset.open sql,conn,1,1
num=7 '从Excel的第七行开始
do until adoRset.EOF '循环直至数据集中的数据写完
strRange="d"&num&":f"&num '设定要填写内容的单元区域
sheetActive.range(strRange).font.size=10 '设定字体大小
sheetActive.range(strRange).WrapText=false '设定文字回卷
sheetActive.range(strRange).ShrinkToFit=true '设定是否自动适应表格单元大小
sheetActive.range(strRange).value=array(adoRset("年级"),adoRset("学号"),adoRset("姓名")) '把数据集中的数据填写到相应的单元中
num=num+1
adoRset.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") & "\tmp\" '要存放打印临时文件的临时目录
fileName=getTemporaryFile(myFs) '取得一个临时文件名
myFs.DeleteFile filePos&"*.xls" '删除该目录下所有原先产生的临时打印文件 ―――在这里产生错误，说没有这个文件
set myFs=nothing
objExcel.ActiveWorkbook.saveas filePos&filename
objExcel.quit
set objExcel=Nothing
%>
</body>
</html>
[此贴子已经被作者于2005-7-28 16:06:31编辑过]
