Bom dia Renatbr,

Cara, utiliza assim:

Sub pesquisar()
Dim objIE           As InternetExplorer

    Set objIE = CreateObject("InternetExplorer.Application")

    objIE.AddressBar = False
    objIE.StatusBar = False
    objIE.Toolbar = False
    objIE.MenuBar = False
    objIE.Visible = True
    objIE.navigate "http://www.voegol.com.br/pt-br/paginas/default.aspx"
    
    Do While objIE.Busy Or objIE.readyState <> 4
        DoEvents
    Loop
    
    objIE.document.all.Item("ctl00_PlaceHolderMain_origem").innertext = "BHZ"
    objIE.document.all.Item("ctl00_PlaceHolderMain_para").innertext = "SSA"
    objIE.document.all.Item("ida_volta").Click
    objIE.document.all.Item("ida").Value = "12/11/2015"
    objIE.document.all.Item("volta").Value = "15/11/2015"
        
    Do While objIE.Busy Or objIE.readyState <> 4
        DoEvents
    Loop
    
    objIE.document.getElementById("bt-disparo").Click

    Set objCollection = objIE.document.getElementsByTagName("input")
...
...
..
.

Qualquer coisa da o grito.
Abraço

Obrigado por me dar atenção Bernardo,

mas ainda me restou uma duvida, como faço para retomar os valores que estou buscando?

tentei utilizar MsgBox (objcollection.Name) para buscar o nome do elemento por exemplo, mas nao funciona. Sera que voce poderia me ajudar novamente?

Valeeu

Ja tentei varias maneiras e não consegui de jeito nenhum, preciso muito disso...

Vocês acham que eh muito dificil de fazer? Estou pensando em pagar alguem para fazer isso para mim, compensaria?

Valeu galera

tente algo como msgbox objIE.document.all.Item("ida").Value

onde ida para data de ida
e volta para a data de volta

os preços dependem de qual voce quer capturar na pagina

abraços

Obrigado pela ajuda lipetom, porem quando acrescento isso ai codigo, ele nao consegue achar nada com o item ("Ida"), da erro.

consegui buscar o value com:

 Set objCollection = objIE.document.getElementsByTagName("input")
    
    x = objCollection.Item("ControlGroupSelect2View_AvailabilityInputSelect2View_RadioButtonMkt1Fare4").Value
    
    MsgBox (x)

Porem dentro do value nao contem o preco, eu teria que buscar o data-adtfare, mas nao consigo simplesmente trocar o .Value por .data-adtfare, alguem sabe como tenho que fazer?

Tente utilizar o codigo abaixo para pegar o preço

objCollection.Item("ControlGroupSelect2View_AvailabilityInputSelect2View_RadioButtonMkt1Fare4").parentelement.innertext

Funcionou!! muito obrigado!!

Mas nao entendi direito oq esse codigo faz

achei que conseguindo um, eu iria conseguir fazer o codigo para os outros, pois preciso comparar os precos e saber de qual horario aquele preco faz referencia hehehe

vou tentar dar uma estudada melhor para conseguir a que horario ele se refere e conseguir comparar todos os precos de todos os horarios

Muito Obrigado!

sinceramente eu também não sei ao certo oque é o parentelement eu achei o preço inspecionando o objeto pelo vba...
segue a planilha com meu codigo listando as datas e os preços

Lipetom, ce não tem ideia do tanto que me ajudou!! deu certinho aqui!

Muito obrigado mesmo cara! valeu por tudo!

abrass