Как загрузить с сайта в excel данные? - Мир MS Excel

Регистрация

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

= Мир MS Excel/Как загрузить с сайта в excel данные? - Мир MS Excel

Старая форма входа

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

Как загрузить с сайта в excel данные? (Макросы/Sub)

Как загрузить с сайта в excel данные?

Дата: Четверг, 06.07.2023, 23:46 | Сообщение № 1

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

Ранг: Прохожий

Сообщений: 6

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

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

2021

Здравствуйте, подскажите, пожалуйста.

На сайте есть кнопка, если ее нажать формируется .xlsx файл с данными.

Мне нужно что бы они загружались в мой excel файл, без захода на сайт. макросом или запросом

пробовал через - получение внешних данных- из интернета, не подходит, страница размечена <div>aми

создать запрос в Power query - может, как-то, примеров никаких не нашел.
Или макрос писать?

Комрады, подскажите куда копать?

Ответить

Дата: Пятница, 07.07.2023, 10:03 | Сообщение № 2

Группа: Проверенные

Ранг: Обитатель

Сообщений: 372

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

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

MSO LTSC 2021 EN

transkriptsiya, Здравствуйте. Поищите в нєте. Например вот єто: Парсинг

Ученик.
Одесса - Украина

Ответить

Дата: Пятница, 07.07.2023, 10:27 | Сообщение № 3

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

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

Сообщений: 16475

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

Замечаний: ±

Excel 2016

Есть специализированные решения, например от Игоря Вахненко (EducatedFool): Парсер сайтов и файлов (парсинг данных с сайта в Excel)

ЮMoney:41001419691823 | WMR:126292472390

Ответить

Дата: Пятница, 07.07.2023, 20:43 | Сообщение № 4

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

Ранг: Прохожий

Сообщений: 6

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

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

2021

Цитата MikeVol, 07.07.2023 в 10:03, в сообщении № 2 (

)

Здравствуйте. Поищите в нєте. Например вот єто: Парсинг

Спасибо за ответ. Этот вариант я смотрел, в моем случае, как я понял, какой-то скрипт генерирует .xlsx- (js похоже). Ну все же ниточка к решению, буду ковырять.

Ответить

Дата: Пятница, 07.07.2023, 21:13 | Сообщение № 5

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

Ранг: Прохожий

Сообщений: 6

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

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

2021

Цитата Serge_007, 07.07.2023 в 10:27, в сообщении № 3 (

)

Есть специализированные решения, например от Игоря Вахненко (EducatedFool): Парсер сайтов и файлов (парсинг данных с сайта в Excel)

Спасибо за ответ, здесь стороннее решение, установить не дадут на работе. Посмотрю скрипт, может сам код натолкнет на мысли.

Ответить

прохожий2019

Дата: Суббота, 08.07.2023, 16:28 | Сообщение № 6

Группа: Проверенные

Ранг: Старожил

Сообщений: 1290

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

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

365 Beta Channel

Цитата transkriptsiya, 06.07.2023 в 23:46, в сообщении № 1 (

)

создать запрос в Power query - может, как-то, примеров никаких не нашел

значит плохо искали - в целом типовая для pq задача. без ссылки на конкретный сайт и без ожидаемого вами результата трудно советовать что-то конкретное

Ответить

Дата: Воскресенье, 09.07.2023, 00:02 | Сообщение № 7

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

Ранг: Прохожий

Сообщений: 6

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

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

2021

прохожий2019, прохожий2019,

Цитата прохожий2019, 08.07.2023 в 16:28, в сообщении № 6 (

)

значит плохо искали - в целом типовая для pq задача. без ссылки на конкретный сайт и без ожидаемого вами результата трудно советовать что-то конкретное

Вот https://bank.gov.ua/ua/markets/uonia-chart - в низу с права xlsx
или вот если первая ссылка не откроется, https://www.cbr.ru/statistics/nps/psrf/ - загрузите первый xlsx (1. Основные показатели развития национальной платежной системы) себе на лист

Ответить

прохожий2019

Дата: Воскресенье, 09.07.2023, 01:49 | Сообщение № 8

Группа: Проверенные

Ранг: Старожил

Сообщений: 1290

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

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

365 Beta Channel

Цитата transkriptsiya, 09.07.2023 в 00:02, в сообщении № 7 (

)

загрузите первый xlsx

я загрузил все 16:
[vba]

Код

let
    from = Text.FromBinary(Binary.Buffer(Web.Contents("https://www.cbr.ru/statistics/nps/psrf/"))),
    splt = Text.Split(from,"<a class=""referenceable"""),
    slct = List.Select(splt,(x)=>Text.Contains(x,".xlsx")),
    f=(x)=>Excel.Workbook(Binary.Buffer(Web.Contents("https://www.cbr.ru"&Text.BetweenDelimiters(x,"""","""")))){0}[Data],
    tr = List.Transform(slct,f),
    to = Table.Combine(tr)
in
    to

[/vba]
анализируйте код, адаптируйте под ваши задачи

UPD плохо ковырнул, по той ссылке 79 файлов, тогда так:
[vba]

Код

let
    from = Text.FromBinary(Binary.Buffer(Web.Contents("https://www.cbr.ru/statistics/nps/psrf/"))),
    splt = Text.Split(from,""""),
    slct = List.Select(splt,(x)=>Text.Contains(x,".xlsx")),
    f=(x)=>Excel.Workbook(Binary.Buffer(Web.Contents("https://www.cbr.ru"&x))){0}[Data],
    tr = List.Transform(slct,f),
    to = Table.Combine(tr)
in
    to

[/vba]

К сообщению приложен файл: parse_cbr.xlsx (190.9 Kb)

Сообщение отредактировал прохожий2019 - Воскресенье, 09.07.2023, 01:55

Ответить

Дата: Воскресенье, 09.07.2023, 12:56 | Сообщение № 9

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

Ранг: Прохожий

Сообщений: 6

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

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

2021

Цитата прохожий2019, 09.07.2023 в 01:49, в сообщении № 8 (

)

анализируйте код, адаптируйте под ваши задачи

Похоже то что нужно. Спасибо за ответ. Очень помогли.

Ответить

Как загрузить с сайта в excel данные? (Макросы/Sub)

Страница 1 из 1
1

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