Некорректный вывод данных с сайта.

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Некорректный вывод данных с сайта. (Макросы/Sub)

Vertep7

Дата: Понедельник, 11.09.2023, 15:05 | Сообщение № 1

Группа: Пользователи

Ранг: Участник

Сообщений: 57

Репутация: 0 ±

Замечаний: 20% ±

Excel 2007

Здравствуйте. Подскажите пожалуйста, как можно исправить следующую ситуацию:
Существует страница при выводе значений с которой в эксель в первом столбце таблицы значения выводятся неверно. Файл примера прикладываю в в XLSX, так как он не сохраняется в XLS. На всякий случай добавляю скриншоты таблиц для сравнения, так как данные могут меняться.

[vba]

Код

Sub Basic_Web_Query()
Worksheets("Sheet1").Range("A1:J10000").ClearContents ' очистка листа

With Sheet1.QueryTables.Add(Connection:= _
"URL;https://iss.moex.com/iss/engines/stock/markets/bonds/boards/TQCB/securities?iss.only=securities&iss.meta=off&securities.columns=YIELDATPREVWAPRICE,ISSUESIZE", Destination:=Range("$A$1"))

.WebFormatting = xlWebFormattingNone
.WebTables = "1" ' таблицы на странице
.Refresh BackgroundQuery:=False
.Delete ' отключение дублирования подключений
End With

End Sub

[/vba]

К сообщению приложен файл: 6140462.jpg (46.0 Kb) · 8139748.jpg (45.3 Kb) · import_dannykh_iz_html_v_excel.xlsm (144.9 Kb)

Сообщение отредактировал Vertep7 - Понедельник, 11.09.2023, 15:08

Ответить

doober

Дата: Понедельник, 11.09.2023, 15:18 | Сообщение № 2

Группа: Друзья

Ранг: Ветеран

Сообщений: 995

Репутация: 345 ±

Замечаний: 0% ±

Excel 2010

Здравствуйте.
Задайте формат столбца А числовой
11.77 воспринимает как дата

Ответить

Vertep7

Дата: Понедельник, 11.09.2023, 15:23 | Сообщение № 3

Группа: Пользователи

Ранг: Участник

Сообщений: 57

Репутация: 0 ±

Замечаний: 20% ±

Excel 2007

Цитата doober, 11.09.2023 в 15:18, в сообщении № 2 (

)

Задайте формат столбца А числовой

Это было проделано сразу же. Эффекта нет.

Ответить

Nic70y

Дата: Понедельник, 11.09.2023, 15:57 | Сообщение № 4

Группа: Друзья

Ранг: Экселист

Сообщений: 9185

Репутация: 2448 ±

Замечаний: 0% ±

Excel 2010

[vba]

Код

Worksheets("Sheet1").Range("A1:J10000").Clear

[/vba]

ЮMoney 41001841029809

Ответить

Vertep7

Дата: Понедельник, 11.09.2023, 16:18 | Сообщение № 5

Группа: Пользователи

Ранг: Участник

Сообщений: 57

Репутация: 0 ±

Замечаний: 20% ±

Excel 2007

Цитата Nic70y, 11.09.2023 в 15:57, в сообщении № 4 (

)

Worksheets("Sheet1").Range("A1:J10000").Clear

Нет, все тоже самое. Более того сбрасывает форматирование до общего и в ячейках появляются дни и месяца.

Ответить

Nic70y

Дата: Понедельник, 11.09.2023, 16:24 | Сообщение № 6

Группа: Друзья

Ранг: Экселист

Сообщений: 9185

Репутация: 2448 ±

Замечаний: 0% ±

Excel 2010

скачал Ваш файл, убрал Contents, нажал на кнопку,
смотрите результат

АпДэйт
ничего не менял
стер данные вручную,
нажал на кнопку - все работает нормально.

К сообщению приложен файл: 19.xlsm (355.4 Kb)

ЮMoney 41001841029809

Сообщение отредактировал Nic70y - Понедельник, 11.09.2023, 16:32

Ответить

Vertep7

Дата: Понедельник, 11.09.2023, 16:58 | Сообщение № 7

Группа: Пользователи

Ранг: Участник

Сообщений: 57

Репутация: 0 ±

Замечаний: 20% ±

Excel 2007

Цитата Nic70y, 11.09.2023 в 16:24, в сообщении № 6 (

)

нажал на кнопку - все работает нормально.

У вас почему-то все нормально, у меня не работает. Открываю, нажимаю кнопку обновить и результат можете посмотреть на ГИФке:
Запись процесса

Сообщение отредактировал Vertep7 - Понедельник, 11.09.2023, 17:05

Ответить

Pelena

Дата: Понедельник, 11.09.2023, 17:25 | Сообщение № 8

Группа: Админы

Ранг: Местный житель

Сообщений: 19569

Репутация: 4646 ±

Замечаний: ±

Excel 365 & Mac Excel

Попробуйте вариант с принудительным изменением десятичного разделителя

К сообщению приложен файл: 7308655.xlsm (149.9 Kb)

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

Vertep7

Дата: Понедельник, 11.09.2023, 17:56 | Сообщение № 9

Группа: Пользователи

Ранг: Участник

Сообщений: 57

Репутация: 0 ±

Замечаний: 20% ±

Excel 2007

Цитата Pelena, 11.09.2023 в 17:25, в сообщении № 8 (

)

Попробуйте вариант с принудительным изменением десятичного разделителя

Хороший вариант, работает, но видимо с оговорками. А если даты будут, а они будут, то точки тоже будут принудительно заменяться. Хотелось что бы к датам не применялось. Можно этот момент как-то исключить.