Vídeo recomendado
https://youtu.be/diWPPPhW-9E

MACRO DOLAR (Resolvido)

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
pasedo
Manda bem
Manda bem
Mensagens: 184
Registrado em: Ter Abr 20, 2010 8:32 pm

MACRO DOLAR (Resolvido)

Mensagem por pasedo »

Boa tarde, pessoal preciso de ajuda nesta macro, eu usava o windows 10 e atualizei para o windows 11 e agora a macro não puxa os dados do dolar do dia nas textbox e sim no navegador edge preciso que ele continue nas textbox se puderem me ajudar eu agradeço. Segue anexo a planilha.
Anexos
DOLAR DIARIO.rar
arquivo anexado
(208.56 KiB) Baixado 148 vezes
Editado pela última vez por pasedo em Seg Nov 01, 2021 9:04 am, em um total de 1 vez.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
webmaster
Administrador
Mensagens: 3114
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: MACRO DOLAR

Mensagem por webmaster »

pasedo,

Acho melhor compartilhar o erro. A chance de poucos aqui terem Windows 11 pra testar é grande.


pasedo
Manda bem
Manda bem
Mensagens: 184
Registrado em: Ter Abr 20, 2010 8:32 pm

Re: MACRO DOLAR

Mensagem por pasedo »

Boa tarde, o erro é este da imagem ai em anexo, em vez de aparecer o valor de compra e venda nos texbox agora abre o navegador Microsoft Edge e não joga os valores nas textboxs do Userform. Grato.
Anexos
Arquivo
Arquivo
Sem título.png (179.82 KiB) Exibido 2464 vezes


Raygsson
Manda bem
Manda bem
Mensagens: 118
Registrado em: Sex Jan 31, 2020 8:06 pm

Re: MACRO DOLAR

Mensagem por Raygsson »

Numa pesquisada rápida vi que o Internet Explorer não vem instalado no Windows 11.
Como o seu script usa o IE não é possivel interagir com os elementos do site quando abre no Edge.
Visto que era algo simples, mudei a captura pra HTTP. Script abaixo e macro anexa.

Código: Selecionar todos

Sub CapturaHTTP()

Dim req As Object
Dim html As MSHTML.HTMLDocument
Dim compra, venda As String

Set req = CreateObject("WinHttp.WinHttprequest.5.1")
Set html = New MSHTML.HTMLDocument

req.Open "GET", "https://ptax.bcb.gov.br/ptax_internet/consultarUltimaCotacaoDolar.do"
req.Send
        
html.body.innerHTML = req.responseText

compra = html.querySelectorAll(".fundoPadraoBClaro2 td").Item(1).innerText
venda = html.querySelectorAll(".fundoPadraoBClaro2 td").Item(2).innerText

UserForm2.PTAX_COMPRA.Text = FormatCurrency(compra, 4)
UserForm2.PTAX_VENDA.Text = FormatCurrency(venda, 4)

Set req = Nothing
Set html = Nothing

End Sub
Anexos
DOLAR DIARIO.rar
(211.1 KiB) Baixado 145 vezes


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


pasedo
Manda bem
Manda bem
Mensagens: 184
Registrado em: Ter Abr 20, 2010 8:32 pm

Re: MACRO DOLAR

Mensagem por pasedo »

Bom dia Rayggson, muito obrigado deu certinho.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder