在 PowerPoint 中调用名称位于 Excel-Cell 中的宏

Question

我想在 PowerPoint 中调用宏，其名称在工作表 "Tabelle1" 和单元格 "S2" 的 Excel 中。目标是通过更改单元格 "S2".

来触发不同的宏

目前，我尝试使用以下代码：

Sub SAP()
    Dim WB As Workbook, wks As Worksheet
    Dim ex As Object
    Set ex = CreateObject("Excel.Application")
    Set WB = ex.Workbooks.Open(FileName:="U:\Automatisierung\Auto.xlsx", ReadOnly:=True)
    Set wks = WB.Worksheets("Tabelle1")

Call givePathVal
Call Text_EAP
Call F_EAP
**Call WB.wks.Range("S2").Value** 'The Goal is to call this macro from PowerPoint
Call InsertPic_EAP

End Sub

如果我运行此代码，我会收到错误“430”。

我必须如何更改代码才能调用宏 "Kapazität"，其名称位于 Excel-Cell "S2" 中。

感谢您的帮助！

Answer 1

您必须使用 Application.Run method

例如，运行 Excel 应用程序中的宏 ex 而不是 Call WB.wks.Range("S2").Value 使用以下内容：

ex.Run wks.Range("S2").Value

或者如果您需要指定工作簿名称：

ex.Run "'Auto.xlsx'!" & wks.Range("S2").Value

或者如果宏在 PowerPoint 中，使用：

Application.Run wks.Range("S2").Value

在 PowerPoint 中调用名称位于 Excel-Cell 中的宏

Call Macro in PowerPoint which Name is in a Excel-Cell

excel

powerpoint

vba