On 6 apr, 22:52, (Jialiang Ge [MSFT])
wrote:
Hello J.W.Zondag,

I can understand that you, and many other customers, are frustrated by the
'Separator' problem introduced by Excel 2007. I have sent emails to the
developers responsible for the issue and pushed them to fix it as soon as
possible. If there is anything else I can do for you, please do let me
know.

Again, I am sorry for the pains caused by it. I hope my eagerness to help
you can please you a little bit.

Regards,
Jialiang Ge , remove 'online.')
Microsoft Online Community Support

=================================================
Delighting our customers is our #1 priority. We welcome your comments and
suggestions about how we can improve the support we provide to you. Please
feel free to let my manager know what you think of the level of service
provided. You can send feedback directly to my manager at:
.

This posting is provided "AS IS" with no warranties, and confers no rights..
=================================================

Hi Guys,

a solution to this:
just record the text import as a macro and
add this line to the script of the text import

.TextFileDecimalSeparator = "."

the whole thing looks like this and the macro opens all files:

fileToOpen = Application _
.GetOpenFilename("Text Files (*.txt), *.txt")


With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;" & fileToOpen _
, Destination:=Range("$A$3"))
.Name = fileToOpen
.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 = 2
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = True
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileDecimalSeparator = "."
.TextFileThousandsSeparator = "'"
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 2, 2, 2, 2, 9, 9,
9)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With

Works fine

Greetz
Jo