Question

我正在尝试使用我的PowerPoint演示文稿中的VBA在已经手动打开的工作簿中编写。

使用CreateObject，然后使用Workbook.Open，打开文件的新实例我正在尝试使用在Web上的几个示例中找到的GetObject。

这是我的代码：

Dim xlApp As Object
Dim xlWorkbook As Object

Set xlApp = CreateObject("Excel.Application")

xlApp.Visible = Trueme
Set xlWorkbook = xlApp.Workbooks.Open(ActivePresentation.Path & "\Suivi individuel.xlsx", True, False)
xlWorkbook.Sheets(1).Range("C14").Value = "Hello"

SlideShowWindows(1).View.GotoSlide nextSlide

我试过了：

Dim xlApp As Object
Dim xlWorkbook As Object

Set xlWorkbook = GetObject(ActivePresentation.Path & "\Suivi individuel.xlsx", "Excel.Application")

xlWorkbook.Sheets(1).Range("C14").Value = "Hello"

SlideShowWindows(1).View.GotoSlide nextSlide

它表示运行时错误432：在自动化操作期间找不到文件名或类名。

Answer 1

尝试：

Activity's Main Layout

如果您只想获得Excel的开放实例，那么

Dim xlApp As Object
Dim xlWorkbook As Object

Set xlWorkbook = GetObject(ActivePresentation.Path & "\Suivi individuel.xlsx")

如果Excel可能无法打开，则在错误处理程序中包装

请参阅：https://support.microsoft.com/en-us/kb/288902

在Powerpoint Slide中写入已打开的Excel工作簿

1 个答案: