Excel 返回函数中的PPT对象

我刚刚编写了以下函数来创建并返回powerpoint对象：

Public Function Open_PowerPoint_Presentation(ByVal ppName As String) As Object

Dim objPPT As Object
Dim Path As String
Path = ThisWorkbook.Path

Set objPPT = CreateObject("PowerPoint.Application")
objPPT.Visible = True

Open_PowerPoint_Presentation = objPPT.Presentations.Open Path & "\Reports\" & ppName & ".pptx"

End Function

但最后一行打开\u PowerPoint\u演示文稿=。。。给我一个编译错误，我只是不知道为什么。有人能帮我吗？

将线路改为：

设置Open\u PowerPoint\u Presentation=objPPT.Presentations.OpenPath&\Reports\&ppName&.pptx

将对象分配给变量需要Set关键字，括号是分配方法返回（在本例中为变量打开）的语法的一部分