Question

我想使用以下代码获取每个打开的PPT演示文稿的名称。问题是我在代码的“对于每个”行中收到错误消息“ ActiveX组件无法创建对象”。

在此先感谢您的帮助！

PS：很奇怪：我从这里完全复制了代码：http://vba.relief.jp/powerpoint-macro-get-all-open-presentations-name/

Sub GetAllOpenPresentationsName()

Dim prs As Presentation


For Each prs In Presentations

Debug.Print prs.Name

Next prs

End Sub

Answer 1

欢迎来到SO。看来您不在PowerPoint VBA中工作。如果在其他平台上工作，请尝试

Sub GetAllOpenPresentationsName()
Dim prs As Presentation
Dim PP As PowerPoint.Application
On Error Resume Next
Set PP = GetObject(, "PowerPoint.Application")
    If Err Then
    Debug.Print "PowerPoint is not Open"
    Err.Clear
    Exit Sub
End If
On Error GoTo 0
For Each prs In PP.Presentations
Debug.Print prs.Name
Next prs
End Sub

使用VBA获取每个打开的PPT演示文稿的名称

1 个答案: