Este fórum está sendo desativado

[Andrelirasp]

Tenho uma macro para isso, só que preciso tirar a opção de terminar sem "|", como posso fazer? Segue a Macro:

Código: Selecionar todos

 ExpExcelTxT()
Dim SrcRg As Range
Dim CurrRow As Range
Dim CurrCell As Range
Dim CurrTextStr As String
Dim ListSep As String
Dim DataTextStr As String

ListSep = "|"
Set SrcRg = ActiveSheet.UsedRange

Open "C:\Users\Carlos André\Desktop\ArqExp.txt" For Output As #1

For Each CurrRow In SrcRg.Rows
    CurrTextStr = ""
    For Each CurrCell In CurrRow.Cells
        CurrTextStr = CurrTextStr & CurrCell.Value & ListSep
    Next
    While Right(CurrTextStr, 1) = ListSep
        CurrTextStr = Left(CurrTextStr, Len(CurrTextStr) - 1)
    Wend
    CurrTextStr = CurrTextStr & ListSep
    Print #1, CurrTextStr
Next
Close #1
End Sub

[Reinaldo]

O trecho abaixo elimina, para cada linha o ultimo caractere se esse for "|", se deseja que tenha esse caractere, iniba/comente ou exclua essas linhas

Código: Selecionar todos

 ...  
 While Right(CurrTextStr, 1) = ListSep
        CurrTextStr = Left(CurrTextStr, Len(CurrTextStr) - 1)
    Wend
....

[Andrelirasp]

Agora está salvando com o final assim: |||||||||||||||||||||||

[Reinaldo]

??? pode dispor de um modelo/exemplo