Обращение к переменной активной книге из xla файла

[tae1980]

В активной книге есть переменная "Адрес" со значением:
="г.Саратов"

Если в активной книге написать код

x=[Адрес]

x принимает значение "г.Саратов"
Если в xla книге насписать

x=activeworkbook.Names("Адрес").Value

x принимает значение "="г.Саратов""

Как в xla файле получить x значение "г.Саратов"?

[The_Prist]

А что, Replace и Mid уже не работают?

x=Replace(activeworkbook.Names("Адрес").Value,"=","")
x=Mid$(activeworkbook.Names("Адрес").Value,2)

[tae1980]

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

А что, Replace и Mid уже не работают?

x=Replace(activeworkbook.Names("Адрес").Value,"=","")
x=Mid$(activeworkbook.Names("Адрес").Value,2)

По этим командам в обоих случаях x=""г.Саратов"".... :(( То есть адрес остается в ковычках. Не уж-то еще химичить с len... :((

[The_Prist]

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

По этим командам в обоих случаях x=""г.Саратов"".... ( То есть адрес остается в ковычках. Не уж-то еще химичить с len... (

А функция ДУМАТЬ у Вас включена?

x=Replace(Replace(activeworkbook.Names("Адрес").Value,"""",""),"=","")

или
x=Replace(Replace(activeworkbook.Names("Адрес").Value,Chr(34),""),"=","")

[tae1980]

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

А функция ДУМАТЬ у Вас включена?

x=Replace(Replace(activeworkbook.Names("Адрес").Value,"""",""),"=","")
или
x=Replace(Replace(activeworkbook.Names("Адрес").Value,Chr(34),""),"=","")

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

[EducatedFool]

А если без хитростей - то так:

Sub test()    ' запускал из надстройки XLA
    ' вариант 1
    x = [Адрес]
    Debug.Print x
    ' вариант 2
    x = Application.Evaluate(ActiveWorkbook.Names("Адрес").Value)
    Debug.Print x
End Sub

Оба варианта возвращают г.Саратов

[The_Prist]

Вот Вам хитрость:
x=Range("Адрес").Value

[tae1980]

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

А если без хитростей - то так:

Sub test()    ' запускал из надстройки XLA
    ' вариант 1
    x = [Адрес]
    Debug.Print x
    ' вариант 2
    x = Application.Evaluate(ActiveWorkbook.Names("Адрес").Value)
    Debug.Print x
End Sub

Оба варианта возвращают г.Саратов

Да действительно... Спасибо!!!