برنامج استيراد البيانات من ملف Excel إلى Access

[osama aljaafari]

السلام عليكم اخواني الاعزاء 

فضلاً وليس امراءً المساعدة في الاتي :-

وجودة على المنتدى العظيم برانامج اكسس لعملية استيراد ملفات الاكسل الى قواعد البيانات اكسس الذي قام بتصميه الاستاذ القدير /علاء الدين محمد النكلاوى جزاءه الله الف خير على هذا العمل الرئع 

حاولت ان استفيد منه في عملي واللاسف الشديد لم يعمل  معي في جهازي بسبب اصدار الاوفس عندي 2016 64 بيت

ممكن احد يساعدني في حل هذه المشكلة حتى يعمل معي بشكل طبعي  .

مرفق لكم الملف 

وشكرا

excel_to_access.rar

[kkhalifa1960]

مع احترامي الشديد وبدون تجني لانه برنامج متعوب عليه أنا أفضل الاستيراد مباشرةً من الاكسل من الايكونة بالاكسس  لانه اسرع 

[ابو نزار]

قد يفيدك هذا الرابط

 

[osama aljaafari]

استاذي العزيز 

تم إضافة كلمة PtrSafe بعد كلمة Declare لوحض بعض الاكود لاتعمل 

ممكن المساعدة

net.mdb

[osama aljaafari]

ما الخظأ في هذه الدلة 

Function GetImportFile()

  On Error Resume Next
   Dim mFile As String
   
   mFile = GetFile("Choose a file to import", "Excel Files (*.xls)", "*.xls")
   If Len(mFile) = 0 Then Exit Function
   Me.ImportFile = mFile
   GetSheetnames
   Exit Function
   
GetImportFile_Error:
   MsgBox Err.Number & Err.Description
   Stop
   Resume Next
End Function

 

Function GetImportFile()

  On Error Resume Next
   Dim mFile As String
   
   mFile = GetFile("Choose a file to import", "Excel Files (*.xls)", "*.xls")
   If Len(mFile) = 0 Then Exit Function
   Me.ImportFile = mFile
   GetSheetnames
   Exit Function
   
GetImportFile_Error:
   MsgBox Err.Number & Err.Description
   Stop
   Resume Next
End Function

 

 

تم تعديل يناير 18, 2023 بواسطه jjafferr
لتنسيق الكود: استعمال <> القائمة ، ووضع الكود في نافذته