Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Некорректный вывод данных с сайта. - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Некорректный вывод данных с сайта. (Макросы/Sub)
Некорректный вывод данных с сайта.
Vertep7 Дата: Понедельник, 11.09.2023, 15:05 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 48
Репутация: 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
 
Ответить
СообщениеЗдравствуйте. Подскажите пожалуйста, как можно исправить следующую ситуацию:
Существует страница при выводе значений с которой в эксель в первом столбце таблицы значения выводятся неверно. Файл примера прикладываю в в 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]

Автор - Vertep7
Дата добавления - 11.09.2023 в 15:05
doober Дата: Понедельник, 11.09.2023, 15:18 | Сообщение № 2
Группа: Друзья
Ранг: Ветеран
Сообщений: 945
Репутация: 323 ±
Замечаний: 0% ±

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


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

Автор - doober
Дата добавления - 11.09.2023 в 15:18
Vertep7 Дата: Понедельник, 11.09.2023, 15:23 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 48
Репутация: 0 ±
Замечаний: 20% ±

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

Это было проделано сразу же. Эффекта нет.
 
Ответить
Сообщение
Задайте формат столбца А числовой

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

Автор - Vertep7
Дата добавления - 11.09.2023 в 15:23
Nic70y Дата: Понедельник, 11.09.2023, 15:57 | Сообщение № 4
Группа: Друзья
Ранг: Экселист
Сообщений: 8670
Репутация: 2230 ±
Замечаний: 0% ±

Excel 2010
[vba]
Код
Worksheets("Sheet1").Range("A1:J10000").Clear
[/vba]


ЮMoney 41001841029809
 
Ответить
Сообщение[vba]
Код
Worksheets("Sheet1").Range("A1:J10000").Clear
[/vba]

Автор - Nic70y
Дата добавления - 11.09.2023 в 15:57
Vertep7 Дата: Понедельник, 11.09.2023, 16:18 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 48
Репутация: 0 ±
Замечаний: 20% ±

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

Нет, все тоже самое. Более того сбрасывает форматирование до общего и в ячейках появляются дни и месяца.
 
Ответить
Сообщение
Worksheets("Sheet1").Range("A1:J10000").Clear

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

Автор - Vertep7
Дата добавления - 11.09.2023 в 16:18
Nic70y Дата: Понедельник, 11.09.2023, 16:24 | Сообщение № 6
Группа: Друзья
Ранг: Экселист
Сообщений: 8670
Репутация: 2230 ±
Замечаний: 0% ±

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

АпДэйт
ничего не менял
стер данные вручную,
нажал на кнопку - все работает нормально.
К сообщению приложен файл: 19.xlsm (355.4 Kb)


ЮMoney 41001841029809

Сообщение отредактировал Nic70y - Понедельник, 11.09.2023, 16:32
 
Ответить
Сообщениескачал Ваш файл, убрал Contents, нажал на кнопку,
смотрите результат

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

Автор - Nic70y
Дата добавления - 11.09.2023 в 16:24
Vertep7 Дата: Понедельник, 11.09.2023, 16:58 | Сообщение № 7
Группа: Пользователи
Ранг: Новичок
Сообщений: 48
Репутация: 0 ±
Замечаний: 20% ±

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

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


Сообщение отредактировал Vertep7 - Понедельник, 11.09.2023, 17:05
 
Ответить
Сообщение
нажал на кнопку - все работает нормально.

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

Автор - Vertep7
Дата добавления - 11.09.2023 в 16:58
Pelena Дата: Понедельник, 11.09.2023, 17:25 | Сообщение № 8
Группа: Админы
Ранг: Местный житель
Сообщений: 19138
Репутация: 4409 ±
Замечаний: ±

Excel 365 & Mac Excel
Попробуйте вариант с принудительным изменением десятичного разделителя
К сообщению приложен файл: 7308655.xlsm (149.9 Kb)


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеПопробуйте вариант с принудительным изменением десятичного разделителя

Автор - Pelena
Дата добавления - 11.09.2023 в 17:25
Vertep7 Дата: Понедельник, 11.09.2023, 17:56 | Сообщение № 9
Группа: Пользователи
Ранг: Новичок
Сообщений: 48
Репутация: 0 ±
Замечаний: 20% ±

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

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


Сообщение отредактировал Vertep7 - Понедельник, 11.09.2023, 17:57
 
Ответить
Сообщение
Попробуйте вариант с принудительным изменением десятичного разделителя

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

Автор - Vertep7
Дата добавления - 11.09.2023 в 17:56
Pelena Дата: Понедельник, 11.09.2023, 18:02 | Сообщение № 10
Группа: Админы
Ранг: Местный житель
Сообщений: 19138
Репутация: 4409 ±
Замечаний: ±

Excel 365 & Mac Excel
речь о десятичных разделителях. Дата - это целое число.
Приведите пример с датами


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
Сообщениеречь о десятичных разделителях. Дата - это целое число.
Приведите пример с датами

Автор - Pelena
Дата добавления - 11.09.2023 в 18:02
Vertep7 Дата: Понедельник, 11.09.2023, 18:09 | Сообщение № 11
Группа: Пользователи
Ранг: Новичок
Сообщений: 48
Репутация: 0 ±
Замечаний: 20% ±

Excel 2007
речь о десятичных разделителях. Дата - это целое число.

Проверил с датами, все работает исправно. Файлик прилагаю. Способ рабочий, спасибо.)
К сообщению приложен файл: fajlik.xlsm (154.8 Kb)
 
Ответить
Сообщение
речь о десятичных разделителях. Дата - это целое число.

Проверил с датами, все работает исправно. Файлик прилагаю. Способ рабочий, спасибо.)

Автор - Vertep7
Дата добавления - 11.09.2023 в 18:09
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Некорректный вывод данных с сайта. (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!