alpens (Автор тем)

При парсинге избежать преобразования чисел в экспоненциальный формат

Пользователь

Сообщений: 11 Регистрация: 09.04.2018

10.04.2018 00:25:18

Поле Реестровый номер процедуры: на сайте https://www.roseltorg.ru/past/procedure/0131100011418000094 имеет значение 0131100011418000094. После считывания это поле принимает значение

1,311E+17

Что нужно изменить в коде, чтобы данные считывались в исходным виде.

(Прошу прощения, не нашел как правильно вставить текст макроса. Привожу в "корявом виде")

Код

Sub Пример()
    Workbooks("Пример.xlsm").Worksheets("Парсинг").Cells.Delete
    With Workbooks("Пример.xlsm").Worksheets("Парсинг").Select
    Range("A1:Z1000").Select
    Selection.NumberFormat = "@"
    End With
    With Workbooks("Пример.xlsm").Worksheets("Парсинг").QueryTables.Add("URL;[URL=https://www.roseltorg.ru/past/procedure/0131100011418000094"]https://www.roseltorg.ru/past/procedure/0131100011418000094&quot[/URL];, Workbooks("Пример.xlsm").Worksheets("Парсинг").Range("A1"))
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .WebFormatting = xlWebFormattingNone
        .WebPreFormattedTextToColumns = True
        .WebDisableDateRecognition = True
        .Refresh BackgroundQuery:=False
    End With
End Sub

Перейти