Importing entire set of Files from a Common Folder using VBA

GreggaR0und

Hello;

I have an application where a set of text files, all with the same record format, are contained in a folder. I wish to read in these physical files as one logical file to update my table. I have created an Import Specification for the record format. Do you know how I can import the entire contents of the folder using the Invalid Specification?

Thanks,
Gregg

JConsulting

something like so

Expand|Select|Wrap|Line Numbers

  Function ImportTXT()

Dim FSO As Object

    Set FSO = CreateObject("Scripting.FileSystemObject")

    Dim Fl As Object

    strfolder = "C:\"
 
    strFile = Dir(strfolder & "\*.txt", vbNormal)

    Do While strFile <> ""

        If strFile <> "." And strFile <> ".." Then

        DoCmd.TransferText acImportDelim, "Import Spec", "TableName", strFile, False, ""

        End If

        strFile = Dir()

    Loop

    Set FSO = Nothing

End Function

GreggaR0und

Great! Thank you! That worked to perfection!

JConsulting

Quote:

Originally Posted by GreggaR0und

Great! Thank you! That worked to perfection!

Happy to help
J

Importing entire set of Files from a Common Folder using VBA

re: Importing entire set of Files from a Common Folder using VBA

re: Importing entire set of Files from a Common Folder using VBA

re: Importing entire set of Files from a Common Folder using VBA

/bytes/development

/bytes/it

/bytes/about