Excel VBA复制单元格区域至记事本遇Run-Time error '429'求助

错误根源 #

• 记事本不支持COM自动化：Windows自带的记事本（notepad.exe）是原生Win32程序，并没有提供可通过CreateObject调用的ActiveX/COM接口，所以Set objNotepad = CreateObject("Notepad.Application")这行代码根本找不到对应组件，直接抛出429错误。
• 对象模型误用：你试图用类似Word/Excel的对象模型（比如Documents.Add、Selection.Paste）操作记事本，但记事本本身没有这些对象和方法，就算能启动记事本，后续代码也会报错。

可行的实现方案 #

方案1：通过剪贴板+Shell实现（简单直接） #

依赖系统剪贴板，启动记事本后模拟粘贴操作：

Sub CopyRangeToNotepad()
    Dim rng As Range
    Dim notepadID As Variant
    
    ' 指定要复制的区域（建议明确工作表，避免当前表歧义）
    Set rng = ThisWorkbook.Sheets("Sheet1").Range("A1:B5")
    
    ' 复制区域到剪贴板
    rng.Copy
    
    ' 启动记事本
    notepadID = Shell("notepad.exe", vbNormalFocus)
    
    ' 短暂等待确保记事本启动（避免粘贴失败）
    Application.Wait Now + TimeValue("00:00:01")
    
    ' 模拟Ctrl+V粘贴
    SendKeys "^v", True
    
    ' 清除剪贴板状态
    Application.CutCopyMode = False
End Sub

方案2：直接生成文本文件（更稳定） #

不依赖剪贴板，把单元格内容拼接成文本写入临时文件，再用记事本打开：

Sub RangeToNotepadFile()
    Dim rng As Range
    Dim i As Integer, j As Integer
    Dim textContent As String
    Dim tempFilePath As String
    
    ' 指定目标区域
    Set rng = ThisWorkbook.Sheets("Sheet1").Range("A1:B5")
    
    ' 拼接单元格内容：列用制表符分隔，行用换行分隔
    For i = 1 To rng.Rows.Count
        For j = 1 To rng.Columns.Count
            textContent = textContent & rng.Cells(i, j).Value & vbTab
        Next j
        ' 去掉每行最后一个多余的制表符，再换行
        textContent = Left(textContent, Len(textContent) - 1) & vbCrLf
    Next i
    
    ' 生成临时文件路径
    tempFilePath = Environ("TEMP") & "\ExcelToNotepad.txt"
    
    ' 写入文本内容
    Open tempFilePath For Output As #1
    Print #1, textContent
    Close #1
    
    ' 用记事本打开临时文件
    Shell "notepad.exe " & tempFilePath, vbNormalFocus
End Sub

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