Импорт информации с сайта в excel

[Sanguifer]

Друзья, доброго времени суток! Срочно нужна помощь! Столкнулся с проблемой, на мой взгляд она является очень большой! Просто дело в том, что навыки базовые excel привиты, а уж когда дело идет о более сложных операциях, то становится туговато. Информации в интернете много, но смысл разобрать трудно, т.к. изложена не грамотно. Ближе к делу!

Задача №1. Создать файл excel. Назовём его к примеру Zenit (речь пойдет о сайте БК Зенит). Какая задача стоит передо мной? Настроить первый лист нашего файла так, чтобы он автоматически или полуавтоматически (при нажатии на соответствующую клавишу макроса) копировал информацию со страницы: https://zenitbet.com/line/view Да причем обязательно должны вводиться данные перед переходом на данную страницу в виде ЛОГИН и ПАРОЛЬ. И копировал не просто страницу целиком, а только искал матчи к примеру только за 28.05.2015 и импортировал данные из линий: а) тайм/матч б) точный счёт в) счёт после 1-го тайма. И заносил это в наш первый лист, разделяя всё по отдельным ячейкам, а не целиком всю информацию из линии в одну ячейку. Задача очень сложная и не знаю, выполнима ли? Подскажите, если есть гении или существует такая возможность? Огромное спасибо заранее!!!

[IgorGO]

Задача очень сложная и не знаю, выполнима ли? Подскажите, если есть гении

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

[Sanguifer]

Так я же и говорю, что нужно настроить, чтобы авторизация происходила. Без нее не попадешь на нужную страницу. К примеру такие данные:
Логин: 3250505
Пароль: 18dilabi

Или же самому изначально заходить в браузере под своими данными?
Ну а какие дальнейшие действия? Поможете?

[Sanguifer]

Так поможете? Я написал логин и пароль. Никак не могу справиться.

[doober]

Так поможете?

Попробую.

Sub Get_Info()
    Set IE = CreateObject("InternetExplorer.Application")
    Dim r1 As Object
    IE.Visible = True
    URL = "https://zenitbet.com/account/login?login=3250505&password=18dilabi"
    IE.Navigate URL
    While IE.busy Or (IE.ReadyState <> 4): DoEvents: Wend
    URL = "https://zenitbet.com/line/"
    IE.Navigate URL
    While IE.busy Or (IE.ReadyState <> 4): DoEvents: Wend
    Set iDoc = IE.Document

    With IE.Document
        .all("sid1").Focus
        .all("sid1").Click
        For i = 1 To 1000: DoEvents: Next
        .all("do").Click
        For i = 1 To 1000: DoEvents: Next
        While IE.busy Or (IE.ReadyState <> 4): DoEvents: Wend
        For i = 1 To 1000: DoEvents: Next
        Set r1 = Nothing
        Set r1 = .getelementbyid("line-view-content")

        While .getelementbyid("line-view-content") Is Nothing
            DoEvents:
            For i = 1 To 1000: DoEvents: Next
        Wend
        Do
            DoEvents:
            For i = 1 To 1000: DoEvents: Next
        Loop While Len(Trim(.getelementbyid("line-view-content").innerText)) < 30
      
        For Each tb In .getelementbyid("line-view-content").getelementsbytagname("table")
            Debug.Print tb.innerText  'В этом месте вам надо перебирать таблицу по ячейкам
        Next
    End With

End Sub

[Sanguifer]

Set r1 = .getelementbyid("line-view-content") - выделена жёлтым и появляется предупреждение:

"This command will stop the debugger"

[doober]

Сообщение от Sanguifer

"This command will stop the debugger"

А если гуглю спросить?
Ответ:Tools > Options > General > Notify Before State Loss снять галочку