如何在VBA导出的每行文本末尾添加||字符？

你只需要在生成每行文本后，拼接上||再写入文件即可，以下是两种简单修改方式：

方式一：打印时直接拼接 #

找到原代码中Print #1, LineText这一行，修改为：

Print #1, LineText & "||"

方式二：先拼接文本再打印 #

在Next j循环结束后、打印语句之前，新增一行代码完成拼接：

LineText = LineText & "||"

修改后的完整代码 #

Sub OutputToTextFile()
    Dim ws As Worksheet: Set ws = ThisWorkbook.Sheets(1)
    Dim FileName As String, LineText As String
    Dim MyRange As Range, i, j
    
    FileName = "C:\data\output.txt"
    
    Open FileName For Output As #1
    
    Set MyRange = Range("A1:G20")
    For i = 1 To MyRange.Rows.Count
        LineText = "" ' 每次循环重置行文本，避免残留上一行内容
        For j = 1 To MyRange.Columns.Count
            LineText = IIf(j = 1, "", LineText & " | ") & MyRange.Cells(i, j)
        Next j
        LineText = LineText & "||" ' 添加末尾的||
        Print #1, LineText
    Next i

    Close #1
End Sub

（额外优化：在每行循环开头重置LineText为空，避免空行或残留上一行数据）

修改后的输出示例 #

IBAN311 | Apple | IBAN123123 | BIC | BGN | IBAN311 | INV-12343||

内容的提问来源于stack exchange，提问作者Ivan Ivanov