Será que alguém poderia me ajudar:
Abaixo trecho da macro que está dando problema. O Excel até abre o arquivo, mas não delimita as colunas, aí a macro não funciona.
Sub GERAR_APB_CPA()
On Error GoTo ErroMsg
'Seleção dos arquivos
Filenames = Application.GetOpenFilename(, , , , True)
Counter = 1
K = 1
'ubound determina quantos arquivos serão selecionados
While Counter <= UBound(Filenames)
'Abre os arquivos selecionados
Workbooks.Open Filenames(Counter)
'Acertando o relatório do sistema
Application.ScreenUpdating = False
Workbooks.OpenText Filename:=Filenames(Counter), Origin:=xlWindows, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:= _
Array(Array(0, 1), Array(21, 2), Array(27, 1), Array(37, 1), Array(50, 1), Array(66, 1), _
Array(72, 1), Array(85, 1), Array(106, 1), Array(110, 1), Array(116, 1), Array(135, 1), _
Array(138, 1), Array(144, 1), Array(157, 1), Array(173, 1)), TrailingMinusNumbers:= _
True