Import Text File

[sathishkm21]

Hi All,

I have a text file for more than 50 in a specific path. I want to import all the text files in the access. Is there VBA code to do this job.



Thanks

[ranman256]

this imports all xl files in the folder via transferspredsheet. Adjust if needed.
change it to use transfertext, and remember to use the SPEC name.
docmd.TransferText acImportDelim ,sSpecName,table,vFile, true

usage:

ImportAllFilesInDir "f:\folder"

Public Sub ImportAllFilesInDir(ByVal pvDir)
Dim vFil, vTargT
Dim i As Integer
Dim sTbl As String, sSql As String
Dim fso
Dim oFolder, oFile

On Error GoTo errImp
DoCmd.SetWarnings True
If Right(pvDir, 1) <> "\" Then pvDir = pvDir & "\"
sTbl = "xlFile"
Set fso = CreateObject("Scripting.FileSystemObject")
Set oFolder = fso.GetFolder(pvDir)
For Each oFile In oFolder.Files
   vFil = oFile
   DoCmd.TransferSpreadsheet acimpolrt, acSpreadsheetTypeExcel12, sTbl, vFil, True
Next
Set fso = Nothing
Set oFile = Nothing
Set oFolder = Nothing
DoCmd.SetWarnings True
Exit Sub
errImp:
MsgBox Err.Description, vbCritical, "clsImport:ImportData()" & Err
Exit Sub
Resume
End Sub

[sathishkm21]

I want to import text files.