не могу разобраться в общедоступном примере
Function GetValue(path, file, sheet, ref)
'Функция GetValue получает в качестве параметров:
' path – путь к закрытому файлу (например, "d:\files");
' file – название рабочей книги (например, "budget.xls");
' sheet – название рабочего листа (например, "Лист1");
' ref – ссылка на ячейку (например, "C4").
If Right(path, 1) <> "\" Then path = path & "\"
' проверяем наличие файла по заданному пути
If Dir(path & file) = "" Then GetValue = "Файл не найден": Exit Function
' формируем строку запроса
arg$ = "'" & path & "[" & file & "]" & sheet & "'!" & _
Range(ref).Range("A1").Address(, , xlR1C1)
' считываем значение из закрытой книги
GetValue = ExecuteExcel4Macro(arg$)
' вместо ошибки возвращаем сообщение об ошибке
' к примеру, если лист не найден, или указана несуществующая ячейка
If IsError(GetValue) Then GetValue = "<ошибка>"
End Function
Sub ПримерИспользования_GetValue()
p = "C:\Documents and Settings\Бухгалтерия" ' папка с файлом
f = "расход.xls" ' имя файла
s = "доходы" ' название листа
a = "D145" ' интересующая нас ячейка
' выполняем загрузку данных из закрытой книги Excel
ЗначениеЯчейки = GetValue(p, f, s, a)
Debug.Print ЗначениеЯчейки ' выводим результат в окно Immediate
End Sub
на сколько я понял мы сначала передаем параметры для работы функции, а потом ее вызываем, не понятно что значит "значение ячейки"? и не вижу где писать диапазон для вставки
ЗначениеЯчейки = GetValue(p, f, s, a)
