Dim OcsObj As CSDN.OCS
Dim App As CSDN.Ocs_Application
Set OcsObj = CreateObject("CSDN.OCS")
Set App = OcsObj.Login
Dim Spr As CSDN.WorkGroups
Set Spr = App.WorkGroups
rw = 1
For i = 1 To Spr.PropertiesCount
   Cells(rw, i).Value = Spr.Properties(i - 1).Caption
Next
rw = rw + 2
Spr.First
Do While Not Spr.EOF
    For i = 1 To Spr.PropertiesCount
        Cells(rw, i).Value = Spr.Properties(i - 1).DisplayText
    Next
    Spr.Next
    rw = rw + 1
Loop
Set Spr = Nothing
Set App = Nothing
Set TcsObj = Nothing