Чтобы извлечь информацию с веб-сайта в файл Excel с помощью VBA (Visual Basic для приложений), вы можете использовать различные методы в зависимости от структуры веб-сайта и данных, которые вы хотите получить. Вот несколько примеров:

1. Использование Internet Explorer:

Sub ExtractDataFromWebsite()
    Dim IE As Object
    Dim html As Object
    Dim websiteURL As String

    ' Set the website URL
    websiteURL = "https://www.example.com"

    ' Create a new Internet Explorer instance
    Set IE = CreateObject("InternetExplorer.Application")

    ' Make IE visible (for testing purposes)
    IE.Visible = True

    ' Navigate to the website
    IE.navigate websiteURL

    ' Wait for the page to load completely
    Do While IE.Busy Or IE.readyState <> 4
        DoEvents
    Loop

    ' Get the HTML document
    Set html = IE.document

    ' Extract data from the website
    ' ... code to extract data and save it to Excel ...

    ' Clean up
    IE.Quit
    Set IE = Nothing
End Sub

2. Использование запроса XMLHTTP:

Sub ExtractDataFromWebsite()
    Dim xmlHttp As Object
    Dim html As Object
    Dim websiteURL As String

    ' Set the website URL
    websiteURL = "https://www.example.com"

    ' Create a new XMLHTTP request
    Set xmlHttp = CreateObject("MSXML2.XMLHTTP")

    ' Send the request to the website
    xmlHttp.Open "GET", websiteURL, False
    xmlHttp.send

    ' Get the HTML document
    Set html = CreateObject("htmlfile")
    html.body.innerHTML = xmlHttp.responseText

    ' Extract data from the website
    ' ... code to extract data and save it to Excel ...

    ' Clean up
    Set xmlHttp = Nothing
    Set html = Nothing
End Sub

3. Использование библиотеки анализатора HTML, например «HTML Agility Pack» (требуется установка):

Sub ExtractDataFromWebsite()
    Dim html As New HTMLDocument
    Dim websiteURL As String
    Dim httpRequest As Object

    ' Set the website URL
    websiteURL = "https://www.example.com"

    ' Create a new XMLHTTP request
    Set httpRequest = CreateObject("MSXML2.XMLHTTP")

    ' Send the request to the website
    httpRequest.Open "GET", websiteURL, False
    httpRequest.send

    ' Load the HTML document
    html.body.innerHTML = httpRequest.responseText

    ' Extract data from the website
    ' ... code to extract data and save it to Excel ...

    ' Clean up
    Set html = Nothing
    Set httpRequest = Nothing
End Sub

В этих примерах представлены различные подходы к извлечению данных с веб-сайтов с помощью VBA. Вы можете настроить код для навигации по структуре веб-сайта, идентификации конкретных элементов и извлечения соответствующей информации в файл Excel.