ich verwende folgendes Makro, um eine csv-Datei in Excel einzulesen:
Sub Import_02()
With tbl_I1.QueryTables.Add(Connection:="TEXT;E:\Test\Dummy.csv" _
, Destination:=Range("$A$1"))
.TextFileStartRow = 2
.TextFileCommaDelimiter = True
.TextFileDecimalSeparator = "."
.Refresh BackgroundQuery:=False
End With
End Sub
Leider gelingt es mir nicht, den Pfad und den Dateinamen variabel in das Makro zu integrieren.Hat jemand einen Vorschlag?
Vielen Dank für Eure Unterstützung.
Gruß
Michael