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

我正尝试使用VBA从PowerPoint演示文稿中手动打开工作簿。

使用CreateObject，然后使用Workbook.Open打开文件的新实例。
我试图通过networking在几个例子中使用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：自动化操作期间未find文件名或类名。

Answer 1

尝试：

 Dim xlApp As Object Dim xlWorkbook As Object Set xlWorkbook = GetObject(ActivePresentation.Path & "\Suivi individuel.xlsx") 

如果你只是想获得一个开放的Excel实例

 Set xlApp = GetObject(,"Excel.Application") Set xlWorkbook = xlApp.ActiveWorkbook 

如果有可能Excel没有打开，那么将其封装在error handling程序中

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