Доброго дня !

Имею Excel
Range("A1").FormulaR1C1 = "='C:\WORK\[a.xls]Лист1'!$A$1"

Конкретное значение получаю ТОЛЬКО при присвоении в ячейку листа

Хочу писать значение в переменную
A = "='C:\WORK\[a.xls]Лист1'!$A$1"

Прием Application.Evaluate("='C:\WORK\[a.xls]Лист1'!$A$1"), работает если книга
c:\WORK\a1.xls - предварительно открыта.

Какие есть еще способы подскажите пожалуйста

Заранее благодарен !

Shocker.Pro,

Работает ли у Вас этот метод из ФУНКЦИИ (не процедуры) пользователя ?

т.е.
Public function AA(C as String)
AA= ExecuteExcel4Macro(C)
end function

Вызов - ввод в ячейку A1 формулы
=AA("c:\work\book.xls.....[A1]")

Пробывал .... но увы (может не так сделал ?)

HOME_X,

Но если инициировать вызов из процедуры - все в порядке

Private Sub CommandButton1_Click()
Dim S As String
S = Application.Run("TOOLBARS.XLA!AA", "'C:\WORK\[a.xls]Лист1'!R1C1")
Range("A10").Value = S
End Sub

В чем разница кто-то может сказать ?

HandKotHOME_X, в тексте справки, где указано, что данный метод работает ТОЛЬКО с видом ссылок RC



Уже побывал -
Запустил с процедуры

Private Sub CommandButton1_Click()
Range("A30").Value = Application.Run("A.XLA!AA")
End Sub

Запустил с листа
A10=AA()


Function AA()
Dim S As String
S = "'C:\WORK\[a.xls]Лист1'!R1C1"
AA = Application.ExecuteExcel4Macro(S)
End Function

Та же ошибка... попробуйте сами если не сложно

HOME_X,

Вероятно есть какая-то разница в типе запуска ?

HOME_X,

Никто не знает ?
Никто не сталкивался ?