当前位置：首页 > 资讯 > 技术文档

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

时间：2022-03-22 16:08 编辑：来源：阅读：
扫一扫，手机访问

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

<% 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页面,即浏览器中. %>[b][1][/b]

全部评论(0)

上一篇：如何实现电子邮件的自动发送？
下一篇：如何获知文件最后的修改日期和时间？

资讯排行榜
更多>>