从Sharepoint打开ppt on命令按钮单击- VBA

Question

我想使用VBA打开ppt form SharePoint，使用命令按钮

如果有人知道，请帮帮我。

谢谢..。

我有类似的code...below..但它给了我错误

Dim PPT As PowerPoint.Application
Dim fileName As Variant
Dim WS1 As Worksheet
Dim rng As Range
Set WS1 = ThisWorkbook.Worksheets("Sheet4")
Set rng = WS1.Range("AA4")


Set PPT = New PowerPoint.Application
fileName = rng

PPT.Visible = True

'PPT.Presentations.Open fileName:="F:\Reports\" & Business_Plan.Value & ".ppt"
PPT.Presentations.Open fileName("AA4")

Answer 1

假设表1中的"A2“值是整个Path+File名称(F:\Reports\FileName.ppt)

Sub openPowerP()
    Dim PPT As PowerPoint.Application
    Dim fileName As String
    Dim WS1 As Worksheet
    Set WS1 = ThisWorkbook.Sheets("Sheet1")
    fileName = WS1.Range("A2").Value
    Set PPT = New PowerPoint.Application
    PPT.Presentations.Open fileName
End Sub

当然，对powerpoint的引用是必要的。

​