WindowsエクスプローラからAccess DBへのcsvファイルの自動インポート

Question

Windowsエクスプローラを自動的にループし、ウィークリーレポートテーブル（Wkly_Rprt）にファイルをインポートし、フォーマットを実行し、週に追加するためのADBがありますサマリーテーブル（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