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)