Автоматический импорт файлов csv из проводника Windows в Access DB

Question

У меня есть ADB, который я ищу для автоматического цикла через проводник Windows, импортирования файла в еженедельную таблицу отчетов (Wkly_Rprt), выполнения форматирования и добавления его к еженедельному (Wkly_S_Rprt), а затем удалить каждый файл из проводника Windows? Имена файлов находятся в том же формате, что и дата, измененная в конце. Если да, то как бы это выглядело, поскольку я просмотрел множество других примеров без большой удачи.

Большое вам спасибо за помощь!

Answer 1

Используйте Scripting.FileSystemObject для перебора файлов и файлов файловой системы. Вот пример кода, который я использую для импорта файлов из определенной папки:

Private sub ImportCSVs(TempImportFolder as String) 

    On Error Goto ImportCSVs_Err 
    Dim objFS As Object, objFolder As Object, objFiles As Object 

    Set objFS = CreateObject("Scripting.FileSystemObject") 
    Set objFolder = objFS.GetFolder((TempImportFolder)) 
    Set objFiles = objFolder.Files 
    For Each file In objFiles 
     DoCmd.TransferText acImportDelim, "[import_spec]", "Wkly_Rprt", TempImportFolder & "\" & file.Name, False 
     'Remove old data .... 
     'Append new data .... 
     'Delete file: 
     objFs.DeleteFile TempImportFolder & "\" & file.Name 
NextFile: 
    Next 
ImportCSVs_Exit: 
    Exit Sub 
ImportCSVs_Err: 
    'Handle Errors occurred do to file structure, and Resume NextFile 

End Sub 

Вы можете сканировать папку для вложенных папок, и запустить этот код на каждую подпапку тоже, sample code at this reference