AW: Problem beim Öffnen einer *.txt-Datei
04.03.2016 16:30:34
Ingo
Hallo Selli
Ah alles klar. Habe es nun gefunden mit dem importieren.
Ich habe dann so einen Importvorgang mit dem Makrorecoder aufgezeichnet.
Wenn ich das Makro dann aber erneut ausführe kommt eine Fehlermeldung:
Laufzeifehler '5':
Ungültiger Prozeduraufruf oder ungültiges Argument
Und diese Zeile wir gelb markiert:
.CommandType = 0
Hier das komplette Makro:
Sub Makro1()
With ActiveSheet.QueryTables.Add(Connection:="TEXT;C:\Temp\logs.txt", _
Destination:=Range("$A$1"))
.CommandType = 0
.Name = "logs"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 850
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = True
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = True
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
End Sub
Was mache ich denn da nun noch falsch?
Gruß
Ingo