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)
Pergunta
SILMAR
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
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.