instrução OpenText

[neia]

Estou abrindo um arquivo texto a partir de uma macro. O código é o que anexo
a seguir:

Workbooks.OpenText Filename:="C:\Meus documentos\auxílio
transporte\BS.txt", _
Origin:=xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False,
Semicolon:=True, _
Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1,
1), _
Array(2, 1), Array(3, 1), Array(4,4), Array(5, 4), Array(6, 1),
Array(7, 1)), _
TrailingMinusNumbers:=True

O problema é: os campos de data não estão saindo direito. Em algumas linhas
eles aparecem corretamente e em outras aparecem como texto, veja a seguir:
Colunas
1 2 3 4
5 6 7
55036 124 MARCIA ROSARIA SANTOS 11ABR2006 17ABR2006 BS 15
55036 124 MARIA HENRIQUE 16/mar/06 29ABR2006 BS 15
55036 124 LUCIA HELENA CONCEICAO 03ABR2006 07ABR2006 BS 15
55036 124 TANIA REGINA GONZAGA 10ABR2006 13ABR2006 BS 15
55036 159 SUELY BARROSDE OLIVEIRA 20/mar/06 18ABR2006 BS 15

Obs: Quando abro sem o uso da macro, funciona corretamente.

 

[Rafael Guerreiro Osorio]

Neia,

You posted in portuguese, the language of this community is English...

De qualquer forma, parece que o problema está ligado ao idioma - a
abreviatura de marco é a mesma em Portugues e em Ingles - mar - mas abril é
diferente - abr/apr. Por isto está lendo corretamente as datas de março como
data, mas como o XL nao sabe interpretar ABR, deixa como texto.

Best,

RGO