Как в Accesse работать с excel-файлом? - VB

Формулировка задачи:

Проблема такова: из эксель файла надо перетащить данные в таблицу, но не стандартным импортом, а по-ячеечно(есть ли такое слово?). т.е. брать содержимое ячейки и если оно удовлетворяет набору критериев, то заносить в таблицу. Кто бы мне помог? Заранее благодарю...

Решение задачи: «Как в Accesse работать с excel-файлом?»

textual
                            Листинг программы 
                        

                            Dim AppExcel As Excel.Application
Dim xlsSheet As Excel.Worksheet
 
Set appExcel = CreateObject('Excel.Application')
appExcel.Workbooks.Open 'C:Твой файл.xls'
Set xlsSheet = appExcel.ActiveSheet
 
'и поехал считывать или записывать в свою таблицу данные по ячейкам листа
v=xlsSheet.Cells(1,1)
v=xlsSheet.Cells(1,2)
                        