Multi File import

[dgaller]

I am currently using the following code to import multiple spreadsheets into a DB. Is there a way to prompt a user to select Multiple files instead of having them take everything in the folder?

Function Impo_allExcel()
 
Dim ImportDir As String, ImportFile As String
 
ImportDir = "C:\Files\Mass_import\"
ImportFile = Dir(ImportDir & "*")
Do While ImportFile <> ""
  DoCmd.TransferSpreadsheet acImport, 8, "Bid_by_State", ImportDir & ImportFile, True, "Bid_by_State!A1:R56"
 
  ImportFile = Dir
Loop
 
End Function

 

[Mr. B]

The code at this URL has a multi-select option when locating the files:
http://access.mvps.org/access/api/api0001.htm

I have used this code many times and it works well.