excel - .csv 的 ADODB 连接字符串

Question

我想在 Excel VBA 中使用 ADODB 处理 .csv 文件。我尝试了一些在网上找到的字符串，但似乎都不起作用。我正在使用以下方式获取文件路径:

strVFile = Application.GetOpenFilename("CSV (*.csv), *.csv")

然后我将 strVFile 作为参数传递给子 objReport.Load strVFile。子标题是:Public Sub Load(ByVal strFilename As String)。

然后我尝试使用字符串建立 ADODB 连接:

pconConnection.ConnectionString = _
            "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strFilename & _
            ";Extended Properties=""text;HDR=Yes;FMT=Delimited(;)"";Persist Security Info=False"
    pconConnection.Open

当我运行宏并选择 CSV 文件时，出现错误提示“给定路径不是有效路径”。我做错了什么？

编辑(代码)，

模块 mdlReport

Public Sub Report()
    Dim objReport As clsReport


    MsgBox "Please select .csv file", vbInformation + vbOKOnly
    strVFile = Application.GetOpenFilename("CSV (*.csv), *.csv")

    If strVFile <> False Then
        Set objReport = New clsReport

        objReport.Load strVFile

    End If
End Sub

类 clsReport

Private pconConnection As ADODB.Connection
Private prstRecordset As ADODB.Recordset

Private Sub Class_Initialize()
  Set pconConnection = New ADODB.Connection
  pconConnection.ConnectionTimeout = 40
End Sub

Public Sub Load(ByVal strFilename As String)

    pconConnection.ConnectionString = _
            "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strFilename & _
            ";Extended Properties=""text;HDR=Yes;FMT=Delimited(;)"";Persist Security Info=False"
    pconConnection.Open

End Sub

Answer 1

对于文本文件，Data Source 是文件夹，而不是文件。该文件是表 (SELECT * FROM ..)。参见 http://www.connectionstrings.com/textfile