EXCEL VBA ADO nach Semikolon separieren
05.04.2023 14:48:09
Script Kidd
Hallo, ich nutze diesen Code um alle Daten einer CSV Datei zu kopieren ohne diese öffnen zu müssen:
Sub GetDatafromCSV()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim FileName As String
Set cn = New ADODB.Connection
cn.ConnectionString = _
"Provider=Microsoft.ACE.OLEDB.16.0;" & _
"Data Source=" & GetLocalPath(ThisWorkbook.Path) & "\;" & _
"Extended Properties='text;HDR=YES;FMT=Delimited(';')'"
cn.Open
Set rs = New ADODB.Recordset
rs.ActiveConnection = cn
rs.Source = "SELECT * FROM [Test.csv]"
rs.Open
Tabelle2.Range("A21").CopyFromRecordset rs
rs.Close
cn.Close
End Sub
Leider wird hiermit nur nach Komma separiert, also die nächste Spalte genutzt und nicht nach Semikolon. Es landet also mit den aktuellen Daten alles in Spalte A bis C (In der CSV sind es aber eigentlich A bis W).
Ich sitze jetzt schon einige Stunden vor Google und habe bisher keine praktikable Lösung gefunden.
Systemseitig ist das Semikolon als Trennzeichen eingetragen, wird aber leider nicht genutzt.
Schema.ini Datei ist leider auch keine Lösung. und andere "Provider" wie Jet4.0 oder Text Driver kriege ich nicht zum laufen da 64-bit Betriebssystem.
Bin für jeden Hinweis dankbar!