كود VBA لتصدير بيانات Excel إلى Access

تصدير بيانات Excel إلى Access باستخدام VBA (الصور والتعليمات البرمجية)

ما هذا؟

This VBA code helps you to upload or export Excel data to Access in one click.

لماذا هو؟

You can export Excel data to Access without even opening the Access DB.

كيفية تصدير بيانات Excel إلى Access

الخطوة 1: افتح ال اكسل ورقة وحصلت على منشئ كود VBA (Alt + F11) وافتح وحدة نمطية جديدة

.

الخطوة 2: انسخ الكود التالي وألصقه فيه.

Const TARGET_DB = "myDB.accdb" "استبدل "myDB.accdb" باسم قاعدة البيانات الخاصة بك، وتأكد من وجود قاعدة بيانات Excel وAccess في نفس المسار.
Sub PushTableToAccess()
خافت CNN باسم ADODB.Connection
ديم مايكون
تعتيم أولاً باسم ADODB.Recordset
خافت ط طويل، ي طويل
خافت رو طالما

الأوراق ("اسم الورقة").تنشيط "استبدل "اسم الورقة" باسم ورقة Excel الخاصة بك
Rw = النطاق ("A65536").النهاية (xlUp).الصف
"أعط نطاق بيانات ورقة Excel الخاصة بك."

تعيين cnn = ADODB.Connection جديد
MyConn = ThisWorkbook.Path & Application.PathSeparator & TARGET_DB

مع سي ان ان
.Provider = "Microsoft.ACE.OLEDB.12.0"
.افتح مايكون
انتهت ب

"استبدل "tblMyExcelUpload" باسم الجدول الخاص بك في Access

المجموعة الأولى = ADODB.Recordset الجديد
rst.CursorLocation = adUseServer
rst.Open المصدر:=”tblMyExcelUpload”، ActiveConnection:=cnn، _
CursorType:=adOpenDynamic، LockType:=adLockOptimistic، _
الخيارات:=adCmdTable

"تحميل كافة السجلات من Excel إلى Access."
لأني = 2 إلى Rw
rst.AddNew
ل ي = 1 إلى 7
rst(Cells(1, j).Value) = Cells(i, j).Value
التالي ي
التحديث الأول
بعدها انا

'أغلق الاتصال
أولا. إغلاق
سي إن إن. إغلاق
تعيين الأول = لا شيء
تعيين سي إن إن = لا شيء

نهاية الفرعية

الخطوه 3:انقر فوق الزر "تشغيل" أو F5. (يمكنك أيضًا إدراج زر/شكل في ورقة Excel ثم انقر بزر الماوس الأيمن وقم بتعيين هذا الماكرو للتشغيل في كل مرة.) لقد انتهيت من التحميل!! تم تحميل سجلات Excel بنجاح إلى Access، افتح جدول قاعدة بيانات Access وتحقق من البيانات.

ملحوظة: تأكد من تمكين "مكتبة كائنات بيانات Microsoft ActiveX" من ملف أدوات - مراجع (الرقم يستخدم الإصدار الأحدث [6.1 اعتبارًا من هذا المنشور]).

Pin