جزاكم الله خيراً
تم ايجاد اضافته
اذا كان هناك تعديل على "A2:j100000" ليكون أفضل يرجى التنبيه
Dim x3, x4
x3 = CurrentProject.Path & "\" & "0125" & ".xls"
'اكتب اسم الجدول المراد انشاءه
x4 = "جدول جديد"
DoCmd.TransferSpreadsheet acImport, 10, x4, x3, True, "A2:j100000"