ASP操作Excel技術總結

2024-05-04 11:06:55

字體：大中小

來源：轉載

供稿：網友

ASP操作Excel技術總結目錄
一、　　環(huán)境配置
二、　　ASP對Excel的基本操作
三、　　ASP操作Excel生成數(shù)據表
四、　　ASP操作Excel生成Chart圖
五、　　服務器端Excel文件瀏覽、下載、刪除方案
六、　　附錄
正文
一、　　環(huán)境配置
服務器端的環(huán)境配置從參考資料上看，微軟系列的配置應該都行，即：
1．Win9x+PWS+Office
2．Win2000 Professional+PWS+Office
3．Win2000 Server+IIS+Office
目前筆者測試成功的環(huán)境是后二者。Office的版本沒有特殊要求，考慮到客戶機配置的不確定性和下兼容特性，建議服務器端Office版本不要太高，以防止客戶機下載后無法正確顯示。
服務器端環(huán)境配置還有兩個偶然的發(fā)現(xiàn)是：
1．　　筆者開發(fā)機器上原來裝有金山的WPS2002，結果Excel對象創(chuàng)建始終出現(xiàn)問題，卸載WPS2002后，錯誤消失。
2．　　筆者開發(fā)ASP代碼喜歡用FrontPage，結果發(fā)現(xiàn)如果FrontPage打開（服務器端），對象創(chuàng)建出現(xiàn)不穩(wěn)定現(xiàn)象，時而成功時而不成功。擴展考察后發(fā)現(xiàn)，Office系列的軟件如果在服務器端運行，則Excel對象的創(chuàng)建很難成功。
服務器端還必須要設置的一點是COM組件的操作權限。在命令行鍵入“DCOMCNFG”，則進入COM組件配置界面，選擇Microsoft Excel后點擊屬性按鈕，將三個單選項一律選擇自定義，編輯中將Everyone加入所有權限。保存完畢后重新啟動服務器。
客戶端的環(huán)境配置沒發(fā)現(xiàn)什么特別講究的地方，只要裝有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生成數(shù)據表
1、　　在一個范圍內插入數(shù)據
objExcelSheet.Range("B3:k3").Value = Array("67", "87", "5", "9", "7", "45", "45", "54", "54", "10")
2、　　在一個單元格內插入數(shù)據
objExcelSheet.Cells(3,1).Value="Internet Explorer"
3、　　改變單元格文字顏色
objExcelSheet.Cells(3,1).Font.Color=vbred
4、　　單元格四周畫線條
objExcelSheet.Cells(3.1).Borders(1).LineStyle =1
objExcelSheet.Cells(3.1).Borders(2).LineStyle =1
objExcelSheet.Cells(3.1).Borders(3).LineStyle =1
objExcelSheet.Cells(3.1).Borders(4).LineStyle =1
區(qū)域中間畫線條
objExcelSheet.Range(“A1:G7”).Borders(7).LineStyle =1
objExcelSheet.Range(“A1:G7”).Borders(8).LineStyle =1

8、　　單元格設定背景色
objExcelSheet.Cells(3.1).Interior.colorindex=17
9、　　合并單元格
objExcelSheet.Range(“A1:G7”).Merge
10、　　設置左右對齊方式
2 left 3 middle 4 right
objExcelSheet.Range("A1").HorizontalAlignment = 2
11、　　設置上下對齊方式
2 為居中
objExcelSheet.Range("A1")..VerticalAlignment = 2
四、　　ASP操作Excel生成Chart圖
1、　　創(chuàng)建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、　　通過表格數(shù)據設定圖形
objExcelApp.ActiveChart.SetSourceData objExcelSheet.Range("A1:k5"),1
5、　　直接設定圖形數(shù)據（推薦）
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、　　顯示數(shù)據表
objExcelApp.ActiveChart.HasDataTable = True
8、　　顯示圖例
objExcelApp.ActiveChart.DataTable.ShowLegendKey = True
五、　　服務器端Excel文件瀏覽、下載、刪除方案
瀏覽的解決方法很多，“Location.href=”，“Navigate”，“Response.Redirect”都可以實現(xiàn)，建議用客戶端的方法，原因是給服務器更多的時間生成Excel文件。
下載的實現(xiàn)要麻煩一些。用網上現(xiàn)成的服務器端下載組件或自己定制開發(fā)一個組件是比較好的方案。另外一種方法是在客戶端操作Excel組件，由客戶端操作服務器端Excel文件另存至客戶端。這種方法要求客戶端開放不安全ActiveX控件的操作權限，考慮到通知每個客戶將服務器設置為可信站點的麻煩程度建議還是用第一個方法比較省事。
刪除方案由三部分組成：
A：　　同一用戶生成的Excel文件用同一個文件名，文件名可用用戶ID號或SessionID號等可確信不重復字符串組成。這樣新文件生成時自動覆蓋上一文件。
B：　　在Global.asa文件中設置Session_onEnd事件激發(fā)時，刪除這個用戶的Excel暫存文件。
C：　　在Global.asa文件中設置Application_onStart事件激發(fā)時，刪除暫存目錄下的所有文件。
注：建議目錄結構 /Src 代碼目錄 /Templet 模板目錄 /Temp 暫存目錄
六、　　附錄
出錯時Excel出現(xiàn)的死進程出現(xiàn)是一件很頭疼的事情。在每個文件前加上“On Error Resume Next”將有助于改善這種情況，因為它會不管文件是否產生錯誤都堅持執(zhí)行到“Application.Quit”，保證每次程序執(zhí)行完不留下死進程。

上一篇：用asp把表單數(shù)據插入數(shù)據庫的2種常用方法

下一篇：ASP處理多關鍵詞查詢代碼