Обмен переменными между PowerPoint и Excel VBA

Question

У меня есть пресс powerpoint, который при нажатии кнопки извлекает некоторые данные из таблицы Excel.

Set EXL = New Excel.Application
EXL.Visible = False

Dim XLApp As Excel.Application

Set XLApp = GetObject(, "Excel.Application")

Так я установил новое приложение Excel.

Что меня интересует, так это как я могу отправить переменную из слайда PowerPoint в книгу Excel? У меня есть текстовое поле в слайде PowerPoint, в котором я хочу, чтобы текст использовался в переменной в Excel. Это возможно? Если да, то как?

А как мне из модуля powerpoint вызвать Sub в рабочей книге excel для запуска?

Answer 1

(Это некоторый упрощенный производственный код из Access db, powerpoint может иметь несколько незначительных отличий)

What I'm wondering is how I can send over a variable from my powerpoint slide into the excel workbook?

Sub SetXLCellValue( _
    FileStr As String, _
    TabStr As String, _
    Cell As String)

    Dim XLApp As New Excel.Application
    Dim ObjXL As Excel.Workbook
    Set ObjXL = XLApp.Workbooks.Open(FileStr)

    ObjXL.Worksheets(TabStr).Range(Cell).value = value
    ObjXL.Save
    ObjXL.Close True
End Sub

Answer 2

Что касается вызова Sub в вашем приложении Excel, вы можете использовать

XLApp.Run("MySub")

Это также позволяет передавать параметры в метод (intellisense должен указывать вам путь)