Execel文件插入到ASP页面

 1   
 2Set Xlapp=Server.Createobject("Execel.Application")   
 3Xlapp.Visible=false   
 4'使服务端不出现Execel窗口   
 5Set myWorkbook=xlapp.Wordbooks.Add   
 6Set myWorksheet=myWorkbook.Worksheets(1)   
 7'建立一个WorkSheet   
 8myWorkSheet.Range("A1").Value=''   
 9myWorkSheet.Range("A1").Vont.size=18   
10myWorkSheet.Range("A1").Font.Bold=True   
11myWorkSheet.Range("A2").Value='姓名'   
12myWorkSheet.Range("B2").Value='住址'   
13myWorkSheet.Range("C2").Value='电话'   
14myWorkSheet.Range("D2").Value='传真'   
15'建立表头   
16myWorkSheet.Range("A2:D2").Font.Bold=True   
17StrFileName=Session.SessionID&".xls"   
18'确保文件名唯一   
19strAppPath=Request.ServerVariables("PATH_TRANSLATED")   
20strAppPath=Left(strAppPth,InstrRev(strAppPath,"\"))   
21strFullPath=strAppPath&strFileName   
22myWorkBook.SaveAs(StrFullPath)   
23'保存文件   
24myWorkbook.Close   
25'关闭Excel   
26xlApp.Quit   
27Set myWorkSheet=Nothing   
28Set myWorkBook=Nothing   
29Set myxlApp=Nothing   
30Response.Redirect strFileName   
31'发到浏览器中去