У меня вот такая вот проблема: Я открываю текстовый файл в Excel. В текстовом файле находятся несколько колонок данных (например: 1243 372 239 2132.356 324). При открытии я использу такой код:

Workbooks.OpenText Filename:=TextBox1.Text, _
Origin:=xlMSDOS, _
DataType:=xlFixedWidth, _
Tab:=True, _
FieldInfo:=Array(Array(1, 2), Array(0, 9), Array(6, 1), _
...................................................................
Array(14, 2), Array(6, 9), Array(19, 1), _
Array(19, 2), Array(6, 9), Array(22, 1), _
Array(38, 2), Array(6, 9), Array(47, 1))
Проблема заключается в том, что при переводе чисел, такого типа: 04.24, он пишет датой (окт.24). В Office2003 это не происходит, но мне надо чтобы оно работала в 2000 офисе. Помогите решить эту проблему.

Здравствуйте, Lans, Вы писали:

L>У меня вот такая вот проблема: Я открываю текстовый файл в Excel. В текстовом файле находятся несколько колонок данных (например: 1243 372 239 2132.356 324). При открытии я использу такой код:

L>Workbooks.OpenText Filename:=TextBox1.Text, _
L> Origin:=xlMSDOS, _
L> DataType:=xlFixedWidth, _
L> Tab:=True, _
L> FieldInfo:=Array(Array(1, 2), Array(0, 9), Array(6, 1), _
L>...................................................................
L> Array(14, 2), Array(6, 9), Array(19, 1), _
L> Array(19, 2), Array(6, 9), Array(22, 1), _
L> Array(38, 2), Array(6, 9), Array(47, 1))
L>Проблема заключается в том, что при переводе чисел, такого типа: 04.24, он пишет датой (окт.24). В Office2003 это не происходит, но мне надо чтобы оно работала в 2000 офисе. Помогите решить эту проблему.


Попробуй указать явно:

DecimalSeparator:="."

Формат колонки в Excel:

Columns("A:A").Select
Selection.NumberFormat = "0.00"