Minitab会自动关闭，并显示Excel宏

Question

我想运行宏，以便对单独存储的excel文件执行功能。我创建了一个minitab宏文件，并将其保存为in.MAC格式。当我运行excel宏代码以打开minitab代码时，它会运行mac代码并自动关闭

    Sub GetModel()

    Dim MtbApp As Object

    ActiveWindow.WindowState = xlMinimized
    Set MtbApp = CreateObject("Mtb.Application")
    

    
    MtbApp.Open "C:\Users\gvadivel\Desktop\Gowtham\Project_3_Capability Study\minitabfile\Minitab.MPJ"
           
    MtbApp.ActiveProject.ExecuteCommand "%test2"


    End Sub

Answer 1

子GetModel()

Dim MtbApp As Object

ActiveWindow.WindowState = xlMinimized
Set MtbApp = CreateObject("Mtb.Application")



MtbApp.Open "C:\Users\gvadivel\Desktop\Gowtham\Project_3_Capability Study\minitabfile\Minitab.MPJ"

Set mtbUI = MtbApp.UserInterface
    mtbUI.Visible = True
    mtbUI.Interactive = True
    mtbUI.UserControl = True
    mtbUI.DisplayAlerts = True

MtbApp.ActiveProject.ExecuteCommand "%test2"

End Sub