如何在vba中运行MiniTab可执行文件（.mtb）

我更愿意将其作为命令按钮合并到用户表单中。 到目前为止我已经尝试过的代码：

Private Sub graphButton_Click()

    Dim mtbPath As String: mtbPath = "S:\MetLab (Protected)\MetLab Operations\Lab 
    Reports\Forgings"

    Call Shell(Environ$("COMSPEC") & " /s " & mtbPath & "\Updater.mtb", vbNormalFocus)

End Sub

---

其中Updater.mtb是我想要执行的实际文件。这似乎只是打开命令提示符-这不是我想要的

复制并粘贴到VBA模块中：

    Sub Run_Minitab_Macro()

    Set MtbApp = CreateObject("Mtb.Application")

    With MtbApp.ActiveProject
    'This lets you open an excel file from your desktop:
    .ExecuteCommand "WOpen 'C:\Users\you\Desktop\TEMP1.xlsx'; FType; Excel." 
    'Save the minitab project to my documents:
    .ExecuteCommand "Save  'C:\Users\you\My Documents\Test.MPJ'; Project; Replace."
    'On Error Resume Next
    .ExecuteCommand "%MacroFile" 'This is a .MAC macro file stored in the my 
                                 'documents folder saved to here, 
                                 'any command-line command can go here though
    'On Error GoTo 0
    .ExecuteCommand "Save."
    End With

    End Sub

---

通常，如果Shell参数有空格，则需要将其括在双引号中。先试试这个<代码>调用Shell（Environ$（“COMSPEC”）&“/s”“”&mtbPath&“\Updater.mtb”“”，vbNormalFocus）我现在遇到一个语法错误。有没有更简单的方法来解决这个问题？我只想在我的用户窗体上有一个按钮来运行我的可执行minitab宏文件。