<% 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页面,即浏览器中. %>[1] |
请发表评论