发新话题
打印

HELPHELP 关于EXCEL的查询

HELPHELP 关于EXCEL的查询

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

TOP

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

TOP

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

TOP

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

TOP

发新话题