求助：Excel VBA宏实现TXT占位符替换为单元格值并另存

原代码问题清单 #

• 查找关键词数组最后一项%GPU2R% 末尾携带多余空格，无法匹配文件内的目标占位符
• 错误将待处理文件的完整路径赋值给文件夹路径变量，后续遍历文件夹的逻辑偏离了仅处理指定D:\Template\info.txt的需求
• VBA中Replace是带返回值的函数，原代码未将替换结果重新赋值给Text变量，导致替换操作完全不生效
• 原输出逻辑直接覆盖源模板文件，不符合替换后另存到D:\GPUReport目录的要求
• 未声明Filespec变量，也未判断目标输出目录是否存在，极易触发运行时错误

修正后完整代码 #

Option Explicit
Sub FindAndReplaceText()
    ' 固定配置参数
    Const INPUT_FILE_PATH As String = "D:\Template\info.txt"
    Const OUTPUT_FOLDER As String = "D:\GPUReport"
    Const OUTPUT_FILE_NAME As String = "info.txt"
    
    Dim FSO As Object
    Dim TextFile As Object
    Dim Text As String
    Dim I As Integer
    Dim SearchForWords As Variant
    Dim SubstituteWords As Variant
    Dim OutputFullPath As String
    
    ' 初始化查找和替换数组
    SearchForWords = Array("%time%", "%GPU1T%", "%GPU1F%", "%GPU1R%", "%GPU2T%", "%GPU2F%", "%GPU2R%")
    SubstituteWords = Array(Range("G2").Value, Range("A2").Value, Range("C2").Value, Range("E2").Value, _
                            Range("B2").Value, Range("D2").Value, Range("F2").Value)
    
    Set FSO = CreateObject("Scripting.FileSystemObject")
    
    ' 校验输入文件是否存在
    If Not FSO.FileExists(INPUT_FILE_PATH) Then
        MsgBox "待处理模板文件不存在：" & INPUT_FILE_PATH, vbCritical
        Exit Sub
    End If
    
    ' 校验输出文件夹是否存在，不存在则创建
    If Not FSO.FolderExists(OUTPUT_FOLDER) Then
        FSO.CreateFolder OUTPUT_FOLDER
    End If
    OutputFullPath = FSO.BuildPath(OUTPUT_FOLDER, OUTPUT_FILE_NAME)
    
    ' 读取模板文件内容
    Set TextFile = FSO.OpenTextFile(INPUT_FILE_PATH, 1, False)
    Text = TextFile.ReadAll
    TextFile.Close
    
    ' 执行批量替换
    For I = 0 To UBound(SearchForWords)
        Text = Replace(Text, SearchForWords(I), SubstituteWords(I))
    Next I
    
    ' 写入输出文件
    Set TextFile = FSO.OpenTextFile(OutputFullPath, 2, True)
    TextFile.Write Text
    TextFile.Close
    
    MsgBox "替换完成，输出文件路径：" & OutputFullPath, vbInformation
    
    ' 释放对象
    Set TextFile = Nothing
    Set FSO = Nothing
End Sub

使用说明 #

• 运行宏前请确保待处理数据所在的工作表处于激活状态，代码会自动读取当前工作表的对应单元格值
• 若输出目录D:\GPUReport不存在，代码会自动创建该目录

内容的提问来源于stack exchange，提问作者Santiago Cuartas Rmrz