запись данных в MS ACCESS из MS EXCEL с помощью VBA???

[oljinn]

народ, помогите, плззззззззз!!!
есть папка с файлами .xls
необходимо из Access открывать поочередно файлы из папки, считывать данные из файла по определенному условию (например, если содержимое ячейки = "Пример", то считать в таблицу Access все строки, идущие ниже)
после считывания информации из файла, закрывать его и перемещать в другую папку
и так до тех пор, пока в исходной папке не закончатся файлы
это, вообще, реально написать на VBA??? и как, хотя бы примерно, должен выглядеть код???
спасибо большое за ответы!

[Saper]

Можно через OLE Automation:

Set Exc=CreateObject("Excel.Application")
Set WB=Exc.Workbooks.Open("C:\Книга1.xls")
Set Sh=WB.Sheets(1)
For I=1 to Sh.Cells.SpecialCells(xlCellTypeLastCell).Row
If Sh.Cells(I,1)=1 then
...
else
...
endif
Next
WB.Close
Exc.Quit

[Saper]

Копировать, а потом удалить:
FileCopy "C:\Книга1.xls", "C:\TMP\Книга1.xls"
Kill "C:\Книга1.xls"

[Saper]

А перебрать файлы в папке можно с помощью функции Dir()
Do while Len(Dir("C:\*.xls"))>0
Выполнить действия
Loop
А можно использовать объект FileSystemObject из библиотеки Microsoft Scripting Runtime