asp连接Excel的方法

一、asp连接Excel的方法与代码：

　　<%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$]"
　　%>

注意： 写法和连接ACCESS基本相同，不同的是，在调用工作表的时候，不能直接用表名，工作表名后要加$，而且要用“[]”括起来。

二、asp操作Excel的总结：

1、建立Excel对象
　　　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")
　　　Set objExcelBook=objExcelApp.ActiveWorkBook
　　　Set objExcelSheets=objExcelBook.Worksheets
　　　Set objExcelSheet=objExcelBook.Sheets(1)

4、另存Excel文件
　　　objExcelBook.SaveAsstrAddr&"\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="InternetExplorer"

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="AtestChart"

4、通过表格数据设定图形
　　　objExcelApp.ActiveChart.SetSourceDataobjExcelSheet.Range("A1:k5"),1

5、直接设定图形数据（推荐）
　　　objExcelApp.ActiveChart.SeriesCollection.NewSeries
　　　objExcelApp.ActiveChart.SeriesCollection(1).Name="=""333"""
　　　objExcelApp.ActiveChart.SeriesCollection(1).Values="="

6、绑定Chart图
　　　objExcelApp.ActiveChart.Location1

7、显示数据表
　　　objExcelApp.ActiveChart.HasDataTable=True

8、显示图例
　　　objExcelApp.ActiveChart.DataTable.ShowLegendKey=True

五、服务器端Excel文件浏览、下载、删除方案

浏览的解决方法很多，“Location.href=”，“Navigate”，“Response.Redirect”都可以实现，建议用客户端的方法，原因是给服务器更多的时间生成Excel文件。