Probleme bei VBA Text-Import
02.10.2016 21:18:59
Patrick
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