MACRO EXCEL VBA
PESSOAL!!! TO PRECISANDO DE UMA AJUDA SOBRE UMA MACRO NO EXCEL.
QUANDO EU USO O ASSISTENTE DE IMPORTAÇÃO DE TEXTO DO EXCEL GRAVANDO OS PASSOS PARA A MACRO A COLUNA COM AS DATAS FICAM COM PROBLEMAS DE INVERSÃO DE DIAS POR MES. MAS SE USO O ASSISTENTE SEM GRAVAR AS DATAS FICAM NORMAL ALGUEM SABE ME EXPLICAR PORQUE?
ESTE é O CODIGO QUE A MACRO FAZ NO VBA.
Workbooks.OpenText Filename:= _
"C:\Documents and Settings\Usuario\Meus documentos\server\T_E_S_T_E\T_E_S_T_E\ORDENS.lst" _
, Origin:=xlWindows, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:= _
Array(Array(0, 1), Array(11, 1), Array(14, 1), Array(22, 1), Array(27, 1), Array(31, 1), _
Array(48, 1), Array(58, 1), Array(81, 1), Array(99, 1), Array(121, 1), Array(134, 1)), _
TrailingMinusNumbers:=True
QUANDO EU USO O ASSISTENTE DE IMPORTAÇÃO DE TEXTO DO EXCEL GRAVANDO OS PASSOS PARA A MACRO A COLUNA COM AS DATAS FICAM COM PROBLEMAS DE INVERSÃO DE DIAS POR MES. MAS SE USO O ASSISTENTE SEM GRAVAR AS DATAS FICAM NORMAL ALGUEM SABE ME EXPLICAR PORQUE?
ESTE é O CODIGO QUE A MACRO FAZ NO VBA.
Workbooks.OpenText Filename:= _
"C:\Documents and Settings\Usuario\Meus documentos\server\T_E_S_T_E\T_E_S_T_E\ORDENS.lst" _
, Origin:=xlWindows, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:= _
Array(Array(0, 1), Array(11, 1), Array(14, 1), Array(22, 1), Array(27, 1), Array(31, 1), _
Array(48, 1), Array(58, 1), Array(81, 1), Array(99, 1), Array(121, 1), Array(134, 1)), _
TrailingMinusNumbers:=True
a importação segue o padrão MM/DD/YYYY, e já quando você não seta esta finormação.. ele busca das configurações reginais do seu micro... que provavelmente seria DD/MM/YYYY, confere ai... tente converter quando for importar ... algo como
data = format(data,"DD/MM/YYYY")
data = format(data,"DD/MM/YYYY")
Ae galera era só configuração do excel ....blz
Tópico encerrado , respostas não são mais permitidas