ASP與Excel結(jié)合生成數(shù)據(jù)表和Chart圖的代碼，需要的朋友可以參考下。

目錄 
一、　　環(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的版本沒有特殊要求，考慮到客戶機(jī)配置的不確定性和下兼容特性，建議服務(wù)器端Office版本不要太高，以防止客戶機(jī)下載后無法正確顯示。 
服務(wù)器端環(huán)境配置還有兩個(gè)偶然的發(fā)現(xiàn)是： 
1．　　筆者開發(fā)機(jī)器上原來裝有金山的WPS2002，結(jié)果Excel對象創(chuàng)建始終出現(xiàn)問題，卸載WPS2002后，錯(cuò)誤消失。 
2．　　筆者開發(fā)ASP代碼喜歡用FrontPage，結(jié)果發(fā)現(xiàn)如果FrontPage打開（服務(wù)器端），對象創(chuàng)建出現(xiàn)不穩(wěn)定現(xiàn)象，時(shí)而成功時(shí)而不成功。擴(kuò)展考察后發(fā)現(xiàn)，Office系列的軟件如果在服務(wù)器端運(yùn)行，則Excel對象的創(chuàng)建很難成功。 
服務(wù)器端還必須要設(shè)置的一點(diǎn)是COM組件的操作權(quán)限。在命令行鍵入“DCOMCNFG”，則進(jìn)入COM組件配置界面，選擇Microsoft Excel后點(diǎn)擊屬性按鈕，將三個(gè)單選項(xiàng)一律選擇自定義，編輯中將Everyone加入所有權(quán)限。保存完畢后重新啟動(dòng)服務(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　　　　（筆者測試時(shí)保存成功，頁面報(bào)錯(cuò)。） 
6、　　退出Excel操作 
objExcelApp.Quit　　一定要退出 
set objExcelApp = Nothing 

三、　　ASP操作Excel生成數(shù)據(jù)表 
1、　　在一個(gè)范圍內(nèi)插入數(shù)據(jù) 
objExcelSheet.Range("B3:k3").Value = Array("67", "87", "5", "9", "7", "45", "45", "54", "54", "10") 
2、　　在一個(gè)單元格內(nèi)插入數(shù)據(jù) 
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、　　單元格設(shè)定背景色 
objExcelSheet.Cells(3.1).Interior.colorindex=17 
9、　　合并單元格 
objExcelSheet.Range(“A1:G7”).Merge 
10、　　設(shè)置左右對齊方式 
2 left 3 middle 4 right 
objExcelSheet.Range("A1").HorizontalAlignment = 2 
11、　　設(shè)置上下對齊方式 
2 為居中 
objExcelSheet.Range("A1")..VerticalAlignment = 2 


四、　　ASP操作Excel生成Chart圖 
1、　　創(chuàng)建Chart圖 
objExcelApp.Charts.Add 
2、　　設(shè)定Chart圖種類 
objExcelApp.ActiveChart.ChartType = 97 
注：二維折線圖，4；二維餅圖，5；二維柱形圖，51 
3、　　設(shè)定Chart圖標(biāo)題 
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 = "=" 
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”都可以實(shí)現(xiàn)，建議用客戶端的方法，原因是給服務(wù)器更多的時(shí)間生成Excel文件。 
下 載的實(shí)現(xiàn)要麻煩一些。用網(wǎng)上現(xiàn)成的服務(wù)器端下載組件或自己定制開發(fā)一個(gè)組件是比較好的方案。另外一種方法是在客戶端操作Excel組件，由客戶端操作服務(wù) 器端Excel文件另存至客戶端。這種方法要求客戶端開放不安全ActiveX控件的操作權(quán)限，考慮到通知每個(gè)客戶將服務(wù)器設(shè)置為可信站點(diǎn)的麻煩程度建議 還是用第一個(gè)方法比較省事。 
刪除方案由三部分組成： 
A：　　同一用戶生成的Excel文件用同一個(gè)文件名，文件名可用用戶ID號(hào)或SessionID號(hào)等可確信不重復(fù)字符串組成。這樣新文件生成時(shí)自動(dòng)覆蓋上一文件。 
B：　　在Global.asa文件中設(shè)置Session_onEnd事件激發(fā)時(shí)，刪除這個(gè)用戶的Excel暫存文件。 
C：　　在Global.asa文件中設(shè)置Application_onStart事件激發(fā)時(shí)，刪除暫存目錄下的所有文件。 
注：建議目錄結(jié)構(gòu) /Src 代碼目錄 /Templet 模板目錄 /Temp 暫存目錄 

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

補(bǔ)充兩點(diǎn)： 

1、其他Excel具體操作可以通過錄制宏來解決。 
2、服務(wù)器端打開SQL企業(yè)管理器也會(huì)產(chǎn)生問題。