How to create AML in Excel?

Reply

Jon Hodge Posted: Wed, Jan 31 2007 9:20 AM

rated by 0 users

Excel, and any other program which uses VBA as a macro language, can act as an Innovator client using the ArasIOMActiveX.dll. You need be familiar with the built in Visual Basic Editor in Excel. The steps are:

1)       Extract ArasIOMActiveX.dll from /Innovator/client/cbin/ArasIOM.cab to windows/system32 (or other path)
2)       From windows Start>Run regsvr32 ArasIOMActiveX.dll (or with alternate path)
3)       In VBA editor  Add Reference to ArasIOMActiveX.dll.

Now you can create Innovator items as in the following fragments. The commit sub enables you to either send AML to the server or save it to a file.

Sub newTemplate()
    Dim oInnov As New Innovator
    With oInnov.credentials
        .setInnovatorServerURL InnovatorServerURL
        .setDatabase Database
        .setLoginName LoginName
        .setPassword Password
    End With
    Set result = oInnov.login
         If result.IsError() Then
            MsgBox "Error at logon " & vbCrLf & result.getErrorDetail
            Exit Sub
        End If
  
    Dim iTopWBS: Set iTopWBS = oInnov.newItem

    With iTopWBS
        .setAttribute "id", Cells(1, 3)
        .setType "Project Template"
        .setProperty "name", Cells(1, Name)
        .setProperty "wbs_id", Cells(1, ID)
        .setAction "merge"
        commit iTopWBS
   End With
End Sub

Sub commit(item)
    If fileName = "" Then
        Set result = item.Apply
        If result.IsError() Then
            MsgBox "Error row at Top WBS" & vbCrLf & result.getErrorDetail
            Exit Sub
        End If
    Else
        Set fs = CreateObject("Scripting.FileSystemObject")
        Set f = fs.OpenTextFile(filePath & fileName, 8)
        f.WriteLine (item.node.XML)
        f.Close
    End If
       
End Sub

Reply

Dave Higgins replied on Tue, May 24 2011 5:23 PM

rated by 0 users

Is there a contemporary version to this? I can't find ArasIOMActiveX.dll in my distribution. I do find IOM.dll, but it has problems when running regsvr on it.

Thanks.