Hallo,
ich kämpfe hier mit einem gewissen Tatbestand: Mir liegen Messdaten in Form von Rohtextfiles vor. Ich habe es hingekriegt, diese einzulesen. Das einzige problem ist bloß, dass die numerischen Messdaten jeweils um eine Spalte versetzt zu ihren Bezeichnungen und Formelzeichen abgelegt werden. D.h. die Messwertbezeichnung ist um eine Spalte zu den Messwerten versetzt gespeichert. Dies kommt dadurch zu standen, weil die Zeile der Messwerte mit einem Leerzeichen beginnt und die Zeile mit den Beschriftungen nicht. Hat jemand einen Ansatz, wie man es hinkriegen könnte, dass die ersten Delimiter grundsätzlich ignoriert werden? Das Kommand zum Einlesen lautet:
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & fileName, Destination:=Range("$A$1"))
.Name = "20111231003"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = True
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlOverwriteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = False
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = True
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = True
.TextFileOtherDelimiter = "|"
.Refresh BackgroundQuery:=False
End With
Vielen Dank,
Nucat
|