jlvfranca, Bom dia!

Veja se é isso que precisa.

Preencha os dados na aba "dados", vá em macros e execute a macro "ImportarArquivo".

O arquivo de importação será gerado para a sua área de trabalho com o nome ArquivoImportar.txt.

Me sinalize caso seja preciso ajustar o layout do arquivo.

Um abraço.

jlvfranca, Bom dia!

Veja se é isso que precisa.

Preencha os dados na aba "dados", vá em macros e execute a macro "ImportarArquivo".

O arquivo de importação será gerado para a sua área de trabalho com o nome ArquivoImportar.txt.

Me sinalize caso seja preciso ajustar o layout do arquivo.

Um abraço.

Luiz, bom dia.

Agradeço pela força, realmente está é uma forma que não estava imaginado e que me ajudará muito.
Porém estou adaptando uma outra rotina encontrada e estou com dúvida com relação como formatar uma data na mesma

If Len(Cells(i, 5).Value) < 8 Then
'Data_processamento = 8, data (preencher no padrão aaaa+mm+dd)
campo(5) = String(8 - Len(Cells(i, 5).Value), Format("YYYYMMDD")) & Cells(i, 5).Value
Else
campo(5) = Cells(i, 5).Value
End If

Você saberia como formatar?

João França