Работа с именами

[tae1980]

Открываю файл как объект:

Set wb = GetObject(fil.path)

После чего из этого файла мне нужно получить значение имени, делаю это так:

    Объект(ОбъектДоговорНомер) = wb.Names("п_ДоговорНомер").Value

Имя содержит:
п_ДоговорНомер=ЕСЛИ(ИдДоговор_Номер ="";"____";ИдДоговор_Номер)
После пишу содержание в ячейку. Получаю в ячейке формулу из имени...
Как получить не формулу, а вычисленное значение?

[tae1980]

Попытка использовать строку вида

Объект(ОбъектДоговорНомер) = Evaluate(wb.Names("п_ДоговорНомер").Value)

Приводит к возврату ошибки "Error 2029".

[npocmop]

опять 2029

[tae1980]

Сообщение от tae1980

Имя содержит:
п_ДоговорНомер=ЕСЛИ(ИдДоговор_Номер ="";"____";ИдДоговор_Номер)
После пишу содержание в ячейку. Получаю в ячейке формулу из имени...
Как получить не формулу, а вычисленное значение?

Ни как не пойму в чем косяк. ( Сначала думал, что файл просто не может высчитать формулу, так как файл по сути не загружен. Потом смотрю, нет вот он в загрузился просто его не видно в пуске...

[tae1980]

Задача: из книги на диске в открытую книгу изъять данные, в данном случае значения Имен. И записать их в ячейки.
Если выполнить вот этот код:

Set wb = Workbooks.Open(fil.path, ReadOnly:=True, UpdateLinks:=0)
    With wb
        q1 = .Names("ИдДоговор_Номер").Value
        q2 = [ИдДоговор_Номер]
        q3 = Evaluate(.Names("ИдДоговор_Номер").Value)
    End With

перемеренные примут следующие значения:
q1="='Исх.данные договора'!$C$68"
q2=Error 2029 '#ИМЯ!
q3=Error 2023 '#ССЫЛКА!

В случае q2, программа скорее всего пытается найти имя "ИдДоговор_Номер" в текущей книге, а не в wb.
В случае q3, программа правильно взяла содержимое имени (то есть "='Исх.данные договора'!$C$68"), но снова пытается найти лист "Исх.данные договора" в текущей книге, а не в wb.
Как быть??? Что я снова делаю не так?

[tae1980]

Вопрос снимается, разобрался самостоятельно. Жаль что ни кто не смог подсказать...
Единого решения для всех имен нет. Для имен содержащих ссылки на ячейки нужно использовать строку вида:

Объект(ОбъектДоговорНомер) = wb.Names("ИдДоговор_Номер").RefersToRange

Для имен содержащих текстовое значение, следует использовать строку вида:

Объект(ОбъектДоговорНомер) = wb.Names("ИдДоговор_Номер").Value

Где wb - объект листа.

Для имен которые содержат формулы решение пока не нашел... (( Но на текущий момент я могу обойтись без них. Так как изымаю исходные данные, а не результат работы. Все как-то криво...