Probleme bei VBA Text-Import

Hallo,
ich nutze den Import von Text-Dateien. Das Makro wurde mit dem Rekorder aufgenommen.
Ich möchte hier flexibel eine Datei importieren können, da sich der Dateiname monatlich ändert.
Obwohl nach der Datei gefragt wird, ich dann die neue Datei auswähle, wird dann die ursprüngliche Datei importiert.
Was müsste ich hier ändern?
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\Users\DIA_GSDL3_PS.012016_full.txt", Destination:=Range( _
"$A$3"))
.Name = "Data_Import_DIA_File"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = True
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlOverwriteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = False
.RefreshPeriod = 0
.TextFilePromptOnRefresh = True
.TextFilePlatform = 1252
.TextFileStartRow = 2
.TextFileParseType = xlFixedWidth
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 4, 1, 1, 1)
.TextFileFixedColumnWidths = Array(8, 37, 10, 6, 1, 10, 2, 1, 8, 6, 28, 20)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Anbei nochmal das komplette Makro. Da ist der Dateiname statisch aufgeführt. Die Datei kann ich nicht mitsenden, da werden aber auch nur die importierten Daten übernommen.
Das Makro fragt ab, ob die Datei noch existiert (wenn verschoben kommt Abbruch). Danach Dialogfeld zur Auswahl der Datei.
Habe gerade gemerkt, dass diese dann auch tatsächlich importiert wird. Hatte das falsch interpretiert. Bleibt der Abbruch, wenn die ursprüngliche Datei verschoben wurde...

Sub Import_DIA_File()
' Import_DIA_File Makro
Sheets("Überleitung DIA nach SD").Select
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\Users\dea64306\Desktop\DocuCenter\DIA_GSDL3_PS.012016_full.txt", Destination:= _
Range( _
"$A$3"))
.Name = "Data_Import_DIA_File"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = True
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlOverwriteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = False
.RefreshPeriod = 0
.TextFilePromptOnRefresh = True
.TextFilePlatform = 1252
.TextFileStartRow = 2
.TextFileParseType = xlFixedWidth
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 4, 1, 1, 1)
.TextFileFixedColumnWidths = Array(8, 37, 10, 6, 1, 10, 2, 1, 8, 6, 28, 20)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
Range("A3").Select
End Sub

Beliebteste Forumthreads (12 Monate)

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread