所属类别：Asp

文章作者：佚名

特别推荐：免费发布信息 承包关键词~~抢爆了！^HOT!

<%set xlApp = Server.CreateObject("Excel.Application")'使服务端不出现Excel窗口xlApp.Visible = false'建立一个worksheetset myWorkbook = xlApp.Workbooks.Addset myWorksheet = myWorkbook.Worksheets(1)'建立表头myWorksheet.Range("A1").Value = '电话薄'myWorksheet.Range("A1").Font.Size = 18myWorksheet.Range("A1").Font.Bold = truemyWorksheet.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)'关闭ExcelmyWorkbook.ClosexlApp.Quitset myWorksheet = Nothingset myWorkbook = Nothingset myxlApp = Nothing'写出到浏览器中Response.Redirect strFileName%> 关闭本页

....