Prezados,

Estou montando uma macro para extrair dados da web. Nesse sentido, para extrair tais dados, é necessário:
1- Entrar no site "x" (etapa ok)
2- Selecionar dados em 5 combobox (parcial)
A macro está selecionado o dado na combobox mas há um problema: em uma delas há um evento onchange que está resolvido, no entanto, há algum evento ou função adicional que, ainda, não identifiquei.
Eu seleciono o dado da combobox nº 2 mas não atualiza a lista da combobox nº 3.

Alguma sugestão?

Sub x()
Dim ie As InternetExplorer
Dim C
redo:

Set ie = New InternetExplorer
ie.Visible = True
ie.Navigate " http://www.aneel.gov.br/aplicacoes/indicadores_de_qualidade/pesquisa.cfm?regiao=SU"

Do Until ie.ReadyState = READYSTATE_COMPLETE
Loop

ie.Document.all("tipo").Value = "d" 'Dados

ie.Document.all("tipoE").Value = "c" 'Concessionárias
ie.Document.all("tipoE").FireEvent ("onchange")

ie.Document.all("distribuidora").Value = "396" 'seleciona a distribuidora
ie.Document.all("periodo").Value = "2015"
'ie.Document.All.Item("distribuidora").Item(1).Selected = True

ie.Document.getElementById("submit_obter_dados").Click

Set ie = Nothing

Att.,