将 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