在Powerpoint中寫入已打開的Excel工作簿Slide

Question

我正嘗試使用VBA從我的PowerPoint演示文稿中手動打開已經手動打開的工作簿。

使用CreateObject，然後Workbook打開它打開文件的新實例。
我想通過網絡在幾個例子中使用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

嘗試：

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可能無法打開

參見：https://support.microsoft.com/en-us/kb/288902