eğer tek bir dosya içinse aşağıdaki kod işinize yarayabilir,
dosyaların adını tek tek yazarak ekleyebilirsiniz

DoCmd.TransferSpreadsheet acImport, 10, "veri", CurrentProject.Path & "\örnek3.xlsx", True, "sayfa1!"

eğer belli bir klasördeki tüm dosyalar içinse

Dim fileName As Variant

fileName = Dir(CurrentProject.Path & "\*.xlsx")



While fileName <> ""

    DoCmd.TransferSpreadsheet acImport, 10, "veri", CurrentProject.Path & "\" & fileName, True, "sayfa1!"

    fileName = Dir

Wend