在ASP页面中插入excel文件

ASP

<%
set  xlApp  =  Server.CreateObject("Excel.Application")
''使服务端不出现Excel窗口
xlApp.Visible  =  false
''建立一个worksheet
set  myWorkbook  =  xlApp.Workbooks.Add
set  myWorksheet  =  myWorkbook.Worksheets(1)
''建立表头
myWorksheet.Range("A1").Value  =  ''电话薄''
myWorksheet.Range("A1").Font.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(strAppPath,  InstrRev(strAppPath,  "\"))
strFullPath  =  strAppPath  &  strFileName
''保存文件
myWorkbook.SaveAs(strFullPath)
''关闭Excel
myWorkbook.Close
xlApp.Quit
set  myWorksheet  =  Nothing
set  myWorkbook  =  Nothing
set  myxlApp  =  Nothing
''写出到浏览器中
Response.Redirect  strFileName
%>

属于分类：ASP
本文标签：
文章作者：Kiyo
阅读次数：已有 26 views 人阅读
出生日期：纪元 08年01月1日 - 0时01分08秒
加载用时：加载本文共用时 1.166 秒
文章链接：https://www.wkiyo.cn/html/2008-01/i69.html [复制] (转载时请注明本文出处及文章链接)

上一篇 >：在ASP中常见的错误80004005信息和解决办法　　
下一篇 >：用FLASH结合ASP制做计数器

首页

在ASP页面中插入excel文件