Question

我在Excel VBA中构建一个程序来自动化一个过程，我需要导入存储在csv文件中的数据。所以，我正在尝试使用查询表来导入csv文件中的特定列。

我使用ADO与使用Jet Provider OLE DB连接csv文件。在连接字符串中，我指定了提供程序，数据源和扩展属性。我使用的是Windows XP和Office 2003，因此我的Excel版本是8.0。我将提供程序指定为Microsoft.Jet.OLEDB.4.0。我的代码粘贴在下面。当代码执行时，我在下面的代码中包含的最后一行收到错误“找不到可安装的ISAM”。我不能发现语法有什么问题，所以我想知道这个错误是否可能是因为我没有安装正确版本的Jet？请参阅下面的代码。感谢

Sub Excel_QueryTable()

Dim oCn As ADODB.Connection
Dim oRS As ADODB.Recordset
Dim ConnString As String
Dim SQL As String

Dim qt As QueryTable

ConnString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    "Data Source=C:\testfile.csv;" & _
    "Extended Properties=Excel 8.0;HDR=Yes; FMT=Delimited; IMEX=1"","

Set oCn = New ADODB.Connection
oCn.ConnectionString = ConnString
oCn.Open

加载csv“无法找到可安装的ISAM”

0 个答案: