подкаталоги

[Алабор]

Здравствуйте.
Подскажите как реализовать следующее: 3 раза в неделю получаем однотипные файлы Excel (одинаковая структура). Каждый раз они сохраняются в папку "текущая дата". Далее через импорт они собираются в один файл уже в Access (Необходимо именно в Access, т.к Office 2003, а таблицы исходные до 120к записей).
Как сделать, что б в Access можно было б выбрать подкаталог с текущими файлами, и все данные собрались в одну таблицу?
Во вложении файл Excel со структурой данных.
За ранее благодарен.

[OlegVE]

Здравствуйте
Попробуйте следующее

Sub ICanDoIt()
Dim DailyReportFILE
Dim DailyReportDIR
 ' Указываем свою папку (закомментировано)...
 'DailyReportDIR = "C:\DailyReportsDIR\" 
' ... или ищем *.xls в текущей
 DailyReportDIR = Curr_Dir
 ' Ищем все файлы
 DailyReportFILE = Dir(DailyReportDIR & "*.xls")
 ' Проходимся в цикле по всем найденным
 Do While DailyReportFILE <> ""
  DoCmd.TransferSpreadsheet acImport, , "ВашаТаблицаКудаИмпортировать", DailyReportDIR & DailyReportFILE, True
  ' Переходим к следующему файлу
  DailyReportFILE = Dir
 Loop
End Sub

До свидания
P.S. Похоже не очень то Вам было и нужно.
Прощайте. Мне тоже не нужно.