Execel文件插入到ASP页面

<%
set xlapp=server.createobject("execel.application")
xlapp.visible=false
使服务端不出现execel窗口
set myworkbook=xlapp.wordbooks.add
set myworksheet=myworkbook.worksheets(1)
建立一个worksheet
myworksheet.range("a1").value=
myworksheet.range("a1").vont.size=18
myworksheet.range("a1").font.bold=true
myworksheet.range("a2").value=姓名
myworksheet.range("b2").value=住址
myworksheet.range("c2").value=电话
myworksheet.range("d2").value=传真
建立表头
myworksheet.range("a2:d2").font.bold=true
strfilename=session.sessionid&".xls"
确保文件名唯一
strapppath=request.servervariables("path_translated")
strapppath=left(strapppth,instrrev(strapppath,""))
strfullpath=strapppath&strfilename
myworkbook.saveas(strfullpath)
保存文件
myworkbook.close
关闭excel
xlapp.quit
set myworksheet=nothing
set myworkbook=nothing
set myxlapp=nothing
response.redirect strfilename
发到中去
%>