中文字幕日韩精品一区二区免费_精品一区二区三区国产精品无卡在_国精品无码专区一区二区三区_国产αv三级中文在线

ASP操作Excel技術(shù)總結(jié)

2022-06-20    分類: 網(wǎng)站建設(shè)

目錄
一、    環(huán)境配置
二、    asp對Excel的基本操作
三、    ASP操作Excel生成數(shù)據(jù)表
四、    ASP操作Excel生成Chart圖
五、    服務(wù)器端Excel文件瀏覽、下載、刪除方案
六、    附錄

正文
一、    環(huán)境配置
服務(wù)器端的環(huán)境配置從參考資料上看,微軟系列的配置應(yīng)該都行,即:
1.Win9x+PWS+Office
2.Win2000 PRofessional+PWS+Office
3.Win2000 Server+IIS+Office
目前筆者測試成功的環(huán)境是后二者。Office的版本沒有特殊要求,考慮到客戶機配置的不確定性和下兼容特性,建議服務(wù)器端Office版本不要太高,以防止客戶機下載后無法正確顯示。
服務(wù)器端環(huán)境配置還有兩個偶然的發(fā)現(xiàn)是:
1.    筆者開發(fā)機器上原來裝有金山的wps2002,結(jié)果Excel對象創(chuàng)建始終出現(xiàn)問題,卸載WPS2002后,錯誤消失。
2.    筆者開發(fā)ASP代碼喜歡用FrontPage,結(jié)果發(fā)現(xiàn)如果FrontPage打開(服務(wù)器端),對象創(chuàng)建出現(xiàn)不穩(wěn)定現(xiàn)象,時而成功時而不成功。擴展考察后發(fā)現(xiàn),Office系列的軟件如果在服務(wù)器端運行,則Excel對象的創(chuàng)建很難成功。
服務(wù)器端還必須要設(shè)置的一點是COM組件的操作權(quán)限。在命令行鍵入“DCOMCNFG”,則進入COM組件配置界面,選擇Microsoft Excel后點擊屬性按鈕,將三個單選項一律選擇自定義,編輯中將Everyone加入所有權(quán)限。保存完畢后重新啟動服務(wù)器。
客戶端的環(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ù)據(jù)表
1、    在一個范圍內(nèi)插入數(shù)據(jù)
objExcelSheet.Range("B3:k3").Value = Array("67", "87", "5", "9", "7", "45", "45", "54", "54", "10")
2、    在一個單元格內(nèi)插入數(shù)據(jù)
objExcelSheet.Cells(3,1).Value="Internet Explorer"
3、    選中一個范圍
4、    單元格左邊畫粗線條
5、    單元格右邊畫粗線條
6、    單元格上邊畫粗線條
7、    單元格下邊畫粗線條
8、    單元格設(shè)定背景色
9、    合并單元格
10、    插入行
11、    插入列

四、    ASP操作Excel生成Chart圖
1、    創(chuàng)建Chart圖
objExcelApp.Charts.Add
2、    設(shè)定Chart圖種類
objExcelApp.ActiveChart.ChartType = 97
注:二維折線圖,4;二維餅圖,5;二維柱形圖,51
3、    設(shè)定Chart圖標題
objExcelApp.ActiveChart.HasTitle = True
objExcelApp.ActiveChart.ChartTitle.Text = "A test Chart"
4、    通過表格數(shù)據(jù)設(shè)定圖形
objExcelApp.ActiveChart.SetSourceData objExcelSheet.Range("A1:k5"),1
5、    直接設(shè)定圖形數(shù)據(jù)(推薦)
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ù)據(jù)表
objExcelApp.ActiveChart.HasDataTable = True
8、    顯示圖例
objExcelApp.ActiveChart.DataTable.ShowLegendKey = True

五、    服務(wù)器端Excel文件瀏覽、下載、刪除方案
瀏覽的解決方法很多,“Location.href=”,“Navigate”,“Response.Redirect”都可以實現(xiàn),建議用客戶端的方法,原因是給服務(wù)器更多的時間生成Excel文件。
下載的實現(xiàn)要麻煩一些。用網(wǎng)上現(xiàn)成的服務(wù)器端下載組件或自己定制開發(fā)一個組件是比較好的方案。另外一種方法是在客戶端操作Excel組件,由客戶端操作服務(wù)器端Excel文件另存至客戶端。這種方法要求客戶端開放不安全ActiveX控件的操作權(quán)限,考慮到通知每個客戶將服務(wù)器設(shè)置為可信站點的麻煩程度建議還是用第一個方法比較省事。
刪除方案由三部分組成:
A:    同一用戶生成的Excel文件用同一個文件名,文件名可用用戶ID號或sessionID號等可確信不重復(fù)字符串組成。這樣新文件生成時自動覆蓋上一文件。
B:    在Global.asa文件中設(shè)置Session_onEnd事件激發(fā)時,刪除這個用戶的Excel暫存文件。
C:    在Global.asa文件中設(shè)置Application_onStart事件激發(fā)時,刪除暫存目錄下的所有文件。
注:建議目錄結(jié)構(gòu) \Src 代碼目錄 \Templet 模板目錄 \Temp 暫存目錄

六、    附錄
出錯時Excel出現(xiàn)的死進程出現(xiàn)是一件很頭疼的事情。在每個文件前加上“On Error Resume Next”將有助于改善這種情況,因為它會不管文件是否產(chǎn)生錯誤都堅持執(zhí)行到“Application.Quit”,保證每次程序執(zhí)行完不留下死進程。

網(wǎng)站名稱:ASP操作Excel技術(shù)總結(jié)
文章地址:http://www.rwnh.cn/news34/169484.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供服務(wù)器托管、網(wǎng)站收錄、企業(yè)建站標簽優(yōu)化、靜態(tài)網(wǎng)站、品牌網(wǎng)站設(shè)計

廣告

聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時需注明來源: 創(chuàng)新互聯(lián)

成都定制網(wǎng)站建設(shè)
南投县| 孟州市| 乐山市| 邹平县| 札达县| 公安县| 耒阳市| 留坝县| 高邮市| 青岛市| 南汇区| 尼勒克县| 广丰县| 南通市| 平阴县| 油尖旺区| 黄石市| 洪泽县| 昌黎县| 双鸭山市| 铁力市| 灵璧县| 哈尔滨市| 横峰县| 荣昌县| 绥德县| 郎溪县| 阜平县| 抚顺市| 巧家县| 中宁县| 海口市| 阿合奇县| 漳州市| 扶余县| 故城县| 建始县| 津市市| 青川县| 望谟县| 怀柔区|