Data From Multiple Files

[Peter Quill]

Hello,

I have certain files in a folder with data. I wish to collect all the data from all the files.

TIA.

 

[ebs17]

Sub Import_Data()
    Dim sPath As String
    Dim sFile As String
    Dim sArchive As String

    sPath = "X:\Importfiles\"
    sArchive = "X:\Importfiles\Archive\"
 
    sFile = Dir(sPath & "*.*")
    Do While sFile > vbNullString
        'Debug.Print sFile

        ' => IMPORT statement, for example append query

        ' move file
        Name sPath & sFile As sArchive & sFile
        sFile = Dir
    Loop
End Sub

 

[arnelgp]

tell us more, what fields you have on plant records?
can all fields be found in your files?
what are your files?, excel files, text files?