arniefu

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