Question

我有一个powerpoint pres，可以在按下按钮时从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模块调用excel工作簿中的Sub来运行？

Answer 1

（这是来自Access数据库的一些简化的生产代码，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

至于在Excel应用程序中调用Sub，可以使用

XLApp.Run("MySub")

这也能够将参数传递给方法（intellisense应该向你展示方式）

在powerpoint和excel VBA之间交换变量

2 个答案: