ASP操作Excel技術總結

目錄

一、 環境配置

二、 ASP對Excel的基本操作

三、 ASP操作Excel產生資料表

四、 ASP操作Excel產生Chart圖

五、 伺服器端Excel檔案瀏覽、下載、刪除方案

六、 附錄

本文

一、 環境配置

伺服器端的環境配置從參考資料上看，微軟系列的配置應該都行，即：

1．Win9x+PWS+Office

2．Win2000 Professional+PWS+Office

3．Win2000 Server+IIS+Office

目前筆者測試成功的環境是後二者。Office的版本沒有特殊要求，考慮到客戶機配置的不確定性和下相容特性，建議伺服器端Office版本不要太高，以防止客戶機下載後無法正確顯示。

伺服器端環境配置還有兩個偶然的發現是：

1． 筆者開發機器上原來裝有金山的WPS2002，結果Excel對象建立始終出現問題，卸載WPS2002後，錯誤消失。

2． 筆者開發ASP代碼喜歡用FrontPage，結果發現如果FrontPage開啟（伺服器端），對象建立出現不穩定現象，時而成功時而不成功。擴充考察後發現，Office系列的軟體如果在伺服器端運行，則Excel對象的建立很難成功。

伺服器端還必須要設定的一點是COM組件的操作許可權。在命令列鍵入“DCOMCNFG”，則進入COM組件配置介面，選擇Microsoft Excel後點擊屬性按鈕，將三個單選項一律選擇自訂，編輯中將Everyone加入所有許可權。儲存完畢後重新啟動伺服器。

用戶端的環境配置沒發現什麼特別講究的地方，只要裝有Office和IE即可，版本通用的好象都可以。

二、 ASP對Excel的基本操作

1、 建立Excel對象

以下是引用片段： set objExcelApp = CreateObject("Excel.Application") objExcelApp.DisplayAlerts = false 不顯示警告 objExcelApp.Application.Visible = false 不顯示介面

2、 建立Excel檔案

以下是引用片段： objExcelApp.WorkBooks.add set objExcelBook = objExcelApp.ActiveWorkBook set objExcelSheets = objExcelBook.Worksheets set objExcelSheet = objExcelBook.Sheets(1)

3、 讀取已有Excel檔案

以下是引用片段： strAddr = Server.MapPath(".") objExcelApp.WorkBooks.Open(strAddr & "\Templet\Table.xls") set objExcelBook = objExcelApp.ActiveWorkBook set objExcelSheets = objExcelBook.Worksheets set objExcelSheet = objExcelBook.Sheets(1)

4、 另存Excel檔案

以下是引用片段： objExcelBook.SaveAs strAddr & "\Temp\Table.xls"

5、 儲存Excel檔案

以下是引用片段： objExcelBook.Save （筆者測試時儲存成功，頁面報錯。）

6、 退出Excel操作

以下是引用片段： objExcelApp.Quit 一定要退出 set objExcelApp = Nothing

三、 ASP操作Excel產生資料表

1、 在一個範圍插入入資料

以下是引用片段： objExcelSheet.Range("B3:k3").Value = Array("67", "87", "5", "9", "7", "45", "45", "54", "54", "10")

2、 在一個儲存格插入入資料

以下是引用片段： objExcelSheet.Cells(3,1).Value="Internet Explorer"

3、 選中一個範圍

4、 儲存格左邊畫粗線條

5、 儲存格右邊畫粗線條

6、 儲存格上邊畫粗線條

7、 儲存格下邊畫粗線條

8、 儲存格設定背景色

9、 合併儲存格

10、 插入行

11、 插入列

四、 ASP操作Excel產生Chart圖

1、 建立Chart圖

以下是引用片段： objExcelApp.Charts.Add

2、 設定Chart圖種類

以下是引用片段： objExcelApp.ActiveChart.ChartType = 97

註：二維折線圖，4；二維餅圖，5；二維直條圖，51

3、 設定Chart表徵圖題

以下是引用片段： objExcelApp.ActiveChart.HasTitle = True objExcelApp.ActiveChart.ChartTitle.Text = "A test Chart"

4、 通過表格式資料設定圖形

以下是引用片段： objExcelApp.ActiveChart.SetSourceData objExcelSheet.Range("A1:k5"),1

5、 直接設定圖形資料（推薦）

以下是引用片段： objExcelApp.ActiveChart.SeriesCollection.NewSeries objExcelApp.ActiveChart.SeriesCollection(1).Name = "=""333""" objExcelApp.ActiveChart.SeriesCollection(1).Values = "={1,4,5,6,2}"

6、 綁定Chart圖

以下是引用片段： objExcelApp.ActiveChart.Location 1

7、 顯示資料表

以下是引用片段： objExcelApp.ActiveChart.HasDataTable = True

8、 顯示圖例

以下是引用片段： objExcelApp.ActiveChart.DataTable.ShowLegendKey = True

五、 伺服器端Excel檔案瀏覽、下載、刪除方案

瀏覽的解決方案很多，“Location.href=”，“Navigate”，“Response.Redirect”都可以實現，建議用用戶端的方法，原因是給伺服器更多的時間產生Excel檔案。

下載的實現要麻煩一些。用網上現成的伺服器端下載組件或自己定製開發一個組件是比較好的方案。另外一種方法是在用戶端操作Excel組件，由用戶端動作伺服器端Excel檔案另存至用戶端。這種方法要求用戶端開放不安全ActiveX控制項的操作許可權，考慮到通知每個客戶將伺服器設定為可信網站的麻煩程度建議還是用第一個方法比較省事。

刪除方案由三部分組成：

A： 同一使用者產生的Excel檔案用同一個檔案名稱，檔案名稱可用使用者ID號或SessionID號等可確信不重複字串組成。這樣新檔案產生時自動覆蓋上一檔案。

B： 在Global.asa檔案中設定Session_onEnd事件激發時，刪除這個使用者的Excel暫存檔案。

C： 在Global.asa檔案中設定Application_onStart事件激發時，刪除臨時目錄下的所有檔案。

註：建議目錄結構 \Src 代碼目錄 \Templet 模板目錄 \Temp 臨時目錄

六、 附錄

出錯時Excel出現的死進程出現是一件很頭疼的事情。在每個檔案前加上“On Error Resume Next”將有助於改善這種情況，因為它會不管檔案是否產生錯誤都堅持執行到“Application.Quit”，保證每次程式執行完不留下死進程。