Excel2007当做数据库处理出错

木落

Set conn = CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\ZCTT\20100805100119.xls;Extended Properties=Excel12.0"
Set rs = CreateObject("ADODB.Recordset")
rs.Open "Select count(时间) from [Sheet1$]",conn
Do
If Not rs.EOF Then
     rd = rs("count(时间)")
     rs.MoveNext
End If
Loop Until rs.EOF=True
conn.Close
Set rs =Nothing


E:\VBScript\Database.vbs(15): Exception: 找不到可安装的 ISAM。

haven6

恩 不错 ，如果WPS的EXCEL格式呢，有试过吗？QTP默认格式不兼容WPS

feiyunkai

原帖由 木落 于 2010-8-6 08:28 发表
Set conn = CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\ZCTT\20100805100119.xls;Extended Properties=Excel12.0"
Set rs = CreateObject("ADODB.Recordset") ...

驱动程序不正确：Microsoft.Jet.OLEDB.4.0是打开EXCEL2003以前的版本的EXCEL的驱动，打开EXCEL2007要用Microsoft.Jet.OLEDB.12.0
修改代码中的Provider=Microsoft.Jet.OLEDB.4.0为Provider=Microsoft.Jet.OLEDB.12.0

若提示“未找到提供程序，该程序可能未正确安装”，这是因为未安装AccessDatabaseEngine.exe，自己下个安装一下就可以了
注：支持的操作系统： Windows Server 2003 Service Pack 1; Windows Vista; Windows XP Service Pack 2

[ 本帖最后由 feiyunkai 于 2010-8-6 17:49 编辑 ]