Ich möchte über Button externe Dateien in meine "Tabelle1" importieren. Dazu habe ich das makro aufgezeichnet.
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\Dokumente und Einstellungen\Desktop\...\ test.csv" _
, Destination:=Range("A1"))
.Name = "test"
.FieldNames = True
...
...
Jetzt wollte ich es so abändern das ich verschiedene Dateien einlesen kann.
Dazu hab ich nur folgendes abgeändert:
FileToOpen = Application _
.GetOpenFilename("excel Files (*.csv), *.csv")
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;FileToOpen" _
, Destination:=Range("A1"))
.Name = "test"
.FieldNames = True
....
...
Leider funktioniert das Makro jetzt nicht mehr. kann mir jemand denn fehler sagen
MFG Ingo