Import multiple text files from folder & adding filename as record in column.

[June7]

How do you want to 'get' the files in folder? If user browses to folder and then you want code to automatically check each file in the folder, review these examples:



http://www.freevbcode.com/ShowCode.asp?ID=1487

http://www.allenbrowne.com/ser-59.html

[Niriv]

in this code, is there possibility we could only import data which matches a criteria for given field.

Public Sub GetScores()
'-- Import all of the student scores to the tblScores table.
Dim OurFolder As String
Dim OurFile As String
'-- First have the user select the folder
OurFolder = BrowseFolder1("Select the folder that contains the scores.")
'-- Dir returns a ZLS ("") when no more files match the criteria
OurFile = Dir(OurFolder & "\*.txt")
Do While OurFile <> ""
'-- I created and saved the ScoreImportSpecs earlier.
'-- I also created the tblScores table with the following
'-- four text fields:
'-- FirstName, LastName, ClassCode, Score
DoCmd.TransferText acImportDelim, "ICES", "Table1", OurFile
CurrentDb.Execute "UPDATE table1 SET TYPE='" & Left(OurFile, 1) & "', LISTING='" & Mid(OurFile, 3, 6) & "', FILEDATE=#" & DateSerial(Mid(OurFile, 14, 4), Mid(OurFile, 12, 2), Mid(OurFile, 10, 2)) & "# WHERE LISTING Is Null"
'-- Get the next *.txt filename
OurFile = Dir
Loop
End Sub

Import data has field called as "Tariff" data type as number and i want to filter and import only those data whose number start either 25 or 68

[June7]

Not with that code. Unless the value to use as criteria is in the file name. In which case it is either import the entire file or nothing. Alternatives are:

1. open the textfile as an object in VBA and read each line of the file and test for the criteria

2. set a link to textfile and then query the link just like a table