السلام عليكم
طلبت من الذكاء الاصطناعي كود لربط ملف الاكسل والاكسس بحث اذا حصل تغيير في الاكسل ينتقل هذا التغيير تلقائي الى ملف الاكسس
وهذا الكود هو
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