Импорт данных из Web

[DimAAAAA]

Здравствуйте!

Уважаемые гуру, хотел бы обратиться за помощью. Необходимо понять, каким образом можно импортировать данные в excel из web, следуя прилагаемому примеру:

Сайт для примера: https://mail.ru (интересует непосредственный список из 7-ми главных новостей, находящихся на главной странице).

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

Направьте в нужное русло, пожалуйста.

[doober]

Направляю.
Например так получаем список новостей,урлы сами попробуйте достать

Sub LiveNews()
s = GetHTTPResponse("https://mail.ru/")  
ReadNews s
End Sub
Function ReadNews(ByVal s)
    id = "": sid = ""
    bRes = False
    Set RegExp = CreateObject("VBScript.RegExp")
    RegExp.Global = True
    RegExp.IgnoreCase = True
    RegExp.Pattern = "<span class=""news__list__item__link__text"">([^<]*)<"
    bRes = RegExp.test(s)
    If bRes Then
        Set oMatches = RegExp.Execute(s)
        For n = 0 To oMatches.Count - 1
        Debug.Print "Новость № " & n + 1 & " " & oMatches(n).subMatches(0)
        Next       
    End If  
End Function

[DimAAAAA]

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

Направляю.
Например так получаем список новостей,урлы сами попробуйте достать

Sub LiveNews()
s = GetHTTPResponse("https://mail.ru/")  
ReadNews s
End Sub
Function ReadNews(ByVal s)
    id = "": sid = ""
    bRes = False
    Set RegExp = CreateObject("VBScript.RegExp")
    RegExp.Global = True
    RegExp.IgnoreCase = True
    RegExp.Pattern = "<span class=""news__list__item__link__text"">([^<]*)<"
    bRes = RegExp.test(s)
    If bRes Then
        Set oMatches = RegExp.Execute(s)
        For n = 0 To oMatches.Count - 1
        Debug.Print "Новость № " & n + 1 & " " & oMatches(n).subMatches(0)
        Next       
    End If  
End Function

Спасибо!!!

По логике вещей, спаны, в которых ссылки есть, отыщутся таким же образом, спасибо Вам ещё раз! Вот только есть одна проблема... Он мне ошибку выдает "Compile Error, Sub or function not defined"

[doober]

Акелла промахнулся.

Function GetHTTPResponse(ByVal sURL As String)
    Dim RRz  As String
    On Error Resume Next
    Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")
    With oXMLHTTP
        .Open "GET", sURL, False
       .send
        GetHTTPResponse = .responseText
    End With
     Set oXMLHTTP = Nothing
     
End Function