excel - 类未注册 VBA excel

Question

我正在尝试使用 Excel 中的 VBA 脚本将幻灯片从一个 PowerPoint 演示文稿复制到另一个。找到下面的代码，但是在尝试运行它时我收到以下错误

我正在使用 64 位机器，我正在使用以下引用资料:
-Visual Basic 应用程序
-Microsoft Excel 16.0 对象库
-OLE自动化
-Microsoft Office 16.0 对象库
-Microsoft PowerPoint 16.0 对象库

Dim objPresentation As Presentation
Dim i As Integer

'open the target presentation
Set objPresentation = Presentations.Open("C:\Users\john\Desktop\123.pptx")
For i = 1 To objPresentation.Slides.Count
    objPresentation.Slides.Item(i).Copy
    Presentations.Item(1).Slides.Paste
    Presentations.Item(1).Slides.Item(Presentations.Item(1).Slides.Count).Design = _
        objPresentation.Slides.Item(i).Design
Next i
objPresentation.Close
End Sub

有人可以帮我克服这个错误吗？

Answer 1

您尚未声明 Powerpoint 应用程序对象。

Dim objPowerPoint As New PowerPoint.Application
Dim objPresentation As Presentation
Dim i As Integer

'open the target presentation
Set objPresentation = objPowerPoint.Presentations.Open("C:\Users\john\Desktop\123.pptx")

'~~> Rest of the code