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

Вход

Регистрация

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

 

= Мир MS Excel/Автоматическая выгрузка таблицы с сайта - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Автоматическая выгрузка таблицы с сайта
sergei026 Дата: Понедельник, 24.09.2018, 21:12 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 36
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Добрый день уважаемые знатоки подскажите пожалуйста, нужно настроить автоматическую выгрузку с сайта (примерно раз в 10 минут) на лист excel. Стандартными средствами excel сделать это не возможно. Скорее всего нужен макрос но я не понимаю как прописать выгрузку с сайта если в нем все данные прописаны в DIV блоках. Мне хотябы показать как прописывается одна строка, а дальше я уже сам разберусь, помогите пожалуйста.

Вот ссылка с которой нужно брать данные https://betcity.ru/ru/live?sp%5B%5D=1
 
Ответить
СообщениеДобрый день уважаемые знатоки подскажите пожалуйста, нужно настроить автоматическую выгрузку с сайта (примерно раз в 10 минут) на лист excel. Стандартными средствами excel сделать это не возможно. Скорее всего нужен макрос но я не понимаю как прописать выгрузку с сайта если в нем все данные прописаны в DIV блоках. Мне хотябы показать как прописывается одна строка, а дальше я уже сам разберусь, помогите пожалуйста.

Вот ссылка с которой нужно брать данные https://betcity.ru/ru/live?sp%5B%5D=1

Автор - sergei026
Дата добавления - 24.09.2018 в 21:12
SLAVICK Дата: Вторник, 25.09.2018, 11:15 | Сообщение № 2
Группа: Модераторы
Ранг: Старожил
Сообщений: 2290
Репутация: 766 ±
Замечаний: 0% ±

2019
не хотябы показать как прописывается одна строка, а дальше я уже сам разберусь,

Можно с IE:
[vba]
Код
Sub TestWeb()
    Dim ie As New InternetExplorer
    
    Sheets.Add
    Cells.NumberFormat = "@"
    [A1].Select
    
    With ie
        .Navigate2 "https://betcity.ru/ru/live/soccer"
        .Visible = True
    Do While ie.ReadyState <> 4
                DoEvents
    Loop
        Application.Wait (Now + TimeValue("0:00:05"))
        .ExecWB 17, 0
        .ExecWB 12, 2
        .Quit
    End With
    
    ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:=False, NoHTMLFormatting:=True
End Sub

[/vba]
К сообщению приложен файл: TestWeb.xlsm (25.9 Kb)


Иногда все проще чем кажется с первого взгляда.
 
Ответить
Сообщение
не хотябы показать как прописывается одна строка, а дальше я уже сам разберусь,

Можно с IE:
[vba]
Код
Sub TestWeb()
    Dim ie As New InternetExplorer
    
    Sheets.Add
    Cells.NumberFormat = "@"
    [A1].Select
    
    With ie
        .Navigate2 "https://betcity.ru/ru/live/soccer"
        .Visible = True
    Do While ie.ReadyState <> 4
                DoEvents
    Loop
        Application.Wait (Now + TimeValue("0:00:05"))
        .ExecWB 17, 0
        .ExecWB 12, 2
        .Quit
    End With
    
    ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:=False, NoHTMLFormatting:=True
End Sub

[/vba]

Автор - SLAVICK
Дата добавления - 25.09.2018 в 11:15
sergei026 Дата: Среда, 26.09.2018, 00:23 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 36
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Выдает все содержимое страницы в столбец, а как вывести содержимое какого нибудь матча?
 
Ответить
СообщениеВыдает все содержимое страницы в столбец, а как вывести содержимое какого нибудь матча?

Автор - sergei026
Дата добавления - 26.09.2018 в 00:23
SLAVICK Дата: Среда, 26.09.2018, 10:01 | Сообщение № 4
Группа: Модераторы
Ранг: Старожил
Сообщений: 2290
Репутация: 766 ±
Замечаний: 0% ±

2019
Выдает все содержимое страницы в столбец

да - потому что там такая структура сайта.
Есть несколько вариантов:
1-й на базе прошлого примера искать ключевые слова и по ним определять начало/конец таблицы/строки
2-й более правильный, но трудозатратный: парсинг содержимого HTML
по парсингу есть куча инфы, например тут или тут
в примере я выбрал кусок страницы, с содержимым матчей и представил в двух вариантах:
InnerHTML
outerText
К сообщению приложен файл: TestWeb-2-.xlsm (65.1 Kb)


Иногда все проще чем кажется с первого взгляда.
 
Ответить
Сообщение
Выдает все содержимое страницы в столбец

да - потому что там такая структура сайта.
Есть несколько вариантов:
1-й на базе прошлого примера искать ключевые слова и по ним определять начало/конец таблицы/строки
2-й более правильный, но трудозатратный: парсинг содержимого HTML
по парсингу есть куча инфы, например тут или тут
в примере я выбрал кусок страницы, с содержимым матчей и представил в двух вариантах:
InnerHTML
outerText

Автор - SLAVICK
Дата добавления - 26.09.2018 в 10:01
  • Страница 1 из 1
  • 1
Поиск:

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