Automatischer Import von CSV-Dateien aus Windows Explorer in Access DB

Question

Ich habe eine ADB, die ich automatisch durch den Windows Explorer durchlaufen, die Datei in eine wöchentliche Berichtstabelle (Wkly_Rprt) importieren, Formatierung durchführen und an eine wöchentliche anhängen Übersichtstabelle (Wkly_S_Rprt), und löschen Sie dann jede Datei aus Windows Explorer? Dateinamen haben das gleiche Format, das Datum wird am Ende geändert. Wenn ja, wie würde das aussehen, da ich ohne viel Glück zahlreiche andere Beispiele durchgesehen habe.

Vielen Dank für Ihre Hilfe!

Answer 1

Verwenden Sie Scripting.FileSystemObject, um durch Dateisystemordner und Dateien zu iterieren. Hier ist ein Beispiel von Code ich für Dateien aus einem bestimmten Ordner importieren:

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 

Sie einen Ordner für Unterordner scannen können, und führen Sie diesen Code auf jeden Unterordner auch sample code at this reference