(05/01/2020, 15:23)berduş yazdı: 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

sayın berduş nereye ekleyecegim örnek üzerinde göndermeniz mümkünmü?