在Excel中执行嵌入的.exe对象

这位OP想知道如何包含参数，但已经接受的解决方案似乎不支持。我用了一种不同的方法实现了它。这段代码会将文件提取到工作簿的目录中，然后执行它。

Sub saveAndRunFileExample()

ActiveSheet.OLEObjects(1).Copy

CreateObject("Shell.Application").Namespace(ActiveWorkbook.Path).Self.InvokeVerb "Paste"

Call Shell(ActiveWorkbook.Path & "\example.exe --parameter", vbNormalFocus)

End Sub