Извлечь ссылку из URL в VBA

Question

У меня есть список Javascript URL в Excel. которые преобразуются в другую ссылку (ссылка "Whatsapp Send me")

, как только я вхожу в www.justdial.com со своим номером мобильного телефона

, затем я перехожу по следующей ссылке в другую новую вкладку браузера

https://www.justdial.com/webmain/cwaxp.php?dd=0657PX657.X657.110223165932.N1N6DC&wp=33EA66WE

эта ссылка автоматически преобразуется в другую ссылку, например

https://web.whatsapp.com/send?phone=919431348991

, что другая ссылка показывается только один раз в течение полсекунды, затем переходит на веб-страницу WhatsApp

Я не знаю, как извлечь эту автоматически преобразованную ссылку в Excel, у меня есть список основных ссылок (Первая ссылка) Я хочу извлечь это конвертированная ссылка для всех. чтобы получить все мобильные номера. любой может подсказать как это сделать с VBA

Answer 1

Спасибо @QHarr Sir

вот мой код VBA, он работает идеально, как я хочу. но есть и другая вещь: этот код работает с inte rnet explore. Я хочу работать с Google chrome .. Пожалуйста, сэр. Можете ли вы изменить этот код для работы с Google chrome

Sub GetWANO()
Dim surl As String
Dim myIE As Object

For N = 1 To 25
    surl = Range("C" & ActiveCell.Row)
    Set myIE = CreateObject("InternetExplorer.Application")
        myIE.Navigate surl
        Do While myIE.busy
        Loop
        ActiveCell = myIE.Document.url
        myIE.Quit
    Set myIE = Nothing
    ActiveCell.Offset(1, 0).Select
Next

End Sub