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