Run Inventor Macro from Excel

[Anonymous]

Hello there,

I'm trying to launch an inventor Macro via an Excel Command Button.

I've managed to open the inveotor document in which all the macros are. Now all left to do is to run one macro.

I tried for hours and, sadly, I'm not able to get this to work.

Here is what I have:

Public Sub CommandButton1_Click()

    Dim InvFilename As String
    
    CommandButton1.Caption = "hello there."

    InvFilename = "my_path"

    InvFilename = "C:\Program Files\Autodesk\Inventor 2017\Bin\inventor.exe """ & InvFilename & """"

    Call Shell(InvFilename, 1)
    

    Dim inv As Object
    Set inv = CreateObject("Inventor.Application")
    inv.Run "Module1.test"                              '<-----------------------ERROR 438

End Sub

This is the Error Message I get: Object doesn't support this property or method. 438

Can someone please help me?

-Jake

[MechMachineMan · Accepted solution]

invApp.VBAProjects(1).InventorVBAComponents("AppEventController").InventorVBAMembers("StartEvent").Execute

[Anonymous]

Thanks for your reply.

I just managed to do it myself via the following code. I guess your way is more elegant.

    Dim invApp As inventor.Application
    Set invApp = GetObject(, "Inventor.Application")

    Dim invVBAProject As InventorVBAProject
    Set invVBAProject = invApp.VBAProjects.Item(2)

    Dim invModule As InventorVBAComponent
    Set invModule = invVBAProject.InventorVBAComponents.Item("Main")

    Dim invSub As InventorVBAMember
    Set invSub = invModule.InventorVBAMembers.Item("test")

    invSub.Execute

If anyone ever wants to do the same thing as I did:

It doesn't work to open the Inventor Project and immediatley execute the macro, so it isn't possible to use just one macro. The Execution has to start when inventor is fully loaded not a second before, otherwise this Error appears "ActiveX Component Can't Create Object (429)".

 I simply use one button to start inventor and a second one to trigger the macro.

Maybe it helps someone

-Jake

[MechMachineMan]

You can do it all in one by having a wait loop to delay the code until the
invApp.Ready = True