VBAディレクトリにインポートデータは、全てのスプレッドシートから一定の基準を満たす

Question

この私は、次のコードこと：

Public Function Import_Multi_Excel_Files() 

Dim InputFile As String 
Dim InputPath As String 

InputPath = "L:\Directory\To\Project\Data\" 
InputFile = Dir(InputPath & "*.xls*") 
worksheetName = "WorksheetThatHasData!A:H" 

Do While InputFile <> "" 
    DoCmd.TransferSpreadsheet acImport, , "Table_1", InputPath & InputFile, -1, worksheetName, True '< The true is for column headers 
    InputFile = Dir 
Loop 

End Function 

上記コードがある（各ワークブック内の特定のワークシートからのデータのすべてをつかんされ良い）とそれをMS Accessにインポートします。しかし、私は、今月のレポートの日付は、現在の月と前月を常に含むことに気付きました。すべてのファイル名の形式はReport-YYYYMMです。私が蹴っているアイデアは、ファイル名のYYYYMM部分を見て、対応する日付のデータだけを取得するものです。

編集および追加

以下Actuarial_Report-201705
Enrollment_Report-201705

上記レポートの各月と4月からの情報を含むプレミアム-DATA-201705。しかし、前月のレポートには、4月から3月までのデータが明らかに含まれています。何が起こっているのは、私がインポートしたすべてのデータが登録、保険料、保険数理情報を2回カウントしたことです。私は、201705のレポートから201705のデータを取り出し、そのコードが201704の情報を無視するようにしたいだけです。

Answer 1

は、以下を使用してWhileループを交換してください：

MyDateColumn

Dim strMonth As String 
Dim strYear As String 
Do While InputFile <> "" 
    strMonth = Mid(InputFile, Len(InputFile) - 6, 2) 
    strYear = Mid(InputFile, Len(InputFile) - 10, 4) 
    DoCmd.TransferSpreadsheet acImport, , "Table_1", InputPath & InputFile, -1, worksheetName, True '< The true is for column headers 
    CurrentDb.Execute "DELETE * From Table_1 WHERE MyDateColumn < #" & strYear & "/" & strMonth & "/01#" 
    InputFile = Dir 
Loop 

は、あなたが日付を格納列です。

前提：あなたは、別のテーブルにインポートし、無効な日付情報を削除し、Table_1

にデータを追加したいと思う他に、保存しておきたいこと Table_1に他の古い情報を格納していません

ファイル名の末尾は変更できません。そうしないとバグが発生します。

私はクエリでパラメータを使用していませんが、文字列はファイル名に由来し、真中に/の最大長6を持つため、SQLインジェクションのリスクはありません。