csvファイルをインポート中にアクセステーブルにファイル名を追加

Question

ドライブC：の1つのマスターフォルダ内に複数のフォルダに複数のcsvファイルがあります。一部のファイルは毎日更新されます。ファイルに更新がある場合は、ファイル名を含むアクセステーブルに新しい日次データを読み込む必要があります。ここまでのスクリプトは、すべてのcsvファイルからすべてのデータをインポートします。次に、新しいレコードにファイル名を追加します。すべてのレコードにファイル名を追加する必要があります。

ご協力いただければ幸いです。

スクリプト：

サブImport_multiple_csv_files（）

Const strPath As String = "C:\text1\" 'Directory Path 
Dim strFile As String 'Filename 
Dim strFileList() As String 'File Array 
Dim intFile As Integer 'File Number 
Dim rs As DAO.Recordset 
'Loop through the folder & build file list 
strFile = Dir(strPath & "*.csv") 
While strFile <> "" 
    'add files to the list 
    intFile = intFile + 1 
    ReDim Preserve strFileList(1 To intFile) 
    strFileList(intFile) = strFile 
    strFile = Dir() 
Wend 
'see if any files were found 
If intFile = 0 Then 
    MsgBox "No files found" 
    Exit Sub 
End If 
'cycle through the list of files & import to Access 
'creating a new table called MyTable 

For intFile = 1 To UBound(strFileList) 

DoCmd.TransferText acImportDelimi, , _ 
    "Test", strPath & strFileList(intFile) 
    ‘add file name to record 
    Set rs = CurrentDb.OpenRecordset("Test") 
    rs.AddNew 
    rs.Fields("Com").Value = Dir(strPath & "*") 
    rs.Update 
    rs.Close 
    Set rs = Nothing 


Next 

MsgBox UBound(strFileList) & " Files were Imported" 

End Subの

Answer 1

私は質問が何であるかを100％わからないんだけど、あなたはファイル名を更新しようとしている場合インポートしたばかりのレコードは、単純な更新ステートメントで行うことができます。

UPDATE Test SET Com='MyFileName' WHERE Com IS NULL OR Com='' 

ここでは、フィールドがnullまたは空の文字列であると仮定していますが、これが正しくない場合は、これを独自の基準に置き換えることができます。これを行うにはDoCmd.RunSQLを使用できます。

問題を誤解している場合は、質問を更新して明確にしてください。