HELPHELP 关于EXCEL的查询

有人知道如何用把用Set xls = CreateObject(“Excel.Application”) 下创建的文件把他显示出来吗?或者可以实现如下功能:查询某一活页夹的Excel文件,关把附合条件的文件显示出来,关设置焦点在查询的结果上;谢谢
---------------------------------------------------------------

用odbc或ado连上去处理,在asp中用ole操作excel是非常麻烦的
---------------------------------------------------------------

我们可以把excel作为一个数据库来对待。
5)将Excel97或Excel2000生成的XLS文件(book)看成一个数据库,其中的每一个工作表(sheet)看成数据库表。

Function CreateExcelRecordset( XLS文件名,Sheet名 )

Dim conn.Driver,DBPath

‘ 建立Connection对象
Set conn = Server.CreateObject("ADODB.Connection")
Driver = "Driver={Microsoft Excel Driver (*.xls)};"
DBPath = "DBQ=" & Server.MapPath( "XLS文件名" )

‘ 调用Open 方法打开数据库
conn.Open Driver & DBPath
Set CreateExcelRecordset = Server.CreateObject("ADODB.Recordset")
‘ 打开Sheet,参数二为Connection对象,因为Excel ODBC驱动程序无法直接用‘sheet名来打开sheet,所以请注意以
下的select语句
CreateExcelRecordset.Open "Select * From ["&sheet&”$]”, conn, 2, 2

End Function

---------------------------------------------------------------

Set econn = Server.CreateObject("ADODB.Connection")
Driver = "Driver={Microsoft Excel Driver (*.xls)};"
DBPath = "DBQ=" & Server.MapPath(xlspath)
econn.Open Driver & DBPath
Set ers = Server.CreateObject("ADODB.Recordset")
sql="Select * From [sheet1$]"
ers.Open sql,econn,0,1
可以用上面的方式打开excel并从里面读取数据
操作跟access一样

Published At
Categories with Web编程
Tagged with
comments powered by Disqus