Добрый день!
Пытаюсь получить содержимое ячейки из закрытой рабочей книги.
Взял пример из книги, но он не работает!
Ругается в момент формиравания аргумента arg. Даже до самой функции не доходит!
Может быть кто-то увидит в чем дело или кто-то знает формат этого аргумента для встроенной функции ExecuteExcel4Macro(arg).

Спасибо.


Private Sub open_File
p = "C:\Temp"
f = "Журнал_test.xls"
s = "журнал_2007"
a = "A1"
MsgBox GetValue(p, f, s, 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("А1").Address(, , xlR1C1)

' Выполнение иакроса XLM
GetValue = ExecuteExcel4Macro(arg)
End Function

СПАСИБО!!!

Если можно, еще вопрос.
При помощи этой команды я получаю содержимое только одной ячейки из закрытой книги, скажем А4.
GetValue = ExecuteExcel4Macro(arg)
Необходимо получить данные из пяти ячеек (A4, I4, P4, T4, W4)
Эту команду нужно исполнить 5 раз, или есть возможность для уменьшения времени обработки
как-то за одно обращение?