NO IMAGE

導讀:
  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中畫好,然後儲存為模板,存放在起來,這裡為/test/book1.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報表的生成與列印的例子,在實際當中已經得到了良好的應用。事實也證明,這個例子的程式碼雖然不難寫,但一定要注意系統的配置,這也是無數次失敗後得出的經驗。

本文轉自
http://blog.csdn.net/gbsck/archive/2006/01/08/573336.aspx