ربط ملف اكسل بالاكسس

[نبا زيد]

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

حياكم الله

عندي ملف اكسل + ملف اكسس

اعمل على ملف اكسل --- المطلوب اكرمكم الله - وما ادري هل ممكن عمل هذا الطلب :

ربط ملف الاكسل بالاكسس 

بحيث ما يجري من تغييرات في ملف الاكسل يتغير بالاكسس تلقائيا

قاعدة بيانات.zip اكسل.xlsm

تم تعديل أكتوبر 6 بواسطه صباح2024

[عبدالله بشير عبدالله]

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

نعم، يمكنك ربط ملف Excel بملف Access 

عند عمل تحديث بيانات أو اضافة  في ملف اكسل 

تنتقل هذه االتحديثات أو الاضافات أو التغييرات الى ملف اكسس

 اتبع  الخطوات في الصور

 

 

قاعدة بيانات.zip

اكسل.xlsm

تم تعديل أكتوبر 7 بواسطه عبدالله بشير عبدالله

[نبا زيد]

السلام عليكم

كان موضوعي هو

عندي ملفين واحد اكسس وملف اكسل

عملي على ملف اكسل

كنت اقوم بعملية نسخ ولصق (انسخ البيانات من الاكسل الى اكسس)

هل توجد طريق (كود) عندما اعمل تحديث بيانات أو اضافة  في ملف اكسل 

تنتقل هذه االتحديثات أو الاضافات أو التغييرات الى ملف اكسس 

او تصدير البيانات من الاكسل الى اكسس 

 

 

 

تم تعديل أكتوبر 7 بواسطه صباح2024

[عبدالله بشير عبدالله]

وعليكم السلام 

5 ساعات مضت, صباح2024 said:

عندما اعمل تحديث بيانات أو اضافة  في ملف اكسل 

تنتقل هذه االتحديثات أو الاضافات أو التغييرات الى ملف اكسس

 وهذا ما يقوم به الشرح السابق, وطريقة الربط المشروحه اعلاه هي طلبك  طبق الشرح على ملفك  مرة واحدة فقط فيتم الربط بين الملفين اكتب بيانات في ملف الاكسل في شبت السجل ثم افتح ملف الاكسس ستجد البيانات التى كتبتها في الاكسل موجودة في جدول السجل في ملف الاكسس  وكلما حدثث ملف الاكسل او اضفت بيانات تنتقل البيانات الى ملف الاكسس اتوماتيكيا

تحياتى لك

 

[نبا زيد]

جزاك الله خير

اشكرك على الاهتمام

تسلم

[نبا زيد]

السلام عليكم

طلبت من الذكاء الاصطناعي كود لربط ملف الاكسل والاكسس بحث اذا حصل تغيير في الاكسل ينتقل هذا التغيير تلقائي الى ملف الاكسس

وهذا الكود هو 

S

Sub ImportFromExcel()

    Dim db As Database

    Dim rs As Recordset

    Dim xlApp As Object

    Dim xlBook As Object

    Dim xlSheet As Object

    Dim i As Integer

 

    Set xlApp = CreateObject("Excel.Application")

    Set xlBook = xlApp.Workbooks.Open("C:\Path\To\Your\Excel\File.xlsx")

    Set xlSheet = xlBook.Sheets(1)

    Set db = CurrentDb

    Set rs = db.OpenRecordset("YourTableName")

 

    rs.AddNew

    For i = 1 To xlSheet.UsedRange.Rows.Count

        rs.Fields("FieldName1") = xlSheet.Cells(i, 1).Value

        rs.Fields("FieldName2") = xlSheet.Cells(i, 2).Value

        ' Add other fields as needed

        rs.Update

    Next i

 

    rs.Close

    Set rs = Nothing

    db.Close

    Set db = Nothing

    xlBook.Close False

    xlApp.Quit

    Set xlApp = Nothing

End Sub

ممكن من حضراتكم الكريمة تعديل هذا الكود ليصلح على شغلي وعلى الملفين المرفقين في المشاركة الاولى

 

b