Olá amigo, eu recomendaria trabalhar com Selenium Basic no Chrome é bem tranquilo para navegar e trazer informações.
Você faz o Download do Selenium Basic 2.0.9 depois do Chromedriver e seleciona lá nas referencias e mandar rodar a programação.
Exemplo:
Sub Anbima()
Dim driver As New Selenium.ChromeDriver
Set driver = New ChromeDriver
Dim destino As Range
Set destino = Sheets("Planilha1").Range("A1")
'driver.AddArgument ("--headless") 'depois de sua informação estiver sendo importado direitinho você vai utilizar esse para fazer em segundo plano, sem abrir o navegador.
driver.Get "
https://www.anbima.com.br/pt_br/educar/ ... sional.htm"
While Busy
Application.Wait TimeSerial(Hour(Now), Minute(Now), Second(Now) + 15)
DoEvents:
Wend
driver.FindElementById("simplequery").SendKeys "sua pergunta" ' aqui você coloca o que queira pesquisar
Dim tabela As WebElement
Set tabela = driver.FindElementByXPath("") 'aqui você tem que inspecionar o elemento e pegar o xpathfull da tabela ou muda so para trazer um valor e assim por diante.
If tabela Is Nothing Then
MsgBox "Elemento não encontrado"
Else
tabela.AsTable.ToExcel destino
End If
driver.Quit
End Sub
Dependendo o Site tem que ir tentando e ajustando.
