Public Function Getvalue(path, File, sheet, ref)
Dim Arg As String
Arg = "'" & path & "[" & File & "]" & sheet & "'!" & Range(ref).Range("A1").Address(, , xlR1C1)
Getvalue = ExecuteExcel4Macro(Arg)
End Function

проверено работает
а вот еще вариант

Private Sub ExcelEarlyBinding()

Dim xlAp As New Excel.Application
Dim xlWb As Excel.Workbook
Dim NumRow As Currency
Dim NumCol As Integer

Set xlWb = xlAp.Workbooks.Open(iPath & iFile)
Set rgn = xlWb.Sheets(ilist).Cells(1, 1).CurrentRegion
NumRow = rgn.Rows.Count
NumCol = rgn.Columns.Count

For r = 1 To NumRow
For C = 1 To NumCol
iData = rgn.Cells(r, C).Value
MsgBox idate
Next C
Next r

xlWb.Close False
xlAp.Quit

Set xlWb = Nothing
Set xlAp = Nothing

End Sub

в этом варианте можно и записывать в фаил, только тогда надо закрывать с сохранением
xlWb.Close true