Мне нужно скопировать URL-адрес запроса из Internet Explorer в Excel

Question

Есть ли способ скопировать URL-адрес запроса в Excel с помощью VBA.Код, который я использую в данный момент, копирует URL-адрес местоположения в Excel.Но мне действительно нужен запрос Url.Этот URL вы можете найти с помощью инструментов разработчика в Internet Explorer и посмотреть на Сеть.

Мой код прямо сейчас:

Sub GetUrl()
    Const READYSTATE_COMPLETE As Long = 4
    Dim IE As Object

    Set IE = CreateObject("InternetExplorer.Application")

    IE.Navigate Cells(1, 1).Value

    '// Wait for page to finish loading
    While IE.Busy Or IE.ReadyState <> READYSTATE_COMPLETE
    DoEvents
    Wend

    Cells(1, 10).Value = IE.LocationURL
End Sub

Answer 1

Чем отличается Cells (1,1). Значение и URL-адрес запроса, если они одинаковые, нет необходимости получать URL-адрес запроса из браузера IE, просто скопируйте значение и вставьте его в другую ячейку.

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