ADODB-Connection-String für .csv

Ich will zu verarbeiten .csv-Dateien mit ADODB in Excel-VBA. Ich habe versucht, ein paar strings gefunden, die auf web, aber keiner von Ihnen scheint zu funktionieren. Ich bin immer Datei Pfad verwenden:

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

Und dann gebe ich strVFile als parameter an die sub objReport.Load strVFile. Der header des sub ist: Public Sub Load(ByVal strFilename As String).

Dann versuche ich, um ADODB Verbindung mit 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

Wenn ich das makro ausführen, und wählen Sie CSV-Datei, es gibt Fehler auftreten, die sagen, dass "angegebene Pfad ist kein Gültiger Pfad". Was mache ich falsch?

Bearbeiten (Code),

Modul 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

Klasse 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

könnte Sie posten Sie Ihre vollständigen code, damit wir es testen?
Vorübergehend Debug.Print oder MsgBox zu zeigen, den Wert von strFilename sofort, bevor Sie es in der Verbindungszeichenfolge. Überprüfen Sie, dass es zeigt einen vollständigen Pfad zu der gewünschten Datei. Auch Delimited(;) sollte Delimited(,) für eine CSV-würde ich denken
Ich habe einige code, es ist nur ein paar Zeilen, aber es sollte zeigen mein problem. Ich habe versucht, sich auf den Weg und es scheint OK zu sein.

InformationsquelleAutor Jandrejc | 2011-09-06

8

Für eine text-Datei Data Source ist der Ordner, nicht die Datei. Die Datei ist die Tabelle (SELECT * FROM ..). Sehen http://www.connectionstrings.com/textfile

InformationsquelleAutor Fionnuala
1

Fand ich die Antwort auf mein problem. Für text-Dateien (wie bereits von Remou) Data Source nur den Pfad, ohne Dateinamen. Darüber hinaus anstelle von:
```
C:\dir\dir2\
```
Musste ich
```
C:\\dir\\dir2\\
```
Bekommen Dateiname und vollständiger Pfad:
```
strFilename = Dir(strFilepath)
```
Um den Pfad, ohne Datei-name:
```
strFilepath = Left$(strFilepath, InStrRev(strFilepath, "\"))
```
Um den Pfad zu ändern format von '\' als '\\', die ich gerade verwendet:
```
strFilepath = Replace(strFilepath, "\", "\\")
```
Das problem ist gelöst, vielen Dank für Ihr Interesse.

InformationsquelleAutor Jandrejc

Hier ist ein update mit Microsoft.Ass.OLEDB.16.0 als provider.

Stellen Sie sicher, dass der Referenz-Bibliothek "Microsoft ActiveX Data Objects 6.1 Bibliothek" Hinzugefügt VBAproject-ersten.

Sub testrunSQLQueryForCSV()
    Dim arrayTest
    arrayTest = runSQLQueryForCSV("C:\xxx\yyyy\", "SELECT * FROM mycsvfile.csv")

    'NOTE: for CSV the Data Source reference is to the directory and the csv file is similar
    'to one "worksheet" in an excel file and is simply referenced in the SQL statement
End Sub


Public Function runSQLQueryForCSV(fileDirPath As String, SQLStatement As String)

    Dim Conn As New ADODB.Connection
    Dim RecSet As New ADODB.Recordset

    With Conn
       .Provider = "Microsoft.ACE.OLEDB.16.0"  'Can use many providers, but this is the latest and it works with csv files also
       .ConnectionString = "Data Source=" & fileDirPath & ";Extended Properties='text'"
    End With

    Conn.Open

    RecSet.Open SQLStatement, Conn
    runSQLQueryForCSV = RecSet.GetRows()

    Conn.Close
    Set RecSet = Nothing
    Set Conn = Nothing
End Function

InformationsquelleAutor TEK

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.