Paulo Ricardo Gonçalves

Olá, eu preciso copiar o endereço URL de um botão de uma página. Eu uso o VBA para criar um objeto, abrir uma página do Internet Explorer, navegar até um certo site, e nesse site eu preciso copiar o endereço url de um botão que está no meio da página. No código fonte da página o botão "Ver" está na Tag "a". Eu consigo clicar o botão (ver1.Click) e acessar a url em uma nova página (abre uma nova página automaticamente), como eu poderia copiar a url, ao invés de abri-la? Sub Name() 'Declara objIE1 como um objeto Dim objIE1 As Object 'Cria o Objeto1 a partir do Internet Explorer Set objIE1 = CreateObject("InternetExplorer.Application") 'Executa com o Objeto1 as tarefas abaixo With objIE1 .Visible = True .navigate "sitequalquer" While .Busy Or .ReadyState <> 4: DoEvents: Wend .Document.getElementById("drpMunicipioBusca").Focus .Document.getElementById("drpMunicipioBusca").Value = "83739" .Document.getElementById("btnBuscar").Click While .Busy Or .ReadyState <> 4: DoEvents: Wend Dim ver1 As Object For Each ver1 In .Document.GetElementsByTagName("A") If ver1.innertext = "Ver" Then ver1.Click Exit For End If Next End With End Sub