[أبو عبدالله الحلواني]

وعليكم السلام ورحمة الله وبركاته

استخدم هذا الكود في أي مكان بالنموذج او في زر امر

كود :

docmd.TransferSpreadsheet acImport,acSpreadsheetTypeExcel12,"AccessTableName","ExcelFilePath",true,"Range Data In Excel File Like 'A1:C50"

1- غير جملة  "AccessTableName" الي اسم الجدول الذي تريد استيراد البيانات اليه.
2- وغير هذه الجملة "ExcelFilePath" بمسار ملف الاكسل الذي تريده : علي أن يكون المسار كاملا مثل: C:\ExcelFile.xls 

3- true في حالة كان ملف الاكسل يحتوي علي عناوين للاعمدة غير (A,B,C .. ) الافتراضية واجعلها False في حالة العكس

4- Range وهو مدي احتواء البيانات بملف الاكسل وهو اختياري ولكن يفضل تحديده لتفادي اي أخطاء في حال استيراد البيانات.
هذا والله أعلم