如何把一個(gè)Excel文件放到ASP頁(yè)面中去？
<%
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]
相關(guān)文章
如何實(shí)時(shí)獲知多少人在線？...2006-11-11
如何用攔截表單的方法上傳圖片？...2006-11-11
如何準(zhǔn)確地獲得一個(gè)整數(shù)？...2006-11-11
計(jì)算機(jī)網(wǎng)絡(luò)傳輸協(xié)議TCP三次握手與四次揮手原理
其實(shí)大家都聽過TCP三次握手建立連接，四次揮手?jǐn)嚅_連接，那我們今天就來具體看看，TCP到底是如何三次握手和四次揮手的，本文來為大家詳細(xì)解析2021-09-09
如何編寫一個(gè)加法器？...2006-11-11
如何實(shí)現(xiàn)無組件上傳二進(jìn)制文件？
如何實(shí)現(xiàn)無組件上傳二進(jìn)制文件？...2006-11-11
如何做一個(gè)隨機(jī)密碼產(chǎn)生器？...2006-11-11
如何把圖片也存到數(shù)據(jù)庫(kù)中去？...2006-11-11
如何用FileSystemObject組件來做一個(gè)站內(nèi)搜索？
如何用FileSystemObject組件來做一個(gè)站內(nèi)搜索？...2006-11-11
如何使用數(shù)組來顯示下拉菜單？...2006-11-11