在powerpoint和excel VBA之间交换variables
当按下button时,我有一个从excel表中获取一些数据的powerpoint压力。
Set EXL = New Excel.Application EXL.Visible = False Dim XLApp As Excel.Application Set XLApp = GetObject(, "Excel.Application")
这是我如何设置新的Excel应用程序。
我想知道的是,我怎样才能从我的幻灯片variables发送到Excel工作簿的variables? 我在我的幻灯片幻灯片,我想要在Excel中的variables中使用的文本textfield。 这可能吗? 如果是这样,怎么样?
而且我怎样从一个powerpoint模块中调用excel工作簿中的一个Sub来运行?
(这是来自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
至于在你的Excel应用程序中调用一个Sub,你可以使用
XLApp.Run("MySub")
这也有能力传递参数的方法(intellisense应该告诉你的方式)