Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
MACRO DOLAR (Resolvido)
MACRO DOLAR (Resolvido)
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.
Re: MACRO DOLAR
pasedo,
Acho melhor compartilhar o erro. A chance de poucos aqui terem Windows 11 pra testar é grande.
Acho melhor compartilhar o erro. A chance de poucos aqui terem Windows 11 pra testar é grande.
Re: MACRO DOLAR
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
- Sem título.png (179.82 KiB) Exibido 2464 vezes
Re: MACRO DOLAR
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.
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