<% dim connxls,connstrxls
connstrxls="DBQ=d:\newexcel.xls;DefaultDir=;DRIVER={Microsoft Excel Driver (*.xls)};"
set connxls=server.createobject("ADODB.CONNECTION")
connxls.open connstrxls
Set rsxls=Server.CreateObject("ADODB.Recordset")
SQLxls = "select * from [new$]"
%>
注意： 寫(xiě)法和連接ACCESS基本相同，不同的是，在調(diào)用工作表的時(shí)候，不能直接用表名，工作表名后要加$，而且要用“[]”括起來(lái)。
asp操作excel的總結(jié)：
1、建立Excel對(duì)象
setobjExcelApp=CreateObject("Excel.Application")
objExcelApp.DisplayAlerts=false不顯示警告
objExcelApp.Application.Visible=false不顯示界面
2、新建Excel文件
objExcelApp.WorkBooks.add
setobjExcelBook=objExcelApp.ActiveWorkBook
setobjExcelSheets=objExcelBook.Worksheets
setobjExcelSheet=objExcelBook.Sheets(1)
3、讀取已有Excel文件
strAddr=Server.MapPath(".")
objExcelApp.WorkBooks.Open(strAddr&"\Templet\Table.xls")
setobjExcelBook=objExcelApp.ActiveWorkBook
setobjExcelSheets=objExcelBook.Worksheets
setobjExcelSheet=objExcelBook.Sheets(1)
4、另存Excel文件
objExcelBook.SaveAsstrAddr&"\Temp\Table.xls"
5、保存Excel文件
objExcelBook.Save（筆者測(cè)試時(shí)保存成功，頁(yè)面報(bào)錯(cuò)。）
6、退出Excel操作
objExcelApp.Quit一定要退出
setobjExcelApp=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="InternetExplorer"
3、選中一個(gè)范圍
4、單元格左邊畫(huà)粗線條
5、單元格右邊畫(huà)粗線條
6、單元格上邊畫(huà)粗線條
7、單元格下邊畫(huà)粗線條
8、單元格設(shè)定背景色
9、合并單元格
10、插入行
11、插入列四、ASP操作Excel生成Chart圖
1、創(chuàng)建Chart圖
objExcelApp.Charts.Add
2、設(shè)定Chart圖種類(lèi)
objExcelApp.ActiveChart.ChartType=97
注：二維折線圖，4；二維餅圖，5；二維柱形圖，51
3、設(shè)定Chart圖標(biāo)題
objExcelApp.ActiveChart.HasTitle=True
objExcelApp.ActiveChart.ChartTitle.Text="AtestChart"
4、通過(guò)表格數(shù)據(jù)設(shè)定圖形
objExcelApp.ActiveChart.SetSourceDataobjExcelSheet.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.Location1
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文件。