Dim TcsObj As CSDN.TCS
Dim App As CSDN.Tcs_Application
Dim NMks As CSDN.Nomenclatures
Dim NmkSpec As CSDN.NmkSpecification
Set TcsObj = CreateObject("CSDN.TCS")
Set App = TcsObj.Login
    
On Error Resume Next
    
If App.NmkClasses.RunModuleForSelect("Выберите класс", False) Then
    Set NMks = App.Nomenclatures(App.NmkClasses.Properties("ID").AsInteger)
    
    If NMks.RunModuleForSelect("Выберите номенклатуру", False) Then
        Set NmkSpec = App.NmkSpecification(NMks.Properties("ID").AsInteger, -1)
       
        rw = 1
        For i = 1 To NmkSpec.PropertiesCount
           Cells(rw, i).Value = NmkSpec.Properties(i - 1).Caption
        Next
        
        rw = rw + 2
        NmkSpec.First
        Do While Not NmkSpec.EOF
            For i = 1 To NmkSpec.PropertiesCount
                Cells(rw, i).Value = NmkSpec.Properties(i - 1).DisplayText
            Next
            NmkSpec.Next
            rw = rw + 1
        Loop
        
        Set NmkSpec = Nothing
    End If
    
    Set NMks = Nothing
End If
Set App = Nothing
Set TcsObj = Nothing