vba查询csv文件“找不到可安装的ISAM”错误

Question

我打算编写一个宏来使用Access vba查询csv和xml文件。我不想将csv或xml解析为Access中的临时表。

Dim dbConnection As ADODB.Connection
Dim rs As ADODB.Recordset
Dim dbConnectionString As String

dbConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
sourcefilepath & ";Extended Properties=""csv;HDR=Yes;FMT=Delimited"""

Set dbConnection = New ADODB.Connection
dbConnection.Open dbConnectionString
Set rs = New ADODB.Recordset
strSQL = "SELECT * FROM " & sourceFileName
rs.Open strSQL, dbConnection, 3, 3
rs.Close
dbConnection.Close

我尝试了上面的代码并不断收到“找不到可安装的ISAM”错误消息。 我也尝试过：

dbConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
sourcefilefolder & ";Extended Properties=""txt;HDR=Yes;FMT=Delimited"""

它也没用。 任何意见，将不胜感激。提前谢谢。

Answer 1

点击工具＆gt;参考并向下滚动到：

微软？ （问题是选择您决定使用哪种连接。）

选择：

Microsoft ADO（您想要的版本）

和

Microsoft OLE（您想要的版本）

我发现它也有助于选择：Microsoft DAO Jet 3.6，即使我不打算使用它，因为它支持我经常调用的几个较旧的实用程序。