1. 前言報表列印通常是管理資訊系統中的重要模組,而Excel憑藉它功能強大、應用靈活、通用性強等的優勢在報表列印中獲得了廣泛的應用。
最初的管理資訊系統基本上是採用客戶機/伺服器(C/S)模式開發的,但隨著WWW的廣泛應用,目前的管理資訊系統已經逐漸開始從C/S模式向瀏覽器/伺服器(B /S)模式轉變。 B/S模式具有傳統C/S模式所不及的許多特點,如更加開放、與軟硬體無關、應用擴充和系統維護升級方便等等,目前已成為企業網上首選的計算模式,原先在C/S下的許多軟體都開始移植到B/S模式下。由於B/S模式的特殊性,在C/S下相對較易實現的Excel報表列印功能在B/S下卻成為一個困難點。本文根據在實際的專案中總結的經驗,以ASP為例,給出了一個較好的通用方法。
2. 功能實作為了說明問題,這裡舉個例子。系統平台是Windows 2000+SQL Server 2000+IIS 5.0+ASP 3,報表採用的是Excel,要求依照給定的報表格式產生圖書銷售統計的報表,並且能夠列印。
2.1 Excel報表範本的製作首先根據給定的報表格式,製作一個Excel範本(就是要列印的報表的表格),當然其中需要從資料庫中動態統計產生的資料留著空白。這份報表先在Excel中畫好,然後再儲存為模板,就存放起來,這裡為testbook1.xlt。
2.2 Excel報表的產生與列印這裡採用了Excel的Application元件,該元件在安裝Excel時安裝到系統中。我們的操作也都是針對該元件。
(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的常規新增操作例如sheetActive.range("g4").value=date() '這裡新增的是時間,當然也可以是你指定的任何數據
(4) Excel中新增資料庫中的紀錄這裡假設已有一個資料集adoRset,存放由Sql作業產生的統計資料。
num=7 '從Excel的第七行開始
do until adoRset.EOF '循環直至資料集中的資料寫完
strRange="d"&num&":f"&num '設定填寫內容的單位區域
sheetActive.range(strRange).font.size=10 '設定字體大小
sheetActive.range(strRange).WrapText=false '設定文字回捲
sheetActive.range(strRange).ShrinkToFit=true '設定是否自動適應表格單元大小
sheetActive.range(strRange).value=array(adoRset("bookid"),adoRset("bookname"),adoRset("author")) '將資料集中的資料填入對應的單元中
num=num+1
adoRset.MoveNext
loop
(5) Excel臨時報表文件的保存及處理實際運行中應該注意每次一個用戶進行報表打印時都採用一個臨時的Excel文件,而不是硬性規定文件名,因為如果用固定的文件名的話,只有第一次生成是成功的,後面的操作都會因為已存在同名檔案而導致失敗。所以我們需要每次都產生一個臨時的而且不重複的檔名,這裡可以採用自訂的getTemporaryFile()函數由來生成,然後存放在變數filename中,用變數filepos表示這些暫存檔案的路徑。
另外如果這些臨時檔案不處理的話久而久之會成為檔案垃圾,因此在每個使用者提交Excel報表列印要求時要先刪除臨時目錄下所有原先產生的臨時列印檔案。
臨時檔案的處理主要代碼如下:
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" '刪除該目錄下所有原先產生的臨時列印文件
set myFs=nothing
Excel暫存檔案的儲存代碼為:
objExcel.ActiveWorkbook.saveas filePos&filename
(6) 退出Excel應用
objExcel.quit
set objExcel=Nothing
(7) Excel報表的列印前面的步驟已經產生了Excel報表,下一步進行列印,採用的策略可以有兩種:
方案一:提供上面產生的Excel報表臨時檔案連結給用戶,使用者可以直接點選在瀏覽器中開啟Excel報表並透過瀏覽器的列印功能列印,也可以點選右鍵然後另存到本機後再作列印等相關處理。
方案二:產生Excel報表後直接在客戶端載入到瀏覽器,當然在沒有完全載入時應該提示「正在加載,請等待」等字樣。
2.3 系統配置與注意事項雖然以上程式碼很簡單,但實際應用不當經常會出現錯誤,所以下面要講到的系統配置和注意事項非常關鍵。
(1) 千萬要保證以上程式碼輸入的正確性,否則一旦運行錯誤,Excel物件會滯留內存,難以消除,導致下一次呼叫時速度狂慢,並產生內存不可讀寫的Windows錯誤。這時的解決方法就是註銷目前用戶,如果還不行,就只能Reset了。
(2) 一定要設定好負責列印功能的asp檔的權限。方法是:在IIS管理中,選擇該asp文件,右鍵然後選“屬性”/“文件安全性”/"匿名訪問和驗證控制“,在這裡IIS默認是匿名訪問,應該選擇驗證訪問(這裡基本驗證和整合Windows驗證兩種方式均可,但前者不夠安全),這一點無比重要,否則應用當中會出錯的。
(3) 有的時候報表分為多頁,而且我們希望每一頁有相同的表頭,要求表頭每頁都自動列印,可以在Excel範本中進行設定。方法如下:選擇選單"檔案"/"頁面設定"/"工作表",然後在"頂端標題行"輸入你表頭的行數(如:表頭為1-3行即填入:$1:$3 )。
3.總結以上我們給了一個採用ASP寫的在B/S模式下實現EXCEL報表的生成與列印的例子,在實際當中已經得到了很好的應用。事實也證明,這個例子的程式碼雖然不難寫,但一定要注意系統的配置,這也是無數次失敗後得出的經驗。