Ir para conteúdo
Fórum Script Brasil
  • 0

Formatar data para "DD/MM/AA" os dados puxados de uma HTML


SILMAR

Pergunta

Ilustres mestres,

Criei uma rotina para baixar os dados de uma determinada página na WEB. Alguns dados são datas, e percebi que quando "baixa" essas informações alguns estão sendo baixados "invertidos".

Por exemplo:

Na Web está: 12/03/11

Puxa na plan : 03/12/11

Como faço para adaptar a rotina, de modo que ela verefique e puxe os dados apenas no formato "DD/MM/AA", no formato brasileiro.

Segue a rotina:

Sub DataBalancoDFA()

' Baixa a data prevista para publicação do Balanço do 4º Trimestre (anual consolidado)

Dim ie As InternetExplorer

Dim t As Integer

Dim r As Integer, c As Integer

Dim elemCollection As Object

Dim objRef

Set ie = New InternetExplorer

ie.Navigate "http://www.bmfbovespa.com.br/cronograma-eventos/CronogramaEventos.aspx?Idioma=pt-br"

ie.Visible = True

Do While ie.Busy

Loop

Do Until ie.Document.ReadyState = "complete"

Loop

Set objRef = ie.Document.all("ctl00_contentPlaceHolderConteudo_rptTabelaItems_ctl09_lnkBtnDescricao")

objRef.Click

Do While ie.Busy

Loop

Do Until ie.Document.ReadyState = "complete"

Loop

Set elemCollection = ie.Document.getElementsByTagName("TABLE")

For t = 0 To elemCollection.Length - 1

For r = 0 To elemCollection(t).Rows.Length - 1

If elemCollection(t).Rows®.Cells.Length > 7 Then

ThisWorkbook.Worksheets(1).Range("A65536").End(xlUp).Offset(1, 0) = elemCollection(t).Rows®.Cells(0).innerText

ThisWorkbook.Worksheets(1).Range("A65536").End(xlUp).Offset(0, 1) = elemCollection(t).Rows®.Cells(1).innerText

ThisWorkbook.Worksheets(1).Range("A65536").End(xlUp).Offset(0, 2) = elemCollection(t).Rows®.Cells(2).innerText

ThisWorkbook.Worksheets(1).Range("A65536").End(xlUp).Offset(0, 3) = elemCollection(t).Rows®.Cells(3).innerText

ThisWorkbook.Worksheets(1).Range("A65536").End(xlUp).Offset(0, 4) = elemCollection(t).Rows®.Cells(4).innerText

ThisWorkbook.Worksheets(1).Range("A65536").End(xlUp).Offset(0, 5) = elemCollection(t).Rows®.Cells(5).innerText

ThisWorkbook.Worksheets(1).Range("A65536").End(xlUp).Offset(0, 6) = elemCollection(t).Rows®.Cells(6).innerText

ThisWorkbook.Worksheets(1).Range("A65536").End(xlUp).Offset(0, 7) = elemCollection(t).Rows®.Cells(7).innerText

End If

Next r

Next t

ie.Quit

Set ie = Nothing

End Sub

Agradeço imensamente, quem puder me ajudar.

Silmar

Link para o comentário
Compartilhar em outros sites

0 respostass a esta questão

Posts Recomendados

Até agora não há respostas para essa pergunta

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,2k
×
×
  • Criar Novo...