0

我在自动创建的数据文件中有这个宏（创建的一部分是插入和运行宏）。我想打开一个模板文件，然后需要运行一个包含 excel 数据文件名的 PPT 宏。调用宏（data1.xlsm）的那个我有这个，但无法用文件名找出宏调用。

Dim PPTObj As Object 
Set PPTObj =    CreateObject("PowerPoint.application") 
With PPTObj 
.Presentations.Open Filename:="C:\Presentations\Company\Template.pptm" 
.Run  "Template.pptm!MainMacro" 
End With

.Run "Template.xlsm!MainMacro(filename)" 是我要找的。

也许另一个方向是在PPT中获取对象。但是如何在事先不知道的情况下获取数据文件名/路径？

Set wb - getobject(openwexcelfile)

由于另一个程序（不是办公室）正在创建数据文件，我不知道它的名称或目录，但它是调用 powerpoint 宏的文件，它将被打开。

感谢您的任何见解。

4

1 回答 1

0

感谢共产国际的洞察力。这是最终的解决方案。睡眠是为了让 PPT App 在尝试运行宏之前打开。

Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub auto_open()

fname = ActiveWorkbook.Name
Path = ActiveWorkbook.Path

Dim PPTObj As Object
Set PPTObj = CreateObject("PowerPoint.application")
PPTObj.Presentations.Open Filename:="C:\presentation\Template.pptm"
    Sleep (3000)
PPTObj.Run "Template.pptm!Main", fname, Path
End Sub
于 2016-12-07T19:22:20.660 回答