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

У меня есть пресс 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 для запуска?

Источник

2 ответа

Решение

(Это некоторый упрощенный производственный код из 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
Источник

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

XLApp.Run("MySub")

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

Источник
Другие вопросы по тегам