编程开发论坛 - Powered by Discuz! Board

标题: HELPHELP 关于EXCEL的查询 [打印本页]

作者: freaman 时间: 2006-4-25 13:34 标题: HELPHELP 关于EXCEL的查询

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

作者: 易名如风 时间: 2006-4-25 13:36

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

作者: 南极的桃子 时间: 2006-4-25 13:36

我们可以把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

作者: arniefu 时间: 2006-4-25 13:37

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一样

欢迎光临编程开发论坛 (http://bbs.lihuasoft.net/)