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.

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.