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

إذا فكرنا في ورقة البيات على أنها استعلام جدولي فنحن بحاجة إلى أخراج البيانات الوسطية وتسميتها في عامود بيانات مستقل وليكن (سعر الخدمة)، وحل رؤوس الأعمدة وتسميتها في عامود بيانات وليكن (رقم العربة)
وعلى هذا تصبح بيانات الجدول الجديد (رقم العربة، تاريخ الخدمة، سعر الخدمة)...
نقوم بإنشاء الجدول  ثم نقوم بتشغيل الشفرة التالية لإلحاق البيانات بالجدول
Sub UpendDataToTable() Dim RS As Recordset CurrentDb.Execute "Delete * From [Vehicle Services]" Set RS = CurrentDb.OpenRecordset("Sheet1") For i = 1 To RS.Fields.Count - 1 CurrentDb.Execute "Insert into [Vehicle Services]([Service Date],[Service Price], [Vehicle Number])" _ & "Select [Service Date],format([" & RS(i).Name & "],'Standard') As [Sevice Price],'" & RS(i).Name & "' AS [Vehicle Number] From Sheet1" Next End Sub  
وهذه الشفرة لجلب البيانات من أكسل مباشرة إلى الجدول الجديد
Sub FetchExcelDataSheet(BookName, SheetName) Dim RS As Recordset Dim dbType dbType = "[EXCEL 12.0;HDR=YES;]" BookName = CurrentProject.Path & "\" & BookName SheetName = "[" & SheetName & "$]" CurrentDb.Execute "Delete * From [Vehicle Services]" Set RS = CurrentDb.OpenRecordset("Sheet1") For i = 1 To RS.Fields.Count - 1 CurrentDb.Execute "Insert into [Vehicle Services]([Service Date],[Service Price], [Vehicle Number])" _ & "Select [Service Date],format([" & RS(i).Name & "],'Standard') As [Sevice Price],'" _ & RS(i).Name & "' AS [Vehicle Number] From " & SheetName & " in'" & BookName & "'" Next End Sub  
وهذا التطبيق على المثال
Database19.zip

جرب التعديل التالي وسوف تتضح الصورة لديك
اختر Admin أو A.Salah
UsersAutho.zip

هذا الرسالة لمكتبة مرجع مفقودة..
إذهب لمكتبة المراجع وحرر ارتباط المكتبة المفقود فقط.. المكتبة لا علاقة لها بالتعديل.
إليك التعديل
Linked tables.zip