Import multiple excel files

From: Jim/Chris (anonymous_at_discussions.microsoft.com)
Date: 06/10/04 

Date: Thu, 10 Jun 2004 10:06:56 -0700

I had to remove the ".xls" on the file names to use this.
Access doesn't like period in table names. You might be
able to trim that off. I hope this can help

This creates the tables with the same name as in the
directory C:\testimport\ without the ".xls"

Private Sub Command0_Click()
Dim filename As String
filename = Dir("c:\testimport\*.*")

Do Until filename = ""
 DoCmd.TransferSpread*** acImport, 8, filename,
"c:\testimport\" & filename, True, ""
    filename = Dir
Loop
End Sub

>-----Original Message-----
>Can anyone tell me how to import multiple files into an
>Access 2000 db. I have over 100 files I need to import.
>Thanks.
>.
>