如何用VBA实现Excel单元格内容追加到指定记事本并保存？

直接通过VBA文件IO操作实现是更高效稳定的方式，无需依赖记事本程序的窗口交互，以下是完整代码：

Sub AppendToNotepad()
    Dim targetText As String
    Dim notepadPath As String
    Dim fileNum As Integer
    
    ' 获取第4张工作表A1的内容
    targetText = ThisWorkbook.Sheets(4).Range("A1").Value
    If targetText = "" Then Exit Sub ' 内容为空时直接退出
    
    ' 替换为你的记事本文件路径
    notepadPath = "C:\Your\Target\Path\notes.txt"
    
    ' 以追加模式打开文件
    fileNum = FreeFile
    Open notepadPath For Append As #fileNum
    
    ' 将内容写入文件末尾（自动换行到空白行）
    Print #fileNum, targetText
    
    ' 关闭文件
    Close #fileNum
    
    MsgBox "内容已成功追加到记事本！", vbInformation
End Sub

代码说明： #

• 无需打开记事本程序，直接通过文件操作完成追加，避免窗口焦点、延迟等不稳定因素
• FreeFile 获取系统可用的文件编号，避免文件操作冲突
• For Append 模式会自动将内容添加到现有文件的最后一行之后，即空白行位置
• 如果目标文件不存在，代码会自动创建新文件

如果必须通过打开记事本程序的可视化方式实现（不推荐，稳定性差），可以使用以下代码：

Sub AppendViaNotepad()
    Dim targetText As String
    Dim notepadPath As String
    Dim notepadExe As String
    
    targetText = ThisWorkbook.Sheets(4).Range("A1").Value
    If targetText = "" Then Exit Sub
    
    notepadPath = "C:\Your\Target\Path\notes.txt"
    notepadExe = "notepad.exe"
    
    ' 打开指定的记事本文件
    Shell notepadExe & " """ & notepadPath & """", vbNormalFocus
    
    ' 等待记事本加载完成（可根据实际情况调整延迟时长）
    Application.Wait Now + TimeValue("00:00:01")
    
    ' 发送快捷键：跳转到文件末尾→换行→粘贴→保存
    SendKeys "^({END})", True
    SendKeys "{ENTER}", True
    SendKeys "^v", True
    SendKeys "^s", True
End Sub

注意事项： #

• 第二种方法依赖系统窗口焦点，若有其他窗口抢占焦点会导致操作失败
• 路径包含空格时必须用双引号包裹，避免Shell命令识别错误

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