How to use VBA to get SQL stt of variables and print out?

sdk development
2

You can download from Bob’s Downloads the Excel Utility for mass update of a universe :
Mass update to object names / descriptions

The next step - replace the GetInfo procedure with the following one:


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

You`ll be able to save the document as text or whatever.

sharone (BOB member since 2002-10-17)