Not sure how familiar you are with VBA but you could use the following. To access VBA from your application just hit Alt+F11. I assume you want to assign a command click function too:
mypath = "c:\importxls\myimports\"
myfile = Dir(mypath & "*.xls")
DoCmd.TransferSpreadsheet acImport, 8, "myimport2", mypath & myfile
myfile = Dir
Loop Until myfile = ""