VBA Excle运行一个接受excel文件名的Powerpoint marco

Sub RunPowerPointMacro()
    Dim PowerPointApp As Object
    Dim PowerPointPres As Object
    Dim PowerPointMacro As String
    Dim ExcelFileName As String
    
    ' 设置PowerPoint文件名和宏名
    ExcelFileName = "文件路径\文件名.xlsx"
    PowerPointMacro = "宏名"
    
    ' 创建PowerPoint应用程序对象
    Set PowerPointApp = CreateObject("PowerPoint.Application")
    
    ' 打开PowerPoint文件
    Set PowerPointPres = PowerPointApp.Presentations.Open("PowerPoint文件路径\文件名.pptx")
    
    ' 运行PowerPoint宏
    PowerPointApp.Run PowerPointMacro, ExcelFileName
    
    ' 关闭PowerPoint文件和应用程序
    PowerPointPres.Close
    PowerPointApp.Quit
    
    ' 释放对象变量
    Set PowerPointPres = Nothing
    Set PowerPointApp = Nothing
End Sub