使用VBA处理文本文件：查找替换后无法保存修改的需求

原代码仅在内存中修改了文本行，但未收集修改后的内容，也没有实现保存逻辑。以下是修改后的代码，实现读取文件→查找替换→让用户选择保存文件夹→写入修改后的副本的功能：

Sub LeituraTxtE保存()
    Dim FSO As Object
    Dim ArqTxt As Object
    Dim Linha As String
    Dim allLines As String ' 用于收集所有修改后的内容
    Dim saveFolder As String
    Dim savePath As String
    
    Set FSO = CreateObject("Scripting.FileSystemObject")
    
    ' 获取用户输入的替换值
    Dim L1 As String
    L1 = InputBox("Digite o ComprimentodoPerfil:", "COMPRIMENTO")
    If L1 = "" Then Exit Sub ' 用户取消输入则退出
    
    ' 源文件路径
    Dim arquivo1 As String
    arquivo1 = "C:\Users\maicon.caetano\Desktop\Teste VBA\TexteVBA_1.mpf"
    
    ' 打开源文件读取内容
    Set ArqTxt = FSO.OpenTextFile(arquivo1)
    With ArqTxt
        Do Until .AtEndOfStream
            Linha = .ReadLine
            ' 查找并替换指定内容
            If Linha = "F2" Then
                Linha = L1
            End If
            ' 将修改后的行添加到allLines，保留换行符
            allLines = allLines & Linha & vbCrLf
        Loop
        .Close
    End With
    
    ' 让用户选择保存文件夹
    With Application.FileDialog(msoFileDialogFolderPicker)
        .Title = "选择修改后文件的保存文件夹"
        If .Show = -1 Then
            saveFolder = .SelectedItems(1)
        Else
            MsgBox "未选择保存文件夹，操作取消"
            GoTo Cleanup ' 用户取消选择则清理对象并退出
        End If
    End With
    
    ' 构造保存路径（使用原文件名+"_修改后"作为新文件名）
    savePath = saveFolder & "\TexteVBA_1_修改后.mpf"
    
    ' 创建新文件并写入修改后的内容
    Dim newFile As Object
    Set newFile = FSO.CreateTextFile(savePath, True) ' True表示覆盖已存在的文件
    newFile.Write allLines
    newFile.Close
    
    MsgBox "文件已保存至：" & savePath

Cleanup:
    ' 释放对象
    Set ArqTxt = Nothing
    Set newFile = Nothing
    Set FSO = Nothing
End Sub

关键修改说明： #

• 添加allLines变量收集所有修改后的文本行，保留换行符vbCrLf保证格式一致
• 使用Application.FileDialog(msoFileDialogFolderPicker)弹出文件夹选择对话框，让用户自由指定保存位置
• 增加用户取消输入/取消选择的分支处理，避免程序报错
• 用FSO.CreateTextFile创建新文件并写入收集到的内容，完成修改后副本的保存

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