将Excel范围粘贴到PPT时出现Run-time error 91问题求助

错误根源 #

你声明了PPTPres作为PowerPoint演示文稿对象，但打开PPT文件后没有将打开的演示文稿对象赋值给这个变量，导致PPTPres是空对象，调用它的Slides属性时自然触发"对象变量或With块变量未设置"的91错误。

修正后的代码 #

Sub ExportExceldatatoPPT()
    Dim PPTApp As PowerPoint.Application
    Dim PPTPres As PowerPoint.Presentation
    Dim PPTSlide As PowerPoint.Slide
    Dim ExcRng As Range
    
    ' 初始化PowerPoint应用并打开演示文稿，同时赋值给PPTPres
    Set PPTApp = CreateObject("PowerPoint.Application")
    PPTApp.Visible = True
    Set PPTPres = PPTApp.Presentations.Open(Filename:="W:\Shared With Me\investments_team\investments_front_office\Fortitude Re\Asset Rotation Tracking\Asset Rotation Weekly Updates\Asset Rotation Test.pptx")
    
    ' 复制Excel指定区域
    Set ExcRng = ThisWorkbook.Sheets("1. Overview").Range("B4:T42")
    ExcRng.Copy
    
    ' 等待剪贴板就绪（比固定Wait更可靠）
    Do Until ClipboardContainsData
        DoEvents
    Loop
    
    ' 定位到第2张幻灯片并粘贴
    Set PPTSlide = PPTPres.Slides(2)
    PPTSlide.Shapes.Paste
    
    ' 释放剪贴板
    Application.CutCopyMode = False
    
    ' 释放对象，避免内存泄漏
    Set PPTSlide = Nothing
    Set PPTPres = Nothing
    Set PPTApp = Nothing
End Sub

' 辅助函数：检查剪贴板是否包含可粘贴的数据
Function ClipboardContainsData() As Boolean
    On Error Resume Next
    ClipboardContainsData = Not IsEmpty(Application.ClipboardFormats)
    On Error GoTo 0
End Function

关键修改说明 #

• 核心修复：添加Set PPTPres = PPTApp.Presentations.Open(...)，把打开的演示文稿对象绑定到PPTPres变量，确保后续调用PPTPres.Slides时有合法对象。
• 替换固定等待：用循环检查剪贴板的方式替代Application.Wait，避免因系统速度差异导致的剪贴板未就绪问题。
• 优化对象调用：赋值PPTSlide后直接用PPTSlide.Shapes.Paste，减少重复的对象查找操作。
• 添加资源清理：最后释放所有对象并清空剪贴板，避免PowerPoint进程残留或内存泄漏。

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