利用asp生成excel報表與打印的實例學(xué)習(xí)

這篇文章主要跟大家介紹的是關(guān)于如何利用asp生成excel報表，希望能給大家派上用場。

1. 前言
報表打印通常是管理信息系統(tǒng)中的一個重要模塊，而Excel憑借它功能強大、應(yīng)用靈活、通用性強等的優(yōu)勢在報表打印中獲得了廣泛的應(yīng)用。
最初的管理信息系統(tǒng)基本上是采用客戶機/服務(wù)器（C/S）模式開發(fā)的，但隨著WWW的廣泛應(yīng)用，目前的管理信息系統(tǒng)已經(jīng)逐漸開始從C/S模式向瀏覽器/服務(wù)器（B/S）模式轉(zhuǎn)變。B/S模式具有傳統(tǒng)C/S模式所不及的很多特點，如更加開放、與軟硬件無關(guān)、應(yīng)用擴充和系統(tǒng)維護升級方便等等，目前已成為企業(yè)網(wǎng)上首選的計算模式，原先在C/S下的很多軟件都開始移植到B/S模式下。由于B/S模式的特殊性，在C/S下相對較易實現(xiàn)的Excel報表打印功能在B/S下卻成為一個難點。本文根據(jù)在實際的項目中總結(jié)的經(jīng)驗，以ASP為例，給出了一個較好的通用方法。

2. 功能實現(xiàn)
為了說明問題，這里舉一個例子。系統(tǒng)平臺是Windows 2000+SQL Server 2000+IIS 5.0+ASP 3，報表采用的是Excel，要求按照給定的報表格式生成圖書銷售統(tǒng)計的報表，并能夠打印。

2.1 Excel報表模板的制作
首先根據(jù)給定的報表格式，制作一個Excel模板（就是要打印的報表的表格），當然其中需要從數(shù)據(jù)庫中動態(tài)統(tǒng)計生成的數(shù)據(jù)留著空白。這個報表先在Excel中畫好，然后保存為模板，存放在起來，這里為\test\book1.xlt。

2.2 Excel報表的生成與打印
這里采用了Excel的Application組件，該組件在安裝Excel時安裝到系統(tǒng)中。我們的操作也都是針對該組件。
(1) 建立Excel.Application對象
set objExcel=CreateObject("Excel.Application")

(2) 打開Excel模板
objExcel.Workbooks.Open(server.mappath("\test")&"\book1.xlt") '打開Excel模板
objExcel.Sheets(1).select '選中工作頁
set sheetActive=objExcel.ActiveWorkbook.ActiveSheet

(3) Excel的常規(guī)添加操作
例如sheetActive.range("g4").value=date() ‘這里添加的是時間，當然也可以是你指定的任何數(shù)據(jù)

(4) Excel中添加數(shù)據(jù)庫中的紀錄
這里假設(shè)已有一個數(shù)據(jù)集adoRset，存放由Sql操作生成的統(tǒng)計數(shù)據(jù)。
num=7 ‘從Excel的第七行開始
do until adoRset.EOF ‘循環(huán)直至數(shù)據(jù)集中的數(shù)據(jù)寫完
strRange="d"&num&":f"&num ‘設(shè)定要填寫內(nèi)容的單元區(qū)域
sheetActive.range(strRange).font.size=10 ‘設(shè)定字體大小
sheetActive.range(strRange).WrapText=false ‘設(shè)定文字回卷
sheetActive.range(strRange).ShrinkToFit=true ‘設(shè)定是否自動適應(yīng)表格單元大小
sheetActive.range(strRange).value=array(adoRset("bookid"),adoRset("bookname"),adoRset("author")) ‘把數(shù)據(jù)集中的數(shù)據(jù)填寫到相應(yīng)的單元中
num=num+1
adoRset.MoveNext
loop

(5) Excel臨時報表文件的保存及處理
實際運行中應(yīng)該注意每次一個用戶進行報表打印時都采用一個臨時的Excel文件，而不是硬性規(guī)定文件名，因為如果用固定的文件名的話，只有第一次生成是成功的，后面的操作都會因為已存在同名文件而導(dǎo)致失敗。所以我們需要每次都產(chǎn)生一個臨時的而且不重復(fù)的文件名，這里可以采用自定義的getTemporaryFile()函數(shù)由來生成，然后存放在變量filename中,用變量filepos表示這些臨時文件的路徑。
此外如果這些臨時文件不處理的話久而久之會成為文件垃圾，因此在每個用戶提交Excel報表打印請求時要先刪除臨時目錄下所有原先產(chǎn)生的臨時打印文件。
臨時文件的處理主要代碼如下：
function getTemporaryFile(myFileSystem)
dim tempFile,dotPos
tempFile=myFileSystem.getTempName
dotPos=instr(1,tempFile,".")
getTemporaryFile=mid(tempFile,1,dotPos)&"xls"
end function
set myFs=createObject("scripting.FileSystemObject")
filePos=server.mappath("\test") & "\tmp\" '要存放打印臨時文件的臨時目錄
fileName=getTemporaryFile(myFs) '取得一個臨時文件名
myFs.DeleteFile filePos&"*.xls" '刪除該目錄下所有原先產(chǎn)生的臨時打印文件
set myFs=nothing
Excel臨時文件的保存代碼為：
objExcel.ActiveWorkbook.saveas filePos&filename

(6) 退出Excel應(yīng)用
objExcel.quit
set objExcel=Nothing

(7) Excel報表的打印
前面的步驟已經(jīng)生成了Excel報表，下一步進行打印，采用的策略可以有兩種：
方案一：提供上面生成的Excel報表臨時文件鏈接給用戶，用戶可以直接點擊在瀏覽器中打開Excel報表并通過瀏覽器的打印功能進行打印，也可以點擊右鍵然后另存到本地后再作打印等相關(guān)處理。

方案二：生成Excel報表后直接在客戶端加載到瀏覽器，當然在沒有完全加載時應(yīng)該提示“正在加載，請等待”等字樣。

2.3 系統(tǒng)配置與注意事項
雖然以上代碼很簡單，但實際應(yīng)用不當經(jīng)常會出現(xiàn)錯誤，所以下面要講到的系統(tǒng)配置和注意事項非常關(guān)鍵。
(1) 千萬要保證以上代碼輸入的正確性，否則一旦運行錯誤，Excel對象會滯留內(nèi)存，難以消除，導(dǎo)致下一次調(diào)用時速度狂慢，并產(chǎn)生內(nèi)存不可讀寫的Windows錯誤。這時的解決方法就是注銷當前用戶，如果還不行，就只能Reset了。

(2) 一定要設(shè)置好負責(zé)打印功能的asp文件的權(quán)限。方法是：在IIS管理中，選擇該asp文件，右鍵然后選“屬性”/“文件安全性”/"匿名訪問和驗證控制“，在這里IIS默認是匿名訪問，應(yīng)該選擇驗證訪問（這里基本驗證和集成Windows驗證兩種方式均可，但前者不夠安全），這一點無比重要，否則應(yīng)用當中會出錯的。

(3) 有的時候報表分為多頁，而且我們希望每一頁有相同的表頭，要求表頭每頁都自動打印，可以在Excel模板中進行設(shè)置。方法如下：選擇菜單"文件"/"頁面設(shè)置"/"工作表"，然后在"頂端標題行"輸入你表頭的行數(shù)(如：表頭為1-3行即填入：$1：$3)。

3．總結(jié)
以上我們給出了一個采用ASP寫的在B/S模式下實現(xiàn)EXCEL報表的生成與打印的例子，在實際當中已經(jīng)得到了良好的應(yīng)用。事實也證明，這個例子的代碼雖然不難寫，但一定要注意系統(tǒng)的配置，這也是無數(shù)次失敗后得出的經(jīng)驗。