При вставке 20-значного числа в ячейку происходит округление. Как избавиться?

[urri_k]

Открываем таблицу в новой книге. В столбце, где проставляются длинные числа типа 18810807140011000110, происходит округление до 18810807140011000000. Подскажите, пожалуйста, как от этого избавиться.

[SAS888]

Использовать текстовый формат. Другого выхода нет!

[urri_k]

При чем здесь текстовый формат? При открытии новой книги, ячейки сразу форматируются.

[SAS888]

Что значит

проставляются длинные числа

Откуда они берутся? Откройте новую книгу и исходно отформатируйте требуемые ячейки в требуемый формат. Также, это можно сделать макросом по событию открытия книги. Еще раз повторяю: Другого выхода нет!

[urri_k]

Сообщение от SAS888

Что значит Откуда они берутся? Откройте новую книгу и исходно отформатируйте требуемые ячейки в требуемый формат. Также, это можно сделать макросом по событию открытия книги. Еще раз повторяю: Другого выхода нет!

Есть файл *.csv, который генерится на стороне сервера. При открытии этого файла, длинные числа округляются.
Не понял про новую книгу. Создать пустую книгу и в ней все столбцы отформатировать в текст? А как это поможет? Или я не правильно понял. По поводу макроса согласен, самый простой вариант. Просто думал может какие-то настройки есть в Экселе, которых я не замечал.

[urri_k]

Кажется понял о чём речь. Если формат файла .xls, .txt, ... (с .csv у меня не получилось), то при его открытии выбираем "Открыть для чтения", и там в настройках открываемого файла задаем параметр каждого конкретного столбца. Соотвественно, выбираем столбец с 20-зн. числами, и отмечаем как текст. Спасибо за помощь!

[slan]

Сообщение от urri_k

Есть файл *.csv, который генерится на стороне сервера. При открытии этого файла, длинные числа округляются.
Не понял про новую книгу. Создать пустую книгу и в ней все столбцы отформатировать в текст? А как это поможет? Или я не правильно понял. По поводу макроса согласен, самый простой вариант. Просто думал может какие-то настройки есть в Экселе, которых я не замечал.

открыть импортом данных - там указать как интерпретировать столбцы

[SAS888]

Нужно было сразу сказать, что у Вас "*.csv".
Такие файлы можно открыть, например, так:

Sub OpenCSV()

    Dim buf(1 To 256) As Variant, i As Long, RenPath As String
    Const FilePath As String = "C:\temp\Test.CSV" 'Подставьте сюда путь к нужному файлу.

    RenPath = Split(FilePath, ".")(0) & "txt"

    With Application
        .ScreenUpdating = False
        .DisplayAlerts = False
    End With

'Создание массива для параметра FieldInfo метода OpenText.

    For i = 1 To 256
        buf(i) = Array(i, 2)
    Next

    Name FilePath As RenPath
    Workbooks.OpenText Filename:=RenPath, DataType:=xlDelimited, Comma:=True, FieldInfo:=buf
    Erase buf

End Sub

Обратите внимание, что файл переименовывается. Если такой возможности нет (работа с сервера), Скопируйте его к себе, затем выполняйте подобное открытие. Примененный метод не имеет тех недостатков, о которых Вы говорили в самом начале.

[urri_k]

Сообщение от SAS888

Нужно было сразу сказать, что у Вас "*.csv".
Такие файлы можно открыть, например, так:

Sub OpenCSV()

    Dim buf(1 To 256) As Variant, i As Long, RenPath As String
    Const FilePath As String = "C:\temp\Test.CSV" 'Подставьте сюда путь к нужному файлу.

    RenPath = Split(FilePath, ".")(0) & "txt"

    With Application
        .ScreenUpdating = False
        .DisplayAlerts = False
    End With

'Создание массива для параметра FieldInfo метода OpenText.

    For i = 1 To 256
        buf(i) = Array(i, 2)
    Next

    Name FilePath As RenPath
    Workbooks.OpenText Filename:=RenPath, DataType:=xlDelimited, Comma:=True, FieldInfo:=buf
    Erase buf

End Sub

Обратите внимание, что файл переименовывается. Если такой возможности нет (работа с сервера), Скопируйте его к себе, затем выполняйте подобное открытие. Примененный метод не имеет тех недостатков, о которых Вы говорили в самом начале.

Спасибо. На самом деле я его ручками переименовал в .txt и при открытии все столбцы отформатировал. За код спасибо. Если будут промышленные масштабы обязательно воспользуюсь.

PS slan. А разве есть в экселе импорт? У меня 2003 SP2.

[дмидми]

Сообщение от SAS888

RenPath = Split(FilePath, ".")(0) & "txt"

FilePath может содержать несколько точек!
Я бы рекомендовал (поскольку наличие окончания .csv уже установлено)

RenPath =Left(FilePath, Len(FilePath) - 3) & "txt"