如何用VBA打开myscript.js并替换为工作表指定值后保存

不依赖记事本的高效方案（推荐） #

直接读写文件内容比通过记事本交互更稳定、高效，能避免窗口焦点异常导致的操作失败。以下是完整实现代码：

Sub ReplaceJSContent()
    Dim filePath As String
    Dim fileContent As String
    Dim oldTexts As Variant
    Dim newTexts As Variant
    Dim i As Integer
    
    ' 设置目标JS文件路径
    filePath = "K:\MVS\temp\myscript.js"
    
    ' 定义需要替换的旧文本数组（对应你指定的目标内容）
    oldTexts = Array("6:7.400", "12:6.500", "24:7.000")
    ' 从Sheet1的D2-D4单元格获取替换用的新文本
    newTexts = Array(Sheet1.Range("D2").Value, Sheet1.Range("D3").Value, Sheet1.Range("D4").Value)
    
    ' 读取文件全部内容（适用于ANSI编码文件）
    Open filePath For Input As #1
    fileContent = Input$(LOF(1), 1)
    Close #1
    
    ' 执行批量替换操作
    For i = LBound(oldTexts) To UBound(oldTexts)
        fileContent = Replace(fileContent, oldTexts(i), newTexts(i))
    Next i
    
    ' 写入修改后的内容，覆盖原文件
    Open filePath For Output As #1
    Print #1, fileContent
    Close #1
    
    MsgBox "替换完成，文件已保存！", vbInformation
End Sub

代码说明 #

• 文件读写逻辑：用Open语句直接读取文件内容到字符串变量，修改后再写入覆盖原文件，全程无需打开记事本，不会破坏原文件的换行、缩进等格式。
• 替换配对：通过数组将旧文本和新文本一一对应，循环完成批量替换，保证替换关系准确。

处理UTF-8编码的JS文件 #

如果你的myscript.js是UTF-8编码（含中文或特殊字符），上面的代码可能出现乱码，改用ADODB.Stream处理：

Sub ReplaceJSContent_UTF8()
    Dim filePath As String
    Dim fileContent As String
    Dim oldTexts As Variant
    Dim newTexts As Variant
    Dim i As Integer
    Dim stream As Object
    
    Set stream = CreateObject("ADODB.Stream")
    filePath = "K:\MVS\temp\myscript.js"
    
    oldTexts = Array("6:7.400", "12:6.500", "24:7.000")
    newTexts = Array(Sheet1.Range("D2").Value, Sheet1.Range("D3").Value, Sheet1.Range("D4").Value)
    
    ' 读取UTF-8编码的文件
    stream.Charset = "UTF-8"
    stream.Open
    stream.LoadFromFile filePath
    fileContent = stream.ReadText
    stream.Close
    
    ' 执行批量替换
    For i = LBound(oldTexts) To UBound(oldTexts)
        fileContent = Replace(fileContent, oldTexts(i), newTexts(i))
    Next i
    
    ' 保存修改后的UTF-8文件
    stream.Open
    stream.WriteText fileContent
    stream.SaveToFile filePath, 2 ' 参数2表示覆盖原文件
    stream.Close
    
    Set stream = Nothing
    MsgBox "UTF-8文件替换完成！", vbInformation
End Sub

若一定要通过记事本操作（不推荐） #

通过SendKeys模拟人工操作，但稳定性差（需确保记事本窗口始终处于前台焦点），代码示例如下：

Sub ReplaceViaNotepad()
    Dim pth As String
    Dim oldTexts As Variant
    Dim newTexts As Variant
    Dim i As Integer
    
    pth = "K:\MVS\temp\myscript.js"
    oldTexts = Array("6:7.400", "12:6.500", "24:7.000")
    newTexts = Array(Sheet1.Range("D2").Value, Sheet1.Range("D3").Value, Sheet1.Range("D4").Value)
    
    ' 打开记事本
    Shell "Notepad.exe " & pth, vbNormalFocus
    Application.Wait Now + TimeValue("00:00:01") ' 等待记事本启动完成
    
    ' 全选文件内容
    SendKeys "^a", True
    Application.Wait Now + TimeValue("00:00:00.5")
    
    ' 循环替换每个目标文本
    For i = LBound(oldTexts) To UBound(oldTexts)
        ' 打开替换对话框
        SendKeys "^h", True
        Application.Wait Now + TimeValue("00:00:00.5")
        ' 输入要查找的旧文本
        SendKeys oldTexts(i), True
        Application.Wait Now + TimeValue("00:00:00.5")
        ' 切换到"替换为"输入框
        SendKeys "{TAB}", True
        Application.Wait Now + TimeValue("00:00:00.5")
        ' 输入新文本
        SendKeys newTexts(i), True
        Application.Wait Now + TimeValue("00:00:00.5")
        ' 点击"全部替换"并关闭对话框
        SendKeys "{TAB}{ENTER}", True
        Application.Wait Now + TimeValue("00:00:00.5")
        SendKeys "{ESC}", True
        Application.Wait Now + TimeValue("00:00:00.5")
    Next i
    
    ' 保存文件并关闭记事本
    SendKeys "^s", True
    Application.Wait Now + TimeValue("00:00:00.5")
    SendKeys "%{F4}", True
End Sub

注意事项 #

• Application.Wait的等待时间需根据电脑性能调整，避免操作不同步。
• 若记事本窗口被其他窗口遮挡，SendKeys会失效，因此不建议使用该方式。

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