<%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 = 12myWorksheet.Range(\”A1\”).Font.Bold = truemyWorksheet.Range(\”A2\”).Value = \’姓名\’myWorksheet.Range(\”B2\”).Value = \’地址\’myWorksheet.Range(\”C2\”).Value = \’电话\’myWorksheet.Range(\”D2\”).Value = \’手机\’
\’ 以上7行建立表头.myWorksheet.Range(\”A2:D2\”).Font.Bold = truestrFileName = Session.SessionID & \”.xls\”
\’ 确保文件名唯一.strAppPath = Request.ServerVariables(\”PATH_trANSLATED\”)strAppPath = Left(strAppPath, InstrRev(strAppPath, \”\\\”))strFullPath = strAppPath & strFileNamemyWorkbook.SaveAs(strFullPath)
\’ 保存文件.myWorkbook.Close
\’ 关闭Excel.xlApp.Quitset myWorksheet = Nothingset myWorkbook = Nothingset myxlApp = NothingResponse.Redirect strFileName
\’ 写到ASP页面,即浏览器中.%>[1]