Как обновить таблицу powerpoint из книги Excel

Question

Я пытаюсь написать код для запуска из excel, а затем открыть существующий файл excel и powerpoint с диска c и использовать данные в рабочей таблице с именем «Oct18» для обновления таблицы FIRST на слайде 2 Powerpoint.

Ниже приведен код, который я написал, но почему-то он не работает. Могу ли я узнать, если кто-нибудь знает, как это сделать, пожалуйста?

Sub WriteText_toPPT_Table()
    'Add a reference to Microsoft Powerpoint 12.0 object library
    Dim ppApp As PowerPoint.Application
    Dim ppPres As PowerPoint.Presentation
    Dim ppShp As PowerPoint.Shape
    Dim ppSld As PowerPoint.slide
    Dim xlworkbook As Workbook

    Dim firstsheet As String
    Dim fileDir As String
    Dim excelFile As String


    firstsheet = "Oct18"
    'fileDir = "c:\masterpresentation.pptx"
    'excelFile = "c:\masterexcel.pptx


    '1) Open powerpoint application
    Set ppApp = CreateObject("PowerPoint.Application")
    ppApp.Visible = msoTrue
    Set xlworkbook = Excel.Application.Workbooks.Open(Filename:=excelFile)

    '2) opening an existing presentation
    Set ppPres = ppApp.Presentations.Open(Filename:=fileDir)
    Set exceldir = Excel.Application.Workbooks.Open(Filename:=excelFile)
    ppPres.Slides(2).Shapes(1).Table.Cell(1, 1).Shape.TextFrame.TextRange.Text = xlworkbook.Sheets(firstsheet).Cells(4, 12)
End Sub