Hallo zusammen,

ich möchte gerne in eine vorhandene Arbeitsdatei eine csv-Datei "einlesen", also entweder in ein neues Blatt importieren, oder die Daten abrufen. Aber ich bekomme es einfach nicht hin. Wenn ich den Rekorder laufen lasse und über Daten/Daten abrufen/Aus Datei... gehe, funktioniert das einwandfrei. Lass ich den aufgezeichneten Code laufen, erhalten ich in der Zeile:
With ActiveSheet.ListObjects.Add(SourceType:=0, Source:="OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=""Daten "";Extended Properties=""""" , Destination:=Range("$A$1")).QueryTable

den Fehler "400" ???

Kai Weissmann hatte in einem Seiner Videos folgende schlanke Methode über eine Abfrage gezeigt, jedoch erhalte ich beim Refresh auch hier einen Fehler (Anwendungs- oder Objektbezogener Fehler).

With Sheets("Daten").QueryTables.Add(Connection:="Text;strDatei", Destination:=Sheets("Daten").Range("A1"))
' In der strDatei liegt der komplette Pfad mit Dateinamen
.TextFileOtherDelimiter = ";"
.Refresh
End With

Habt Ihr eine Idee wie ich nun doch noch einen Import oder Abruf realisieren kann ?

Vielen Dank für Eure Unterstützung.
Gruß Stefan