Hey, eigentlich ein simples vorhaben, bin aber nicht sehr bewandert in VBA.
Ich möchte die Daten einer csv per Makto abrufen. Funktioniert soweit auch, aber nur die erste Spalte.
Habe den COde aus dem Internet zusammengebastelt, vlt weis ja jemand schneller hilfe als ich mich durchkämpf.
Sub test()
Set Connection2 = CreateObject("ADODB.CONNECTION")
Dim rs2 As New ADODB.Recordset
Connection2.Open "Provider=Microsoft.Jet.OLEDB.4.0" _
& ";Data Source=""C:\Temp\""" _
& ";Extended Properties=""text;HDR=Yes;FMT=CSVDelimited"""
rs2.Open "Select * from Datei.csv", Connection2, 3, 1, 1
ActiveSheet.Range("A2").CopyFromRecordset rs2
Connection2.Close
End Sub
|