Dim TcsObj As CSDN.TCS
Dim App As CSDN.Tcs_Application
Dim cn As Integer
Dim i As Integer
Set TcsObj = CreateObject("CSDN.TCS")
Set App = TcsObj.Login
Dim Spr As CSDN.Parameters
Set Spr = App.Parameters
If Spr.RunModuleForSelect("Выделите несколько строк", True) Then
    rw = 1
    For i = 1 To Spr.PropertiesCount
       Cells(rw, i).Value = Spr.Properties(i - 1).Caption
    Next
    rw = rw + 2
    For cn = 0 To Spr.SelectedRowsCount - 1
        If Spr.GotoSelectedRow(cn) Then
            For i = 1 To Spr.PropertiesCount
                Cells(rw, i).Value = Spr.Properties(i - 1).DisplayText
            Next
            rw = rw + 1
        End If
    Next
End If
Set Spr = Nothing
Set App = Nothing
Set TcsObj = Nothing