| 導購 | 订阅 | 在线投稿
分享
 
 
當前位置: 王朝網路 >> asp >> ASP程序中輸出Excel文件實例一則
 

ASP程序中輸出Excel文件實例一則

2008-08-25 23:34:33  編輯來源:互聯網  简体版  手機版  評論  字體: ||
 
 
  在asp中利用excel的一個方法是將excel文件作爲一個數據庫進行鏈接,然後的操作和對access數據庫操作類似。但是這個方法不是總能有用的,應爲excel不是關系型的數據庫。對于一個固定格式,這個格式裏有複雜的單元格合並,邊框線條樣式,還有圖案,單元格之間還有公式關系等等的,我想最容易理解的就是在後台打開一個已有設定好模板的文件,然後在需要的地方插入數據,保存,輸出... ...

   這裏提到的這種方法是直接建立一個excel對象,在後台可以更方便的對excel文檔進行各種操作。

   服務器端還必須要設置的一點是COM組件的操作權限。在命令行鍵入「DCOMCNFG」,則進入COM組件配置界面,選擇 MicrosoftExcel後點擊屬性按鈕,將三個單選項一律選擇自定義,編輯中將Everyone加入所有權限。保存完畢後重新啓動服務器。

   很重要,不設置的話,別的電腦將無法完成excel對象的建立。

   但是這種方法也有一個缺憾,在我實際操作中,如果服務器上已有打開的excel文件,再執行同一文件,就會出錯,暫時還搞不明白爲何,可能還有一些地方沒設置好吧。

   另外,上面引用的文章中實例代碼格式不太完整,其中很多換行和空格格式不准確,如果代碼完整,只要複制代碼,就可以運行成功,然後再慢慢進行研究修改,就很容易上手了,現把修改後的代碼如下(刪去了其中畫圖表的部分):

  <%

  On Error Resume Next

  strAddr=Server.MapPath(".")

  set objExcelApp=CreateObject("Excel.Application")

  objExcelApp.DisplayAlerts=false

  objExcelApp.Application.Visible=false

  objExcelApp.WorkBooks.Open(strAddr&"\Templet\Null.xls")

  set objExcelBook=objExcelApp.ActiveWorkBook

  set objExcelSheets=objExcelBook.Worksheets

  set objExcelSheet=objExcelBook.Sheets(1)

  objExcelSheet.Range("B2:k2").Value=Array("Week1","Week2","Week3","Week4","Week5","Week6","Week7")

  objExcelSheet.Range("B3:k3").Value=Array("67","87","5","9","7","45","45","54","54","10")

  objExcelSheet.Range("B4:k4").Value=Array("10","10","8","27","33","37","50","54","10","10")

  objExcelSheet.Range("B5:k5").Value=Array("23","3","86","64","60","18","5","1","36","80")

  objExcelSheet.Cells(3,1).Value="InternetExplorer"

  objExcelSheet.Cells(4,1).Value="Netscape"

  objExcelSheet.Cells(5,1).Value="Other"

  objExcelSheet.Range("b2:k5").Select

  SaveAs(strAddr&"\Temp\Excel.xls")

  objExcelApp.Quit

  set objExcelApp=Nothing

  %>

  <!DOCTYPEHTMLPUBLIC"-//W3C//DTDHTML4.0Transitional//EN">

  <HTML>

  <HEAD>

  <TITLE>NewDocument</TITLE>

  <METANAME="Generator"CONTENT=" MicrosoftFrontPage5.0">

  <METANAME="Author"CONTENT="">

  <METANAME="Keywords"CONTENT="">

  <METANAME="Description"CONTENT="">

  </HEAD>

  <BODY>

  </BODY>

  </HTML>

   操作完excel文件需要將文件進行輸出,實際弄一下,用ASP的redirect到excel方法,有時候是在IE中直接打開,有時候是彈出"下載 打開 保存"窗口.如果需要直接在IE中打開,不放用FSO載入excel文件,然後在IE中輸出。

  <%

  Dim Fso,FileExt,strFilePath,Mime

  strFilePath = "f:\aspxuexi.doc"

  Set Fso=Server.CreateObject("Scripting.FileSystemObject")

  FileExt = Fso.GetExtensionName(strFilePath)

  Set fso=Nothing

  Select Case FileExt

  Case "doc"

  Mime="Application/msword"

  Case "xls"

  Mime="Application/msexcel"

  End Select

  Call OutPut(strFilePath,Mime)

  '######################################################

  Function OutPut(strFilePath,Mime)

  Response.ContentType = Mime

  Const adTypeBinary = 1

  Set objStream = Server.CreateObject("ADODB.Stream")

  objStream.Open

  objStream.Type = adTypeBinary

  objStream.LoadFromFile strFilePath

  Response.BinaryWrite objStream.Read

  objStream.Close

  Set objStream = Nothing

  End Function

  '######################################################

  %>

   在實際應用中。當服務器端正在運行excel或ACCESS程序時,客戶端提交建立excel。application對象無法成功。另一種情況,當一個客戶端提交請求時,並沒有結束時,另一個客戶端提交的請求也無法成功!或許這個問題有別的解決方案,但是至少這是不穩定的。

   正好我們部門內部網上有相關成功的例子,挖出來看,原來是在客戶端建立excel。application的。這樣,服務器端不會再沖突。對于客戶端,因爲是在局域網內運行,客戶IE安全級別可以設低,並允許運行相關activeX(就是在IE工具選項中把各類涉及安全的東西都設爲允許,具體的哪一項沒有去追究),即使沒有設置,IE也會彈出警告窗口:「是否允許運行activeX?」

   實現的代碼和上篇日志差不多,簡單的如下:

  <script language="vbscript">

  set objExcelApp=CreateObject("Excel.Application")

  objExcelApp.DisplayAlerts=true

  objExcelApp.WorkBooks.Open("http://XXX.XXX.XXX/XXX.xls")

  '完整網路地址的xls文件,這個文件已經設置好格式及打印樣式,保存在服務器上

  set objExcelBook=objExcelApp.ActiveWorkBook

  set objExcelSheets=objExcelBook.Worksheets

  set objExcelSheet=objExcelBook.Sheets(1)

  '====此處爲對excel單元格進行填寫數據的語句,如果是從數據庫提取數據,可由後台程序生成這些語句,ASP中的示列:

  '如:response.write "objExcelSheet.Range(""B2"").Value="""&rs("XXX")&""""

  '或 objExcelSheet.Range("B2").Value="<%=rs("XXX")%>"

  objExcelSheet.Range("B2:k2").Value=Array("Week1","Week2","Week3","Week4","Week5","Week6","Week7")

  objExcelSheet.Range("B3:k3").Value=Array("67","87","5","9","7","45","45","54","54","10")

  objExcelSheet.Range("B4:k4").Value=Array("10","10","8","27","33","37","50","54","10","10")

  objExcelSheet.Range("B5:k5").Value=Array("23","3","86","64","60","18","5","1","36","80")

  objExcelSheet.Cells(3,1).Value="InternetExplorer"

  objExcelSheet.Cells(4,1).Value="Netscape"

  objExcelSheet.Cells(5,1).Value="Other"

  '==================

  'objExcelApp.Quit

  'set objExcelApp=Nothing

  </script>

   上述代碼中

   'objExcelApp.Quit

   'set objExcelApp=Nothing

   作爲取消執行,因爲此處不要關閉excel.applicaition,不然數據填完後,excel會關閉掉。這時在客戶端打開的excel文件需要由客戶進行修改或打印等操作。同時objexcelapp對象還有打印設置及進入打印預覽界面等方法,可參考相關excel相關資料。
 
 
 
上一篇《ASP操作Excel技術總結》
下一篇《處理Asp.net Ajax框架12029,12007錯誤》
 
 
 
 
 
 
日版寵物情人插曲《Winding Road》歌詞

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

中國最美古詩詞精選摘抄

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

關于女人的經典語句

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

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

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

全球最變態的十個地方

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

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

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

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

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

 
 
 
在asp中利用excel的一個方法是將excel文件作爲一個數據庫進行鏈接,然後的操作和對access數據庫操作類似。但是這個方法不是總能有用的,應爲excel不是關系型的數據庫。對于一個固定格式,這個格式裏有複雜的單元格合並,邊框線條樣式,還有圖案,單元格之間還有公式關系等等的,我想最容易理解的就是在後台打開一個已有設定好模板的文件,然後在需要的地方插入數據,保存,輸出... ... 這裏提到的這種方法是直接建立一個excel對象,在後台可以更方便的對excel文檔進行各種操作。 服務器端還必須要設置的一點是COM組件的操作權限。在命令行鍵入「DCOMCNFG」,則進入COM組件配置界面,選擇 MicrosoftExcel後點擊屬性按鈕,將三個單選項一律選擇自定義,編輯中將Everyone加入所有權限。保存完畢後重新啓動服務器。 很重要,不設置的話,別的電腦將無法完成excel對象的建立。 但是這種方法也有一個缺憾,在我實際操作中,如果服務器上已有打開的excel文件,再執行同一文件,就會出錯,暫時還搞不明白爲何,可能還有一些地方沒設置好吧。 另外,上面引用的文章中實例代碼格式不太完整,其中很多換行和空格格式不准確,如果代碼完整,只要複制代碼,就可以運行成功,然後再慢慢進行研究修改,就很容易上手了,現把修改後的代碼如下(刪去了其中畫圖表的部分): <% On Error Resume Next strAddr=Server.MapPath(".") set objExcelApp=CreateObject("Excel.Application") objExcelApp.DisplayAlerts=false objExcelApp.Application.Visible=false objExcelApp.WorkBooks.Open(strAddr&"\Templet\Null.xls") set objExcelBook=objExcelApp.ActiveWorkBook set objExcelSheets=objExcelBook.Worksheets set objExcelSheet=objExcelBook.Sheets(1) objExcelSheet.Range("B2:k2").Value=Array("Week1","Week2","Week3","Week4","Week5","Week6","Week7") objExcelSheet.Range("B3:k3").Value=Array("67","87","5","9","7","45","45","54","54","10") objExcelSheet.Range("B4:k4").Value=Array("10","10","8","27","33","37","50","54","10","10") objExcelSheet.Range("B5:k5").Value=Array("23","3","86","64","60","18","5","1","36","80") objExcelSheet.Cells(3,1).Value="InternetExplorer" objExcelSheet.Cells(4,1).Value="Netscape" objExcelSheet.Cells(5,1).Value="Other" objExcelSheet.Range("b2:k5").Select SaveAs(strAddr&"\Temp\Excel.xls") objExcelApp.Quit set objExcelApp=Nothing %> <!DOCTYPEHTMLPUBLIC"-//W3C//DTDHTML4.0Transitional//EN"> <HTML> <HEAD> <TITLE>NewDocument</TITLE> <METANAME="Generator"CONTENT=" MicrosoftFrontPage5.0"> <METANAME="Author"CONTENT=""> <METANAME="Keywords"CONTENT=""> <METANAME="Description"CONTENT=""> </HEAD> <BODY> </BODY> </HTML> 操作完excel文件需要將文件進行輸出,實際弄一下,用ASP的redirect到excel方法,有時候是在IE中直接打開,有時候是彈出"下載 打開 保存"窗口.如果需要直接在IE中打開,不放用FSO載入excel文件,然後在IE中輸出。 <% Dim Fso,FileExt,strFilePath,Mime strFilePath = "f:\aspxuexi.doc" Set Fso=Server.CreateObject("Scripting.FileSystemObject") FileExt = Fso.GetExtensionName(strFilePath) Set fso=Nothing Select Case FileExt Case "doc" Mime="Application/msword" Case "xls" Mime="Application/msexcel" End Select Call OutPut(strFilePath,Mime) '###################################################### Function OutPut(strFilePath,Mime) Response.ContentType = Mime Const adTypeBinary = 1 Set objStream = Server.CreateObject("ADODB.Stream") objStream.Open objStream.Type = adTypeBinary objStream.LoadFromFile strFilePath Response.BinaryWrite objStream.Read objStream.Close Set objStream = Nothing End Function '###################################################### %> 在實際應用中。當服務器端正在運行excel或ACCESS程序時,客戶端提交建立excel。application對象無法成功。另一種情況,當一個客戶端提交請求時,並沒有結束時,另一個客戶端提交的請求也無法成功!或許這個問題有別的解決方案,但是至少這是不穩定的。 正好我們部門內部網上有相關成功的例子,挖出來看,原來是在客戶端建立excel。application的。這樣,服務器端不會再沖突。對于客戶端,因爲是在局域網內運行,客戶IE安全級別可以設低,並允許運行相關activeX(就是在IE工具選項中把各類涉及安全的東西都設爲允許,具體的哪一項沒有去追究),即使沒有設置,IE也會彈出警告窗口:「是否允許運行activeX?」 實現的代碼和上篇日志差不多,簡單的如下: <script language="vbscript"> set objExcelApp=CreateObject("Excel.Application") objExcelApp.DisplayAlerts=true objExcelApp.WorkBooks.Open("[url=http://XXX.XXX.XXX/XXX.xls]http://XXX.XXX.XXX/XXX.xls[/url]") '完整網路地址的xls文件,這個文件已經設置好格式及打印樣式,保存在服務器上 set objExcelBook=objExcelApp.ActiveWorkBook set objExcelSheets=objExcelBook.Worksheets set objExcelSheet=objExcelBook.Sheets(1) '====此處爲對excel單元格進行填寫數據的語句,如果是從數據庫提取數據,可由後台程序生成這些語句,ASP中的示列: '如:response.write "objExcelSheet.Range(""B2"").Value="""&rs("XXX")&"""" '或 objExcelSheet.Range("B2").Value="<%=rs("XXX")%>" objExcelSheet.Range("B2:k2").Value=Array("Week1","Week2","Week3","Week4","Week5","Week6","Week7") objExcelSheet.Range("B3:k3").Value=Array("67","87","5","9","7","45","45","54","54","10") objExcelSheet.Range("B4:k4").Value=Array("10","10","8","27","33","37","50","54","10","10") objExcelSheet.Range("B5:k5").Value=Array("23","3","86","64","60","18","5","1","36","80") objExcelSheet.Cells(3,1).Value="InternetExplorer" objExcelSheet.Cells(4,1).Value="Netscape" objExcelSheet.Cells(5,1).Value="Other" '================== 'objExcelApp.Quit 'set objExcelApp=Nothing </script> 上述代碼中 'objExcelApp.Quit 'set objExcelApp=Nothing 作爲取消執行,因爲此處不要關閉excel.applicaition,不然數據填完後,excel會關閉掉。這時在客戶端打開的excel文件需要由客戶進行修改或打印等操作。同時objexcelapp對象還有打印設置及進入打印預覽界面等方法,可參考相關excel相關資料。
󰈣󰈤
 
 
 
  免責聲明:本文僅代表作者個人觀點,與王朝網路無關。王朝網路登載此文出於傳遞更多信息之目的,並不意味著贊同其觀點或證實其描述,其原創性以及文中陳述文字和內容未經本站證實,對本文以及其中全部或者部分內容、文字的真實性、完整性、及時性本站不作任何保證或承諾,請讀者僅作參考,並請自行核實相關內容。
 
 
小龍女彤彤之情溢皇都
龔潔
智能手機形象美女
崔潔彤
回家的路上----
中國一站(哈爾濱)
清明植物園的花。
桃花堤印象之豎版
 
>>返回首頁<<
 
 
 
 熱帖排行
 
 
 
 
© 2005- 王朝網路 版權所有