Powerpoint Access Open Excel Connection

Question

Я закодировал макрос, который открывает документ Excel, а затем получает оттуда некоторые значения, старое значение устанавливается на тег в презентации, если текущие данные не соответствуют текущему тегу, тогда он выполнит функцию и установите тег для новых данных.

После того, как все вышеперечисленное выполнено, он использует xlApp.Quit, чтобы закрыть соединение Excel

Я хочу пропустить шаг xlApp.quit и просто получить доступ к уже открытое соединение вместо открытия нового каждого слайда, так как это добавляет 4-секундную задержку для любой анимации на экране.

Sub OnSlideShowPageChange()

    ActivePresentation.UpdateLinks

    Dim xlApp As Excel.Application
    Dim xlWorkBook As Object
    Dim Current As Object

    Set xlApp = New Excel.Application
    Set xlWorkBook = xlApp.Workbooks.Open("C:\Users\Michael\Documents\Wallboard Test Data.xlsm", True, False)
    Old = ActivePresentation.Tags("MobileDeal")
    Set Current = xlWorkBook.sheets("Check For GP Change").Range("B9")

    If Old <> Current Then ActivePresentation.Tags.Add "MobileDeal", Current: SendKeys ("{Tab}"): SendKeys ("{Enter}")

    xlApp.Quit
    Set xlApp = Nothing

End Sub