Получение выходного параметра из формулы

[sch_vitaliy]

Здравствуйте! Проблема такая: Хочу взять формулу в ней поправить значение. На сколько я понял, это нельзя сделать не пересоздавая формулу, так как value - read only. Приходится пересоздавать:

Код: Выделить всё

Dim rels As Relations
Set rels = prod.Relations
For i = 1 To rels.Count
    Dim val As String
    Dim comment As String
    Dim name As String
    Dim outParameter As Parameter

    val = Replace(rels.Item(i).Value, "deleted_", "")
    comment = rels.Item(i).comment
    name = rels.Item(i).name
    Set outParameter = rels.Item(i).GetOutParameter(1)

    rels.Remove (rels.Item(i).name)
    Dim rel As Relation
    Set rel = rels.CreateFormula(name, comment, outParameter, val)
Next i


На строке

Код: Выделить всё

    Set outParameter = rels.Item(i).GetOutParameter(1)

ругается : class does not support automation or does not support expected interface

[Wireless_Fidelity]

Здравствуйте.


А формула и параметр живые, без ошибок? Можете выложить проблемный документ или хотя бы его дерево спецификаций в максимальнг подробнгм виде? У меня-то все работает.