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

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

ما هذا؟

يساعدك رمز VBA هذا على التحميل أو تصدير بيانات Excel إلى Access بنقرة واحدة.

لماذا هو؟

أنت تستطيع تصدير بيانات Excel إلى Access دون حتى فتح قاعدة بيانات Access.

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

الخطوة 1: Open the اكسل ورقة وحصلت على منشئ كود 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