目錄一、環境設定二、 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 & "TempletTable.xls")
set objExcelBook = objExcelApp.ActiveWorkBook
set objExcelSheets = objExcelBook.Worksheets
set objExcelSheet = objExcelBook.Sheets(1)
4、 儲存Excel文件
objExcelBook.SaveAs strAddr & "TempTable.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”,保證每次程式執行完不留下死進程。