Sharepoint上でアクティブなPPTをアップロード

Question

私は共有ポイント上のアクティブなプレゼンテーションをアップロードしようとしており、コードに問題があります。以下はスクリプトです。修正を助けてください：https://msdn.microsoft：以下

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

こんにちはソリューション:)あなたがこれを読んで、あなたのコード内のファイル名/パスを修正したい場合があります

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