Макрос записал такой код:
- Код: Выделить всё
Workbooks.OpenText Filename:=path, Origin:=1251, _
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=True, Tab:=False, Semicolon:=False, Comma:=False _
, Space:=True, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), Array _
(3, 1), Array(4, 1)), TrailingMinusNumbers:=True
В тексте присутстствуют 20-значные числа, про расположение которых известно что они могут встретиться в 3 столбце. Кроме них в этом столбце иногда присутствует дата, текст и др.
По умолчанию вместо 20 значного числа там такое - 4,09058E+19
Я потом эти числа вылавливаю и такой строкой
- Код: Выделить всё
ActiveSheet.Cells(i, j + 2).NumberFormat = "0"
преобразую в 20-значный, но вот беда - последние 5 чисел - нули.
Как мне без потерь прочесть текстовик???
