Minitab使用Excel宏自动关闭

编程问答 2022-06-03

问题描述

我想运行宏以对单独存储的excel文件执行功能。我创建了一个minitab宏文件，并将其保存为.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

解决方法

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"

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

MtbApp.ActiveProject.ExecuteCommand "%test2"

End Sub
excelexcelminitabvba