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

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

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

ما هذا؟

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

لماذا هو؟

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

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





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

.تصدير بيانات Excel للوصول

الخطوة 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 وتحقق من البيانات.

تصدير بيانات Excel للوصول

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

Adodb_Export بيانات Excel للوصول إليهاPin


أنسون أنتوني
أنسون أنتوني
أنسون هو مؤلف مساهم ومؤسس في www.askeygeek.com. لقد كان تعلم أي شيء جديد هو شغفه دائمًا، ASKEYGEEK.com هو نتيجة شغفه بالتكنولوجيا والأعمال. لقد حصل على عقد من الخبرة المتنوعة في الاستعانة بمصادر خارجية للعمليات التجارية، والمالية والمحاسبة، وتكنولوجيا المعلومات، والتميز التشغيلي وذكاء الأعمال. خلال فترة عمله، عمل في مؤسسات مثل Genpact وHewlett Packard وM*Modal وCapgemini في أدوار ومسؤوليات مختلفة. بعيدًا عن الأعمال والتكنولوجيا، فهو من عشاق الأفلام ويقضي ساعات معًا في مشاهدة وتعلم السينما وصانع أفلام أيضًا!

9 Responses

  1. اهلا جميعا؛

    هل يجب أن يكون موقعا المسارين متماثلين حتى يعمل ADODBConnection؟ هذا هو ThisWorkbook.Path وTarget_DB.
    الأمر من الأعلى:
    ThisWorkbook.Path & Application.PathSeparator & TARGET_DB

    أو يمكن قول Workbook.Path
    "C:\MyExcelFiles\MyWorkbook.xlsx" وقاعدة بيانات Access TARGET_DB موجودة
    "C:\MyDataBases\MyAccessDB.accdb"؟

    يعمل الكود الخاص بي عندما يكون كل من Excel WorkBook وAccess DB موجودين في نفس المجلد، ولكن عندما يكونان في مجلد مختلف (بنية المكتبة المنظمة بشكل صحيح، يفشل الكود عند نقطة .Open MyConn.

    شكرا لكم جميعا،
    ماريو,

اترك تعليقاً

لن يتم نشر عنوان بريدك الإلكتروني. الحقول الإلزامية مشار إليها بـ *

تهانينا!
لقد فعلتها،
لا تغلق!
أدخل فرصتك للفوز 100,000 حرف من رصيد UberTTS
شكرا على الزيارة!

هذه النافذة المنبثقة لن تظهر متروك لكم مرة أخرى!!!

UberTTS 100K بيضة عيد الفصح
28
Share to...