Boa tarde gente,

comecei a criar um codigo VBA para entrar no website da GOL e pesquisar uma passagem de Belo Horizonte para Salvador, como não entendo muito de VBA, consegui fazer so com que se pesquise a data que eu quero, porém não consegui buscar os dados dos voos e jogar no excel.

Será que alguem poderia me ajudar? Preciso incrementar o código VBA, fazendo que ele busque os dados da página de cada voo e jogo para a planilha do excel.

Segue o codigo:

"Sub pesquisar()

Set objIE = CreateObject("InternetExplorer.Application")

With objIE
.Visible = True
.navigate "voegol.com.br"

Do While .Busy Or _
.readyState <> 4
DoEvents
Loop

Set de = .document.getElementsByName("ctl00$PlaceHolderMain$origem")
de.Item(0).Value = "BHZ"
Set para = .document.getElementsByName("ctl00$PlaceHolderMain$para")
para.Item(0).Value = "SSA"

.document.getElementById("ida_volta").Click
.document.getElementById("ida").Value = "12/11/2015"
.document.getElementById("volta").Value = "15/11/2015"

Do While .Busy Or _
.readyState <> 4
DoEvents
Loop

.document.getElementById("bt-disparo").Click

End With

End Sub"

em anexo está o arquivo

se puderem me ajudar ficarei muito grato!

Muito Obrigado,

Renato