Clicando no IE

2024 - VBA & Macros

Post Recente por groriz 8 anos atrás

3 Posts

2 Usuários

0 Reactions

989 Visualizações

RSS

groriz

(@groriz)

Posts: 9

Active 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: 170

Estimable 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

Se a resposta lhe foi útil, clique no joinha!

Postado : 26/01/2017 7:55 am