Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Clicando no IE
 
Notifications
Clear all

Clicando no IE

 
2024 - VBA & Macros
Post Recente por groriz 8 anos atrás
3 Posts
2 Usuários
0 Reactions
972 Visualizações
RSS
 groriz
(@groriz)
Posts: 0
New Member
Topic starter
 

Amigos,

to enfrentando uma dificuldade numa macro.

até agora consegui fazer com que ela abra um site e copie toda a pagina.

minha dificuldade fica ao abrir a pagina. eu preciso fazer com que a macro clique no sinal de "+" no Vol. de forma a expandir as colunas ocultas.

até agora eu tenho

'BMFDI = " http://www2.bmf.com.br/pages/portal/bmfbovespa/boletim1/SistemaPregao1.asp?pagetype=pop&caminho=Resumo%20Estatístico%20-%20Sistema%20Pregão&Data=&Mercadoria=DI1"

'Set IE = CreateObject("InternetExplorer.Application")
'
'IE.Visible = True
'
'IE.Navigate BMFDI
'
''espera o carregamento
'Do While IE.Busy
' Application.Wait DateAdd("s", 1, Now)
'Loop

'IE.ExecWB 17, 0 'seleciona a página toda
'IE.ExecWB 12, 0 'copia a seleção

 
Postado : 25/01/2017 1:03 pm
 skulden
(@skulden)
Posts: 0
New Member
 

Groriz, bom dia, tudo bem?

Trabalhar com Html é um pouco chato, mas tá ai. Acrescente o código abaixo no final do seu código.


Set tags = IE.Document.GetElementsByTagname("img")

For Each tagx In tags
    If tagx.src = "http://www.bmf.com.br/bmfbovespa/images/comum/mais.gif" Then
        tagx.Click
    End If
Next
 
Postado : 26/01/2017 7:55 am
 groriz
(@groriz)
Posts: 0
New Member
Topic starter
 

Funcionou perfeitamente. Muito obrigado amigo!!

 
Postado : 26/01/2017 2:19 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico