%
set xlApp = Server.CreateObject("Excel.Application")
xlApp.Visible = false
' 使服務(wù)端不出現(xiàn)Excel窗口.
set myWorkbook = xlApp.Workbooks.Add
' 建立一個(gè)worksheet.
set myWorksheet = myWorkbook.Worksheets(1)
myWorksheet.Range("A1").Value = '精彩春風(fēng)通訊錄'
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 = '手機(jī)'
' 以上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
' 關(guān)閉Excel.
xlApp.Quit
set myWorksheet = Nothing
set myWorkbook = Nothing
set myxlApp = Nothing
Response.Redirect strFileName
[1]
標(biāo)簽：遵義 邯鄲 威海 雞西 朔州 柳州 中山 襄陽
巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《如何把一個(gè)Excel文件放到ASP頁面中去？》，本文關(guān)鍵詞 如何,把,一個(gè),Excel,文件,；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題，煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們，我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無關(guān)。
