如何把一個Excel文件放到ASP頁面中去？
<%
set xlApp = Server.CreateObject("Excel.Application")
xlApp.Visible = false
' 使服務(wù)端不出現(xiàn)Excel窗口.
set myWorkbook = xlApp.Workbooks.Add
' 建立一個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 = '手機'
' 以上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]
相關(guān)文章
如何用ASP建立Index Server查詢對象并為其參數(shù)賦值？
如何用ASP建立Index Server查詢對象并為其參數(shù)賦值？...2006-11-11
如何簡單地上傳文件？...2006-11-11
如何實現(xiàn)強制登錄？...2006-11-11
如何將產(chǎn)生的密碼記錄并發(fā)送給用戶并通過點擊鏈接激活？
如何將產(chǎn)生的密碼記錄并發(fā)送給用戶并通過點擊鏈接激活？...2006-11-11
如何決定是否將登錄內(nèi)容保存到Cookie里？...2006-11-11
如何做一個計數(shù)器并讓人家申請使用？...2006-11-11
如何取得服務(wù)器上的用戶組列表？...2006-11-11
如何在線查詢本地機的文件？...2006-11-11
問題解析：為什么數(shù)組下標(biāo)從0?開始而不是?1?？
這篇文章主要為大家介紹了為什么數(shù)組下標(biāo)是從0?開始而不是?1?呢的問題解析，有需要的朋友可以借鑒參考下，希望能夠有所幫助，祝大家多多進步，早日升職加薪2023-04-04
如何動態(tài)生成WBMP？...2006-11-11