Private Sub Komut11_Click()
DoCmd.TransferSpreadsheet acImport, 8, "Tablo1", "c:\kitap1.xlsx", True, "a:d"
MsgBox "Aktarma işlemi tamamlandı.", 0, "VERİ AKTARIMI"
End Sub
Formunuzdaki butonun tıklandığında olay yordamına kodu yazın Excel c:\kitap1.xlsx dosya yolununa kendi dosya yolunu yazın. a : d hücre aralığınada Excel hücre aralığını yazın