Private Function GetValue(path, file, sheet, ref)
'Функция GetValue имеет четыре аргумента:
'¦ path – путь к закрытому файлу (например, "d:\files");
'¦ file – название рабочей книги (например, "budget.xls");
'¦ sheet – название рабочего листа (например, "Лист1");
'¦ ref – ссылка на ячейку (например, "C4").
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

Sub Сбор_инфы()
p = ActiveWorkbook.path
i = 1
f = Dir(p & "\отдел" & i & ".xls")
     Do While f <> ""
         DoEvents
         s = "Заяка отдела"
         For r = 22 To 35
             a = Cells(r, 9).Address
             t = GetValue(p, f, s, a)
             Cells(r, 9) = Cells(r, 9) + t
         Next r
         i = i + 1
         f = Dir(p & "\отдел" & i & ".xls")
     Loop
End Sub

Sub Сбор_инфы()
Range("I22:I35").ClearContents