QUANDO IMPORTO DADOS ADVFN TXT POR VBA PARTE DAS DATAS FICAM INVERTIDA

[teo1000]

Olá.

Estou desesperado! Já programo em vba a algum tempo e agora estou com este problema grave e não consigo resolver. Fico muito agradecido pela ajuda.

Mando baixar os dados do site da ADVFN. Primeiramente ele baixava tudo em uma unica coluna. Agora, sempre que mando importar por vba ele já importa os dados em colunas separadas, independente dos parametros que coloco no código, como está descrito abaixo, ele sempre baixa as colunas: A (que é a data), B, C, D, E e F como valores e todas as colunas ficam formatadas como geral E DETERMINADAS DATAS FICAM INVERTIDAS dentro da coluna Al!!! Por que isto está acontecendo?

Workbooks.OpenText FileName:="http://br.advfn.com/p.php?pid=data&cb=1217591518&daily=0&columnheads=0&symbol=BOV%5E" & CT, Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, _

TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _

Semicolon:=False, Comma:=True, Space:=True, Other:=False, fieldInfo:= _

Array(Array(1, 4), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7 _

, 1)), TrailingMinusNumbers:=True

Quando tento a conversão da coluna da data(A) que tem datas invertidas, como está demonstrado, a data que estava em determinada linha como: 06/12/09 passa a ser inexplicavelmente na linha seguinte, quando muda o mês, a inverter os meses com os dias e fica como: 15/06. O que fazer? preciso dos dados sempre da mesma maneira, sem inversões. Observe que fazendo o download manual os dados vem com as datas certas.

A B C D E F

06/12/09 05:05 33,15 33,15 33,15 33,15 0

06/12/09 05:06 33,15 33,15 33,15 33,15 0

06/12/09 05:07 33,15 33,15 33,15 33,15 0

06/12/09 05:08 33,15 33,15 33,15 33,15 811400

15/06/2009 10:03 32,65 32,7 32,65 32,7 82800

15/06/2009 10:04 32,68 32,75 32,66 32,75 21200

15/06/2009 10:05 32,75 32,75 32,66 32,66 108600

15/06/2009 10:06 32,66 32,68 32,61 32,61 68600

trabalhando com os dados anteriores da seguinte maneira:

Columns("A:A").Select

Selection.TextToColumns Destination:=Range("a1"), DataType:=xlDelimited, _

TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _

Semicolon:=True, Comma:=True, Space:=False, Other:=False, fieldInfo _

:=Array(1, 2)

Selection.TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, _

fieldInfo:=Array(Array(0, 4), Array(18, 9)), TrailingMinusNumbers:=True

às vezes funciona, e passsa a classificar as datas de maneira correta, porém preciso dos dados da maneira correta sempre.

Muito obrigado pela ajuda, atenciosamente, Teo.

Editado Junho 17, 2009 por teo1000