Autofahrt auswerten/Makro
11.08.2017 16:02:03
Katzi
Vielen Dank für die Aufnahme im Forum. Ich habe zurzeit ein kleines "Projekt", ich will Daten welche in einer Textdatei gespeichert sind (.txt) in mein Excel importieren.
Leider kann ich mit meinen Makro nur ein bestimmtes File einlesen - Der Pfad dorthin ist starr, gibt es eine Möglichkeit um das File händisch auszuwählen und es mit Hilfe eines Makros einzufügen?
Sub Makro1()
' Makro1 Makro
Application.CutCopyMode = False
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\Users\k\Desktop\Daten_Roh\Auto_20171010.TXT" _
, Destination:=Range("$A$1"))
.Name = "Auto_20171010"
.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 = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = True
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1)
.TextFileDecimalSeparator = "."
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
End Sub
Könnte mir wer da behilflich sein?
Liebe Grüße und ein schönes Wochenende!
K
Anzeige