asp连接excel的方法与代码

阿杰

asp连接excel的方法与代码

在客户端通过VBS来处理，效果一样，只不过出于安全，如果安全级别设置高了，会有相关安全提示。

<% 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")
setobjExcelBook=objExcelApp.ActiveWorkBook
setobjExcelSheets=objExcelBook.Worksheets
setobjExcelSheet=objExcelBook.Sheets(1)
4、另存Excel文件
objExcelBook.SaveAsstrAddr&"\Temp\Table.xls"
5、保存Excel文件
objExcelBook.Save（笔者测试时保存成功，页面报错。）
6、退出Excel操作
objExcelApp.Quit一定要退出
setobjExcelApp=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="={1,4,5,6,2}"
6、绑定Chart图
objExcelApp.ActiveChart.Location1
7、显示数据表
objExcelApp.ActiveChart.HasDataTable=True
8、显示图例
objExcelApp.ActiveChart.DataTable.ShowLegendKey=True五、服务器端Excel文件浏览、下载、删除方案
浏览的解决方法很多，“Location.href=”，“Navigate”，“Response.Redirect”都可以实现，建议用客户端的方法，原因是给服务器更多的时间生成Excel文件。

阿杰

strCon = " Provider = Microsoft.Jet.OLEDB.4.0 ; " + "Data Source =" + filename + ";Extended Properties=Excel 8.0";

摘要：excel文件也可以作为数据库使用，当然前提是它的内容要满足一定的规范，简单的做法是可以从数据库文件导出为excel文件。 1、连接字符数 有两种方式，ODBC provider和OLEDB provider （1）ODBC dim conn set conn=server.createobject(adodb.connection) conn...
　　excel文件也可以作为数据库使用，当然前提是它的内容要满足一定的规范，简单的做法是可以从数据库文件导出为excel文件。

　　1、连接字符数
　　有两种方式，ODBC provider和OLEDB provider

　　（1）ODBC
　　dim conn
　　set conn=server.createobject("adodb.connection")
　　conn.open "Driver={Microsoft Excel Driver (*.xls)};DBQ=" & server.mappath("XX.xls") &"; ReadOnly=False;Provider = MSDASQL"

　　（2）OLEDB
　　dim conn
　　set conn=server.createobject("adodb.connection")
　　conn.open "Data Source=" & server.MapPath("文件名.xls") & ";Extended Properties=Excel 8.0;provider=microsoft.jet.oledb.4.0"

　　2、访问数据表
　　语法：
　　strQuery = "SELECT * FROM [Sheet1$]"
　　或者
　　strQuery = "SELECT * FROM `Sheet1$`"
　　其中Sheet1为EXCEL文件的工作表名，在导出的excel文件中，一个表导出为一个sheet(工作表)