Macro for Universe

we have a macro that opens up designer in 6.5 that copies all the objects into an excel spreadsheet, allows the users to make changes to the objects and then those changes are implemented into universe.

however, we have migrated to XIR2 and this macro only opens 6.5 and won’t recognize XIR2 designer. Is there something missing or not specific enough in this code that determines which version of designer the macro opens?

any help would be appreciated!

here’s the macro code:

Option Explicit
Dim DesignerApp As Designer.Application
Dim Univ As Designer.Universe
Dim Wksht As Excel.Worksheet

Sub GetInfo()

Set DesignerApp = New Designer.Application
DesignerApp.Visible = True
Call DesignerApp.LoginAs
Set Univ = DesignerApp.Universes.Open
DesignerApp.Visible = False

Set Wksht = ThisWorkbook.Worksheets("Objects")
Wksht.Unprotect
Range("Objects").ClearContents
Call GetObjectInfo(Univ.Classes, 1)
Range("Objects").Resize(Wksht.UsedRange.Rows.Count - 1, 5).Name = "Objects"
Range("Objects").Columns("D:E").Value = Range("Objects").Columns("B:C").Value
Wksht.Protect

DesignerApp.Quit
Set DesignerApp = Nothing

End Sub


bossmane (BOB member since 2005-08-16)

[Moderator Note: Moving from Semantic Layer forum to SDK.]


Marek Chladny :slovakia: (BOB member since 2003-11-27)

Please see this topic to see that the author has provided an update for XI.


Dave Rathbun :us: (BOB member since 2002-06-06)

i see but it’s not exactly the same thing as the macro we are using allows them to alter the column names and export the universe out.

i was just trying to figure out what was the difference in the declaration b/w opening 6.5 and XI


bossmane (BOB member since 2005-08-16)

Oh, sorry. There is another macro from Dwayne that does that. It’s also updated, have a look at the index topic in the BOB’s Downloads section.


Dave Rathbun :us: (BOB member since 2002-06-06)

found it, thanks for the help


bossmane (BOB member since 2005-08-16)