程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 網頁編程 >> ASP編程 >> ASP技巧 >> asp操作excel文件

asp操作excel文件

編輯:ASP技巧
一、配置方法
1、開始---運行---dcomcnfg
2、組件服務---計算機---我的電腦---dcom配置---Microsoft Excel應用程序(右鍵)---屬性---安全
3、啟動和激活權限 選擇自定義,點擊編輯,添加用戶everyone並給予所有權限
4、訪問權限、配置權限同上

二、  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”,保證每次程序執行完不留下死進程。
  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved