Переменной значение ссылки.

[Hugo121]

Меняйте пути и названия на свои:

Sub test()
    iPath = "C:\Downloads\"
    file = "test.xls"
    sh = "Июль"
    a = "C4"
    MsgBox GetValue(iPath, file, sh, a)
End Sub


Private Function GetValue(path, file, sheet, ref)
    Dim arg As String
    If Right(path, 1) <> "\" Then path = path & "\"
    If Dir(path & file) = "" Then
        GetValue = "-"
        Exit Function
    End If
    arg = "'" & path & "[" & file & "]" & sheet & "'!" & _
          Range(ref).Range("A1").Address(, , xlR1C1)
    GetValue = ExecuteExcel4Macro(arg)
End Function

[IgorGO]

как по мне запись

...Range(ref).Cells(1).Address(, , xlR1C1)

выглядит логичнее, чем

...Range(ref).Range("A1").Address(, , xlR1C1)

[Hugo121]

Не вникал, не моё

[valerij]

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

программист не так

IgorGO!!
Ну с чего ты решил, что я программист?????
Всё это только для меня, лично, а когда уйду в иной мир - эти мои файлы никому не надо будут ибо приемники, полные нули в ПК.

Не работает твой код, открывает книгу по ссылке, пробегает по всем макросам, но в итоге, показывает правильно, но всё открыто!

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

Меняйте пути и названия на свои:

Всё отлично.
Неужто такой большой код?

А что такое GetValue?
В первые вижу(в анг. не кумекаю).

[Hugo121]

GetValue - это название. Не ломай голову, не важно...

[IgorGO]

а можно посмотреть копию кода, который не работает? (4-е строчки, чему там не работать)))

очень загадочная фраза: "пробегает по всем макросам"
по каким еще макросам?

предложенный фрагмент должен открыть файл, взять в Х значение из С4 показать его, закрыть файл.

[valerij]

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

а можно посмотреть .....

Даже кино покажу.

http://youtu.be/2cdWIA55Va4

Sub qq()
With Workbooks.Add("H:\3_Квартал\3_КВ.xls")
  x = .Worksheets("Июль").Cells(4, 3).Value
  MsgBox x
End With
End Sub

[IgorGO]

кино не смотрел. обрати внимание в коде была еще строка

.close false

добавишь в код - будет закрываться файл.

[valerij]

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

кино не смотрел. обрати внимание в коде была еще строка

.close false

добавишь в код - будет закрываться файл.

А ты посмотри, close false, да не заметил, добавил, да закрывает, но от веера - "пробегает по всем макросам" не спасает.
Может есть думка как от этого избавится(время работы макроса, очень сильно >>)?
Кода действительно много <<!!!

[IgorGO]

в начале макроса запретить события

в конце разрешить.

а вообще я не знаю, что за макросы работают и должны ли, кроме тебя ни кто этого не знает более того - ни кому это не интересно.