استيراد بيانات من الاكسل

[سمير1404]

السلام عليكم 

هل هناك طريقة لتحديد الاعمدة التي يراد استيرادها من الاكسل الى الجدول في الاكسس من خلال النموذج 

ولكم الشكر

[أبو إبراهيم الغامدي]

أهلا سمير..

في ١٧‏/١٠‏/٢٠٢٠ at 01:38, سمير1404 said:

هل هناك طريقة لتحديد الاعمدة التي يراد استيرادها من الاكسل الى الجدول في الاكسس من خلال النموذج 

نعم يمكن..، لكن نريد عينة من البيانات وتحديد طريقة ادراج البيانات في الجدول مثلا: إضافة الجديد مع تحديث السابق..  

[د.كاف يار]

تفضل  هذا الكود شامل الشرح اخي الكريم

On Error GoTo errorhandle
Dim MyFilePath, MyRange, MyTablName As String

'MyFilePath = "مسار ملف الاكسل"
MyRange = "نطاق الخلايا المراد استيرادها من ملف الاكسل"
MyTablName = "اسم الجدول الذي سيتم تخزين البياناته به"
'--------------------------------
'''''''' فتح مستعرض الملفات لإختيار الملف ''''''''

Dim fpath As Variant
With Application.FileDialog(3)
.Title = "Choose File"
.Filters.Clear
.Filters.Add "Excel Files", "*.xls ; *.xlsx"
.AllowMultiSelect = False
.InitialFileName = ""
If .Show = -1 Then
MyFilePath = .SelectedItems(1)
End If
End With

'--------------------------------
'''''''' استيراد ملف الاكسل حسب الشروط اعلاه ''''''''

DoCmd.TransferSpreadsheet acImport, 10, MyTablName, FilePath, False, MyRange

MsgBox "تم استيراد الملف بنجاح", vbMsgBoxRight + vbInformation, "تأكيد"

errorhandleexit:
        Exit Sub
errorhandle:
        MsgBox Err.Description
        Resume errorhandleexit

 

[سمير1404]

جزاكم الله خير 

ولكن يوجد لدي ملاحظة بعد تطبيق المثال الملفات التي تظهر تكون فقط امتداد واحد دون الاخر يعني اما ان يظهر 

xlsx   او  

xls علما اني استخدم عدة اصدارت من الاوفيس