特定目录文本文件首行末尾空格清除——VBA代码无效求助

你的代码存在几个核心问题，导致首行末尾空格无法被正确清除：

• 变量命名混淆：用strFileName存储读取的每行内容，与文件名变量语义冲突，易引发逻辑混乱
• Print #语句的自动换行问题：该语句会自动在写入内容末尾追加vbCrLf，叠加你手动拼接的换行符，导致文件格式异常，同时掩盖空格处理效果
• 原生Open语句的编码兼容性差：可能无法正确读取非系统默认编码的文本文件，导致内容处理异常

修复后的代码 #

以下是针对首行末尾空格优化后的VBA代码（也可扩展处理所有行的首尾空格）：

Sub RemoveTrailingSpacesFromFirstLine()
    Dim fso As Object
    Dim folder As Object
    Dim file As Object
    Dim folderPath As String
    Dim textStream As Object
    Dim allLines As Variant
    Dim i As Integer
    
    ' 目标文件夹路径
    folderPath = "D:\Shamim Data\Desktop\UCB\Audit-UCB\Internal Audit FY 23-24\Brand Audit - 2023-24\Text File Project by  VBA\OutPut Text File\"
    
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    If Not fso.FolderExists(folderPath) Then
        MsgBox "文件夹不存在！", vbExclamation
        Exit Sub
    End If
    
    Set folder = fso.GetFolder(folderPath)
    
    For Each file In folder.Files
        If LCase(fso.GetExtensionName(file.Path)) = "txt" Then
            ' 用TextStream读取文件，兼容多种编码
            Set textStream = fso.OpenTextFile(file.Path, 1, False, -2) ' -2代表系统默认编码
            allLines = Split(textStream.ReadAll, vbCrLf)
            textStream.Close
            
            ' 仅清除首行末尾空格（保留开头空格）
            If UBound(allLines) >= 0 Then
                allLines(0) = RTrim(allLines(0))
                ' 若需清除首尾空格，替换为：allLines(0) = Trim(allLines(0))
            End If
            
            ' 写入修改后的内容，避免多余换行
            Set textStream = fso.OpenTextFile(file.Path, 2, True, -2)
            textStream.Write Join(allLines, vbCrLf)
            textStream.Close
        End If
    Next file
    
    ' 清理对象
    Set textStream = Nothing
    Set file = Nothing
    Set folder = Nothing
    Set fso = Nothing
    
    MsgBox "所有文本文件首行末尾空格已清除！", vbInformation
End Sub

关键改进点 #

• 使用TextStream处理文件：比原生Open语句更稳定，支持多编码读取，避免乱码
• 精准控制空格清除：用RTrim仅清除末尾空格（如需清除首尾空格可替换为Trim）
• 避免多余换行：通过Join拼接行内容，用Write直接写入，无额外自动换行
• 变量语义清晰：优化变量命名，避免逻辑混淆

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