如何把一个Excel文件放到ASP页面中去？

很简单，只需建立一个 worksheet 和 Excel 相关的信息就可以了，具体代码见下：

<% 
set xlApp = Server.CreateObject("Excel.Application") 
xlApp.Visible = false 

' 使服务端不出现 Excel 窗口 
set myWorkbook = xlApp.Workbooks.Add 

' 建立一个 worksheet 
set myWorksheet = myWorkbook.Worksheets(1) 
myWorksheet.Range("A1").Value = ' 通讯录 ' 
myWorksheet.Range("A1").Font.Size = 12 
myWorksheet.Range("A1").Font.Bold = true 
myWorksheet.Range("A2").Value = ' 姓名 ' 
myWorksheet.Range("B2").Value = ' 地址 ' 
myWorksheet.Range("C2").Value = ' 电话 ' 
myWorksheet.Range("D2").Value = ' 手机 ' 

' 以上 7 行建立表头 
myWorksheet.Range("A2:D2").Font.Bold = true 
strFileName = Session.SessionID & ".xls" 

' 确保文件名唯一 
strAppPath = Request.ServerVariables("PATH_TRANSLATED") 
strAppPath = Left(strAppPath, 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 

' 写到 ASP 页面，即浏览器中 
%>