Möchte csv-Dateien (Kontoumsätze von Bank downgeloadet) in ein Tabellenblatt an vorher angewählter Stelle (Zelle im Blatt, auf der der Cusor gerade steht) mit VBA-Makro automatisch importieren. Dazu ist es aber notwendig, dass das Dialogfenster "Datei auswählen" geöffnet wird und nach Wahl der Datei alles weiter automatisch abläuft. Hab untenstehend den aufgezeichnet Code. Wie und an welcher Stelle kann ich nun das Dialogfenster zum Öffnen der Datei im Code einfügen? Es ändert sich also nur der jeweilige Dateiname und der Ort(Zelle in der ich vor Aufruf des Makros stand) wohin importiert werden soll.
Kann mir da irgendwer helfen, wäre sehr dankbar!
Liebe Grüße
Peter
Sub importieren()
' importieren Makro
' Makro am 02.03.2007 von POLA aufgezeichnet
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\Dokumente und Einstellungen\POLA\Desktop\0001234567_20070220_20070302.csv" _
, Destination:=Range("A2696"))
.Name = "0001234567_20070220_20070302"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 1252
.TextFileStartRow = 2
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = True
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 9)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
End Sub