что нить типа
Dim varCell(4) As Long, Lastrow As Long, Nomrow As Long, str$
Dim objExel As Excel.Application, objsheet As Excel.Worksheet, objbook As Excel.Workbook
Set objExel = New Excel.Application
Set objbook = objExel.Workbooks.Open(fname(0, i))' ну тут понятно файлы
      Set objsheet = objbook.Worksheets(1)' имена/индексы
varCell(2)-столбец по которому оцениваем размер таблицы
varCell(1) - столбец где ищем
str=""' искомое слово
 Lastrow = objsheet.Cells(objsheet.rows.Count, varCell(2)).End(xlUp).row ' наша последняя строка- до которой искать будем
Nomrow = varCell(1)' с какой строки начинается поиск
Do Until Nomrow > Lastrow
  If objsheet.Cells(Nomrow, varCell(1)) = str Then ' можно objsheet.Cells(Nomrow, varCell(1)) пообрабатывать
...
end if
                Nomrow = Nomrow + 1
            Loop

Dim Range1 as Range
set Range1=objsheet.range(objsheet.cells(varCell(1),1),objsheet.cells(Nomstrok,varCell(2))
' этот способ не нравится - но он широко распространен
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12, TableName(куда), FileName(откуда), False, Range1
' либо 
Dim i&, Mytbl as recordset, Massiv&(6)
'Massiv&(6)-это массив столбцов где находятся нужные данные
set  Mytbl =Currentdb.openrecordset("Mytbl", dbOpenDynaset)
with  Mytbl 
For i=1 to Range1.Rows.Count
.addnew' DAO
for j=1 to Ubound(Massiv)
' вроде так
.fields(j)=objsheet.cells(Range1.row, Massiv(j))
Next j
.update
Next
end with

' --------------------------
в основном  Range использую когда надо наоборот делать экспорт в Эксель,т.е. 
sheet2Excel.Range("B6:R6").value = "Общий заказ от ООО ""...ис""(справочно)" ' сразу merge
' ---------------------------------------
а также очень удобен такой способ
Set Range1= objsheet.UsedRange.rows.Find(str , , xlValues, xlWhole, xlByRows, xlNext) '  нашли нужную строку