在Sharepoint上上传活动PPT

我正试图上传一个活跃的演示文稿在SharePoint上面临的代码问题。 以下是脚本。 请帮助解决：

Sub Saveuploadppt() 'Dim newPowerPoint As PowerPoint.Application Dim filenm As Variant Dim month As String Dim d As String Dim powerpoint As Object month = Format(Date - 1, "mmm'yy") d = Format(Date - 1, "mm-dd-yyyy") filenm = "Control Dashboard " & month & "MTD_" & d & ".pptx" MsgBox filenm powerpoint.Application.ActivePresentation.SaveAs "File path "", 1 End Sub 

Answer 1

你好，下面是解决scheme:)

 Sub Saveuploadppt() 'Dim newPowerPoint As PowerPoint.Application Dim filenm As Variant Dim month As String Dim d As String Dim powerpoint As Object month = Format(Date - 1, "mmm'yy") d = Format(Date - 1, "mm-dd-yyyy") filenm = "Control Dashboard " & month & "MTD_" & d & ".pptx" MsgBox filenm Dim ppApp As powerpoint.Application Set ppApp = GetObject(, "PowerPoint.Application") PpApp.ActivePresentation.SaveAs "path" & filenm & "", 1 End Sub