Макрос берёт данные из определённой ячейки закрытой книги и вставляет в ячейку активного листа. Под свои нужды, думаю, сами сможете модернизировать
[vba]Код
Sub Zapros()
Dim i As Integer, j As Integer, k As Integer
Dim PolniyPut As String, Putt As String, Imya As String
Const ImyfLista = "l1" ' имя листа откуда берём
Putt = "d:\Temp\test\excel\"
Imya = "fI.xlsx"
With ActiveSheet.Cells(1, 1) 'сюда вставляем
.Formula = "='" & Putt & "[" & Imya & "]" & ImyfLista & "'!$A$1" 'отсюда берём
.Value = .Value ' ссылка заменяется фиксированным значением
End With
End Sub
[/vba]