Вставить URL в новый веб-запрос, используя URL ячейки

#excel #vba

#excel #vba

Вопрос:

У меня есть ячейка с URL. Я хочу создать макрос, который записывает данные выбора с веб-сайта, используя URL-адрес в ячейке, например, B2, для перехода на веб-сайт. Я искал в Интернете и нигде не могу найти ответ. Кто-нибудь может помочь?

Комментарии:

1. Вы хотите записать свои шаги на веб-сайте? Если это так, Excel VBA — это не то решение, которое вам следует искать :/

2. Нет, просто хочу очистить несколько веб-сайтов для получения данных. все URL-адреса веб-сайтов, содержащиеся в ячейках. Мой план состоит в том, чтобы очистить сайт, перейти к следующей ячейке, содержащей URL, очистить этот сайт и т.д.

Ответ №1:

Следующий код может помочь вам:

 Option Explicit

Sub getWebData()

    Dim ini_wb As Workbook: Set ini_wb = ThisWorkbook
    Dim aux_wb As Workbook
    Dim url As String

    ' Change the sheet name and cell address according to your needs
    url = ini_wb.Worksheets("Sheet1").Range("B3").Value

    Application.ScreenUpdating = False
    Set aux_wb = Workbooks.Open(url)
    Application.ScreenUpdating = True

End Sub
  

Примечание: у меня естьhttps://www.google.com в ячейке B3 из Sheet1

HTH 😉