如何用VBA生成无末尾空行的TXT文件？现有代码存在末尾空行问题

你遇到的问题根源在于VBA的Print #语句：每执行一次Print #，都会自动在输出内容末尾添加换行符（vbCrLf）。循环结束后，最后一行内容也被加上了换行符，导致文件末尾多了一个空行。

下面提供两种可行的解决方法：

方法一：先拼接内容再一次性写入 #

先把所有要输出的行收集到数组，用换行符拼接成完整字符串后再写入文件，这样就不会额外多出最后一个换行：

' 设置文件路径
myFile = varRuta & j & ".txt"
TextFile = FreeFile

' 定义数组存储所有行内容
Dim contentArr() As String
ReDim contentArr(1 To batchSaldoUnidades)

' 遍历收集每行数据
For i = 1 To batchSaldoUnidades
    contentArr(i) = Sheets("PEAJES - EDUFARMA").Range("K" & k).Value
    k = k + 1
Next i

' 用换行符拼接所有内容
Dim fullContent As String
fullContent = Join(contentArr, vbCrLf)

' 写入并关闭文件
Open myFile For Output As TextFile
Print #TextFile, fullContent
Close #TextFile

方法二：循环内判断最后一行 #

在循环中判断当前是否是最后一行，最后一行使用带分号的Print #语法（分号会阻止自动添加换行符）：

' 设置文件路径
myFile = varRuta & j & ".txt"
TextFile = FreeFile

Open myFile For Output As TextFile

' 遍历写入每行数据
For i = 1 To batchSaldoUnidades
    Dim lineText As String
    lineText = Sheets("PEAJES - EDUFARMA").Range("K" & k).Value
    
    If i = batchSaldoUnidades Then
        ' 最后一行：用分号避免添加额外换行
        Print #TextFile, lineText;
    Else
        ' 非最后一行：正常输出带换行
        Print #TextFile, lineText
    End If
    
    k = k + 1
Next i

Close #TextFile

两种方法各有适用场景：方法一代码更简洁，适合数据量不大的情况；方法二无需拼接大字符串，适合处理大量数据时减少内存占用。

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