Dim pDoc As PartDocument = InvApp.ActiveDocument
Dim EWS As Worksheet = pDoc.ComponentDefinition.iPartFactory.ExcelWorkSheet
Dim sName As String = "Имя столбца"
Dim i As Integer
For i = 1 To 256
If EWS.Cells(1, i).Text = "" Then Exit For
If EWS.Cells(1, i).Text = sName Then Exit For
Next
EWS.Cells(1, i) = sName
Dim oFactory As iPartFactory = pDoc.ComponentDefinition.iPartFactory
Dim oRow As iPartTableRow
Dim j As Integer = 2
For Each oRow In oFactory.TableRows
EWS.Cells(j, i) = "Значение параметра"
j = j + 1
Next
EWS.Parent.Save()
EWS.Parent.Close()