Uma possibilidade:
No codigo crie uma variavel , por exemplo no nome Espaco, tamanho 10 " "
e na linha de saida concatene entre os campos desejados
Ficaria algo assim
Sub GeraTxt()
Caminho = ThisWorkbook.Path & Application.PathSeparator
Arquivo = "Exportar_Excel_pTxt.txt"
Open Caminho & Arquivo For Output As #1
Espaco = " "
Worksheets("Export").Activate
Range("A1").Select
linha = 2
Do Until IsEmpty(ActiveCell.Offset(0, 0))
Cpo1 = Cells(linha, 1) & Application.WorksheetFunction.Rept(Cells(10, 9), Cells(5, 8) - Len(Cells(linha, 1)))
Cpo2 = Cells(linha, 2) & Application.WorksheetFunction.Rept(Cells(10, 9), Cells(6, 8) - Len(Cells(linha, 2)))
Cpo3 = Cells(linha, 3) & Application.WorksheetFunction.Rept(Cells(10, 9), Cells(7, 8) - Len(Cells(linha, 3)))
Cpo4 = Cells(linha, 4) & Application.WorksheetFunction.Rept(Cells(10, 9), Cells(8, 8) - Len(Cells(linha, 4)))
Dados = Cpo1 & Espaco & Cpo2 & Espaco & Cpo3 & Cpo4
Print #1, Dados
linha = linha + 1
If Cells(linha, 1) = Empty Then Exit Do
Loop
Close #1
End Su
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 11/05/2012 2:11 pm