Fóruns
Microsoft Excel - 2...
VBA & Macros
Formatar texto extr...
 
Notifications
Clear all

Formatar texto extraído de site

 
VBA & Macros
Post Recente por Raygsson 3 anos atrás
3 Posts
3 Usuários
0 Likes
880 Visualizações
RSS
carlosrgs
 carlosrgs
(@carlosrgs)
Posts: 631
Prominent Member
Topic starter
 

Boa tarde galera, me deem um help ai, com o código abaixo importo a taxa do site do banco central, mas ai inserir na célula destino está ignorando a virgula.

Cells(10, 4) = ie.document.getElementsByTagName("td")(0).innertext

Tentei inserir  com funções, exemplo:

Cells(10, 4) = Left(ie.document.getElementsByTagName("td")(0).innertext, 1) & "," & Mid(ie.document.getElementsByTagName("td")(0).innertext, 2, 10)

Mas ai trouxe duas virgulas

Sub taxa()

Set ie = CreateObject("internetexplorer.application")

ie.navigate "https://olinda.bcb.gov.br/olinda/servico/PTAX/versao/v1/odata/CotacaoDolarDia(dataCotacao=@dataCotacao)?@dataCotacao='12-31-2018'&$top=1&$format=text/html&$select=cotacaoVenda"
ie.Visible = False

Do While ie.busy And ie.readyState <> "READYSTATE_COMPLETE"
DoEvents
Loop

Do While ie.busy And ie.readyState <> "READYSTATE_COMPLETE"
DoEvents
Loop

Cells(3, 4) = ie.document.getElementsByTagName("td")(2).innertext
ie.Quit

End Sub

_______________________________________________________________________________________________
Carlos Santos
* Marque o tópico como Resolvido se foi solucionado seu problema.

 
Postado : 21/10/2021 2:55 pm
DJunqueira
 DJunqueira
(@dmorais)
Posts: 0
Active Member
 

Veja se a planilha anexa, puxando os dados com Power Query, não resolve o seu caso.

 
Postado : 31/10/2021 11:42 pm
Raygsson
 Raygsson
(@raygsson)
Posts: 68
Trusted Member
 

@carlosrgs 

A única coisa errada, além de um loop desnecessário, é a formatação da célula que esta inserindo o texto.

Deixa a Cells(3, 4) com formatação de texto que dá certo, não vai modificar o que vem do site.

 

Sub taxa()

Set ie = CreateObject("internetexplorer.application")

ie.navigate "https://olinda.bcb.gov.br/olinda/servico/PTAX/versao/v1/odata/CotacaoDolarDia(dataCotacao=@dataCotacao)?@dataCotacao='12-31-2018'&$top=1&$format=text/html&$select=cotacaoVenda"
ie.Visible = False

Do While ie.readyState <> 4
DoEvents
Loop

Cells(3, 4) = ie.document.getElementsByTagName("td")(0).innertext
ie.Quit

End Sub
 
Postado : 01/11/2021 11:24 am
Forum Jump:
  Tópico Anterior
Próximo Tópico