Чтение спецификации VBA для вывода в Excel (например)

[Евсеева Людмила]

Здравствуйте.
У меня не получается прочитать спецификацию (.spw) для вывода в Excel
Читается только раздел Документация и колонка формат с ним.
Помогите, пожалуйста, Компас 3D v22
Текст:

  BaseNote = ""
  Set SpDesc = SpDoc.SpecificationDescriptions.Active
  Objs = ScriptHelper.ConvertArray( SpDesc.Objects )
  For j = LBound(Objs) to UBound(Objs)
      Call TCSApp.ShowProgressMessage( "Îáðàáîòêà ïîçèöèè " & (j+1), "" )
      ' j  - ñòðîêà ñïåöèôèêàöèè
      Set Obj = Objs(j)      '  1 - áàçîâûé îáúåêò (îñòàëüíûå íå íóæíû)
      if Obj.ObjectType = 1 Then
        Format = "" : Zona = "" : Position = "" : Comment = "" : Note = "" : Name = "" : PackNote = ""
        'For k = 0 to spIdx.Count - 1
        '  spIdx.TagValues(k) = 0
        'NExt

        For k = 0 To Obj.Columns.count - 1
            Set Col = Obj.Columns.item(k)
            IndC = 0
            Text = ""
           
            Do While IndC < Col.ColumnItems.count
              Set Item = Col.ColumnItems.item(IndC)
              Text = Text + Item.Value
              IndC = IndC + 1
            Loop

Call TCSApp.ShowMessageBox( k, Text) 
'  в этом месте выводится только формат на все k     
            Set col = Obj.Columns.Item(k)

            Select Case col.ColumnType
            Case 1  Format = col.Text.Str
            Case 2  Zona = col.Text.Str
            Case 3  Position = col.Text.Str
            Case 4  Note = col.Text.Str
            Case 5  Name = col.Text.Str
            Case 7  Comment = col.Text.Str
            Case 6  idx = spIdx.IndexOfName( col.ColumnTypeNumber & "." & col.BlockNumber )
                    spIdx.TagValues(idx) = Obj.SummaryCount( col.ColumnTypeNumber, col.BlockNumber )
                    Set colit = col.ColumnItems
                 
                   
            End Select
        Next
        Name = Replace(Name, Chr(10), " ")

[Валерич]

Добрый день!
Может это посмотреть, программа здесь...

[Евсеева Людмила]

Спасибо, но не помогло, Главный вид ..... не ассоциативным.
Пользователи заполняют спецификацию вручную, а я должна из их спецификации прочитать данные и заполнять спецификацию в другой системе (TechnologiCS), средствами API