Некорректный вывод данных с сайта.
Vertep7
Дата: Понедельник, 11.09.2023, 15:05 |
Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 52
Репутация:
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]
Здравствуйте. Подскажите пожалуйста, как можно исправить следующую ситуацию: Существует страница при выводе значений с которой в эксель в первом столбце таблицы значения выводятся неверно. Файл примера прикладываю в в 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
Сообщение отредактировал 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
Группа: Друзья
Ранг: Ветеран
Сообщений: 959
Репутация:
325
±
Замечаний:
0% ±
Excel 2010
Здравствуйте. Задайте формат столбца А числовой 11.77 воспринимает как дата
Здравствуйте. Задайте формат столбца А числовой 11.77 воспринимает как дата doober
Ответить
Сообщение Здравствуйте. Задайте формат столбца А числовой 11.77 воспринимает как дата Автор - doober Дата добавления - 11.09.2023 в 15:18
Vertep7
Дата: Понедельник, 11.09.2023, 15:23 |
Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 52
Репутация:
0
±
Замечаний:
20% ±
Excel 2007
Задайте формат столбца А числовой
Это было проделано сразу же. Эффекта нет.
Задайте формат столбца А числовой
Это было проделано сразу же. Эффекта нет.Vertep7
Ответить
Сообщение Задайте формат столбца А числовой
Это было проделано сразу же. Эффекта нет.Автор - Vertep7 Дата добавления - 11.09.2023 в 15:23
Nic70y
Дата: Понедельник, 11.09.2023, 15:57 |
Сообщение № 4
Группа: Друзья
Ранг: Экселист
Сообщений: 8937
Репутация:
2337
±
Замечаний:
0% ±
Excel 2010
[vba]Код
Worksheets("Sheet1").Range("A1:J10000").Clear
[/vba]
[vba]Код
Worksheets("Sheet1").Range("A1:J10000").Clear
[/vba] Nic70y
ЮMoney 41001841029809
Ответить
Сообщение [vba]Код
Worksheets("Sheet1").Range("A1:J10000").Clear
[/vba] Автор - Nic70y Дата добавления - 11.09.2023 в 15:57
Vertep7
Дата: Понедельник, 11.09.2023, 16:18 |
Сообщение № 5
Группа: Пользователи
Ранг: Участник
Сообщений: 52
Репутация:
0
±
Замечаний:
20% ±
Excel 2007
Worksheets("Sheet1").Range("A1:J10000").Clear
Нет, все тоже самое. Более того сбрасывает форматирование до общего и в ячейках появляются дни и месяца.
Worksheets("Sheet1").Range("A1:J10000").Clear
Нет, все тоже самое. Более того сбрасывает форматирование до общего и в ячейках появляются дни и месяца.Vertep7
Ответить
Сообщение Worksheets("Sheet1").Range("A1:J10000").Clear
Нет, все тоже самое. Более того сбрасывает форматирование до общего и в ячейках появляются дни и месяца.Автор - Vertep7 Дата добавления - 11.09.2023 в 16:18
Nic70y
Дата: Понедельник, 11.09.2023, 16:24 |
Сообщение № 6
Группа: Друзья
Ранг: Экселист
Сообщений: 8937
Репутация:
2337
±
Замечаний:
0% ±
Excel 2010
скачал Ваш файл, убрал Contents, нажал на кнопку, смотрите результат АпДэйт ничего не менял стер данные вручную, нажал на кнопку - все работает нормально.
скачал Ваш файл, убрал Contents, нажал на кнопку, смотрите результат АпДэйт ничего не менял стер данные вручную, нажал на кнопку - все работает нормально. Nic70y
К сообщению приложен файл:
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
Группа: Пользователи
Ранг: Участник
Сообщений: 52
Репутация:
0
±
Замечаний:
20% ±
Excel 2007
нажал на кнопку - все работает нормально.
У вас почему-то все нормально, у меня не работает. Открываю, нажимаю кнопку обновить и результат можете посмотреть на ГИФке:Запись процесса
нажал на кнопку - все работает нормально.
У вас почему-то все нормально, у меня не работает. Открываю, нажимаю кнопку обновить и результат можете посмотреть на ГИФке:Запись процесса Vertep7
Сообщение отредактировал Vertep7 - Понедельник, 11.09.2023, 17:05
Ответить
Сообщение нажал на кнопку - все работает нормально.
У вас почему-то все нормально, у меня не работает. Открываю, нажимаю кнопку обновить и результат можете посмотреть на ГИФке:Запись процесса Автор - Vertep7 Дата добавления - 11.09.2023 в 16:58
Pelena
Дата: Понедельник, 11.09.2023, 17:25 |
Сообщение № 8
Группа: Админы
Ранг: Местный житель
Сообщений: 19331
Репутация:
4482
±
Замечаний:
±
Excel 365 & Mac Excel
Попробуйте вариант с принудительным изменением десятичного разделителя
Попробуйте вариант с принудительным изменением десятичного разделителя Pelena
"Черт возьми, Холмс! Но как??!!" Ю-money 41001765434816
Ответить
Сообщение Попробуйте вариант с принудительным изменением десятичного разделителя Автор - Pelena Дата добавления - 11.09.2023 в 17:25
Vertep7
Дата: Понедельник, 11.09.2023, 17:56 |
Сообщение № 9
Группа: Пользователи
Ранг: Участник
Сообщений: 52
Репутация:
0
±
Замечаний:
20% ±
Excel 2007
Попробуйте вариант с принудительным изменением десятичного разделителя
Хороший вариант, работает, но видимо с оговорками. А если даты будут, а они будут, то точки тоже будут принудительно заменяться. Хотелось что бы к датам не применялось. Можно этот момент как-то исключить.
Попробуйте вариант с принудительным изменением десятичного разделителя
Хороший вариант, работает, но видимо с оговорками. А если даты будут, а они будут, то точки тоже будут принудительно заменяться. Хотелось что бы к датам не применялось. Можно этот момент как-то исключить.Vertep7
Сообщение отредактировал Vertep7 - Понедельник, 11.09.2023, 17:57
Ответить
Сообщение Попробуйте вариант с принудительным изменением десятичного разделителя
Хороший вариант, работает, но видимо с оговорками. А если даты будут, а они будут, то точки тоже будут принудительно заменяться. Хотелось что бы к датам не применялось. Можно этот момент как-то исключить.Автор - Vertep7 Дата добавления - 11.09.2023 в 17:56
Pelena
Дата: Понедельник, 11.09.2023, 18:02 |
Сообщение № 10
Группа: Админы
Ранг: Местный житель
Сообщений: 19331
Репутация:
4482
±
Замечаний:
±
Excel 365 & Mac Excel
речь о десятичных разделителях. Дата - это целое число. Приведите пример с датами
речь о десятичных разделителях. Дата - это целое число. Приведите пример с датами Pelena
"Черт возьми, Холмс! Но как??!!" Ю-money 41001765434816
Ответить
Сообщение речь о десятичных разделителях. Дата - это целое число. Приведите пример с датами Автор - Pelena Дата добавления - 11.09.2023 в 18:02
Vertep7
Дата: Понедельник, 11.09.2023, 18:09 |
Сообщение № 11
Группа: Пользователи
Ранг: Участник
Сообщений: 52
Репутация:
0
±
Замечаний:
20% ±
Excel 2007
речь о десятичных разделителях. Дата - это целое число.
Проверил с датами, все работает исправно. Файлик прилагаю. Способ рабочий, спасибо.)
речь о десятичных разделителях. Дата - это целое число.
Проверил с датами, все работает исправно. Файлик прилагаю. Способ рабочий, спасибо.)Vertep7
Ответить
Сообщение речь о десятичных разделителях. Дата - это целое число.
Проверил с датами, все работает исправно. Файлик прилагаю. Способ рабочий, спасибо.)Автор - Vertep7 Дата добавления - 11.09.2023 в 18:09