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文件。