| 導購 | 订阅 | 在线投稿
分享
 
 
當前位置: 王朝網路 >> asp >> asp生成excel報表
 

asp生成excel報表

2008-10-25 09:18:37  編輯來源:互聯網  简体版  手機版  評論  字體: ||
 
 
  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報表的生成與打印的例子,在實際當中已經得到了良好的應用。事實也證明,這個例子的代碼雖然不難寫,但一定要注意系統的配置,這也是無數次失敗後得出的經驗。
 
 
 
上一篇《ASP.net Server Application Unavailable》
下一篇《asp.net裏導出excel表方法彙總》
 
 
 
 
 
 
日版寵物情人插曲《Winding Road》歌詞

日版寵物情人2017的插曲,很帶節奏感,日語的,女生唱的。 最後聽見是在第8集的時候女主手割傷了,然後男主用嘴幫她吸了一下,插曲就出來了。 歌手:Def...

兄弟共妻,我成了他們夜裏的美食

老鍾家的兩個兒子很特別,就是跟其他的人不太一樣,魔一般的執著。兄弟倆都到了要結婚的年齡了,不管自家老爹怎麽磨破嘴皮子,兄弟倆說不娶就不娶,老父母爲兄弟兩操碎了心...

如何磨出破洞牛仔褲?牛仔褲怎麽剪破洞?

把牛仔褲磨出有線的破洞 1、具體工具就是磨腳石,下面墊一個硬物,然後用磨腳石一直磨一直磨,到把那塊磨薄了,用手撕開就好了。出來的洞啊很自然的。需要貓須的話調幾...

我就是掃描下圖得到了敬業福和愛國福

先來看下敬業福和愛國福 今年春節,支付寶再次推出了“五福紅包”活動,表示要“把欠大家的敬業福都還給大家”。 今天該活動正式啓動,和去年一樣,需要收集“五福”...

冰箱異味産生的原因和臭味去除的方法

有時候我們打開冰箱就會聞到一股異味,冰箱裏的這種異味是因爲一些物質發出的氣味的混合體,聞起來讓人惡心。 産生這些異味的主要原因有以下幾點。 1、很多人有這種習...

《極品家丁》1-31集大結局分集劇情介紹

簡介 《極品家丁》講述了現代白領林晚榮無意回到古代金陵,並追隨蕭二小姐化名“林三”進入蕭府,不料卻陰差陽錯上演了一出低級家丁拼搏上位的“林三升職記”。...

李溪芮《極品家丁》片尾曲《你就是我最愛的寶寶》歌詞

你就是我最愛的寶寶 - 李溪芮 (電視劇《極品家丁》片尾曲) 作詞:常馨內 作曲:常馨內 你的眉 又鬼馬的挑 你的嘴 又壞壞的笑 上一秒吵鬧 下...

烏梅的功效與作用以及烏梅的食用禁忌有哪些?

烏梅,又稱春梅,中醫認爲,烏梅味酸,性溫,無毒,具有安心、除熱、下氣、祛痰、止渴調中、殺蟲的功效,治肢體痛、肺痨病。烏梅泡水喝能治傷寒煩熱、止吐瀉,與幹姜一起制...

什麽是脂肪粒?如何消除臉部脂肪粒?

什麽是脂肪粒 在我們的臉上總會長一個個像脂肪的小顆粒,弄也弄不掉,而且顔色還是白白的。它既不是粉刺也不是其他的任何痘痘,它就是脂肪粒。 脂肪粒雖然也是由油脂...

網絡安全治理:國家安全保障的主要方向是打擊犯罪,而不是處置和懲罰受害者

來源:中國青年報 新的攻擊方法不斷湧現,黑客幾乎永遠占據網絡攻擊的上風,我們不可能通過技術手段杜絕網絡攻擊。國家安全保障的主要方向是打擊犯罪,而不是處置和懲罰...

河南夫妻在溫嶺網絡直播“造人”內容涉黃被刑事拘留

夫妻網絡直播“造人”爆紅   1月9日,溫嶺城北派出所接到南京警方的協查通告,他們近期打掉了一個涉黃直播APP平台。而根據掌握的線索,其中有一對涉案的夫妻主播...

如何防止牆紙老化?牆紙變舊變黃怎麽辦?

如何防止牆紙老化? (1)選擇透氣性好的牆紙 市場上牆紙的材質分無紡布的、木纖維的、PVC的、玻璃纖維基材的、布面的等,相對而言,PVC材質的牆紙最不透氣...

鮮肌之謎非日本生産VS鮮肌之謎假日貨是謠言

觀點一:破日本銷售量的“鮮肌之謎” 非日本生産 近一段時間,淘寶上架了一款名爲“鮮肌之謎的” 鲑魚卵巢美容液,號稱是最近日本的一款推出的全新護膚品,産品本身所...

中國最美古詩詞精選摘抄

系腰裙(北宋詞人 張先) 惜霜蟾照夜雲天,朦胧影、畫勾闌。人情縱似長情月,算一年年。又能得、幾番圓。 欲寄西江題葉字,流不到、五亭前。東池始有荷新綠,尚小如...

關于女人的經典語句

關于女人的經典語句1、【做一個獨立的女人】 思想獨立:有主見、有自己的人生觀、價值觀。有上進心,永遠不放棄自己的理想,做一份自己喜愛的事業,擁有快樂和成就...

未來我們可以和性愛機器人結婚嗎?

你想體驗機器人性愛嗎?你想和性愛機器人結婚嗎?如果你想,機器人有拒絕你的權利嗎? 近日,第二屆“國際人類-機器人性愛研討會”大會在倫敦金史密斯大學落下帷幕。而...

全球最變態的十個地方

10.土耳其地下洞穴城市 變態指數:★★☆☆☆ 這是土耳其卡帕多西亞的一個著名景點,傳說是當年基督教徒們爲了躲避戰爭而在此修建。裏面曾住著20000人,...

科學家稱,人類死亡後意識將在另外一個宇宙中繼續存活

據英國《每日快報》報道,一位科學家兼理論家Robert Lanza博士宣稱,世界上並不存在人類死亡,死亡的只是身體。他認爲我們的意識借助我們體內的能量生存,而且...

《屏裏狐》片頭曲《我愛狐狸精》歌詞是什麽?

《我愛狐狸精》 - 劉馨棋   (電視劇《屏裏狐》主題曲)   作詞:金十三&李旦   作曲:劉嘉   狐狸精 狐狸仙   千年修...

 
 
 
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報表的生成與打印的例子,在實際當中已經得到了良好的應用。事實也證明,這個例子的代碼雖然不難寫,但一定要注意系統的配置,這也是無數次失敗後得出的經驗。
󰈣󰈤
 
 
 
  免責聲明:本文僅代表作者個人觀點,與王朝網路無關。王朝網路登載此文出於傳遞更多信息之目的,並不意味著贊同其觀點或證實其描述,其原創性以及文中陳述文字和內容未經本站證實,對本文以及其中全部或者部分內容、文字的真實性、完整性、及時性本站不作任何保證或承諾,請讀者僅作參考,並請自行核實相關內容。
 
 
寶貝清純百變豬豬
美女喜太狼裙裝時代
美麗幹練的OL
平面模特楊棋涵
石系列印象
海洲錦屏磷礦
再憶桂林
觀:重金屬所攝影:元陽梯田所想
 
>>返回首頁<<
 
 
 
 熱帖排行
 
 
 
 
© 2005- 王朝網路 版權所有