lmporting problem

  • Thread starter Thread starter ec
  • Start date Start date
E

ec

I have no idea how to import over 50 csv fils to Access.
Each one has the seperate table as the csv file name.
Please help.
 
This is based on code previously posted by Joe Fallon:

How to Import all Files in a Folder:

Public Sub ImportAllFiles()
'procedure to import all files in a directory and delete them.
'assumes they are all the correct format for an ASCII delimited import.
Dim strfile As String

ChDir ("c:\MyFiles")
strfile = Dir("*.csv")
Do While Len(strfile) > 0
DoCmd.TransferText acImportDelim, , _
Left(strFile, Len(strFile) - 4), _
"c:\MyFiles\" & strfile, True
'delete the file (consider moving it to an Archive folder instead.)
Kill "c:\MyFiles\" & strfile
strfile = Dir
Loop
End Sub
 
You must log in or register to reply here.

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Csv import: direct link vs temp table dump 2
Can not import .csv file 1
Invalid Argument Error when importing .csv to Linked Table 1
Import lots of CSV 4
Add .csv File Name When Importing Multiple Files Into a Table 0
How to Keep Excel Sheet Formatting On a CSV Sheet with vba 1
import csv truncation 1
Import fields from .csv with variable column structure 4

Back
Top