كيفية استخدام VBA لاستيراد البيانات من Excel إلى Access

مؤلف: Sara Rhodes
تاريخ الخلق: 13 شهر فبراير 2021
تاريخ التحديث: 8 كانون الثاني 2025
Anonim
Excel to Access : كيفية تحويل بيانات من إكسل إلى أكسيس | Access الى Excel الاستيراد من
فيديو: Excel to Access : كيفية تحويل بيانات من إكسل إلى أكسيس | Access الى Excel الاستيراد من

المحتوى

تعلم كيفية استخدام Visual Basic for Applications لاستيراد البيانات إلى Access يمكن أن يجعل تطبيق قاعدة البيانات أكثر ديناميكية. في VBA ، يمكنك استخدام مجموعة من الكائنات لفتح ورقة عمل Excel واستيراد البيانات إلى جدول Access. استخدم مكتبة الكائنات لـ Microsoft Excel في VBA لفتح ورقة العمل. يتم استخدام كائن Recordset لفتح جدول في Access وحفظ البيانات المستوردة من Excel. باستخدام VBA لاستيراد البيانات يقلل بشكل كبير من الوقت الذي يقضيه القيام بهذه العملية يدويا.


الاتجاهات

استيراد البيانات من Excel إلى Access باستخدام مكتبة كائنات Excel (كوكب المشتري / Photos.com / غيتي إيماجز)

  1. افتح Microsoft Excel واكتب "data1" في A2 و "data2" في B2. اضغط على Ctrl + S لحفظ المستند. احفظ ورقة العمل في "C: Temp " باسم "dataToImport.xlsx". انقر فوق حفظ ، ثم أغلق Excel.

  2. ابدأ تشغيل Microsoft Access وانقر فوق "قاعدة بيانات جديدة" وانقر فوق "إنشاء". انقر فوق "أدوات قاعدة البيانات" وانقر فوق "Visual Basic" لفتح محرر VB. انقر على قائمة "إدراج" وانقر فوق "وحدة نمطية" لإدراج وحدة رمز جديدة. انقر على قائمة "أدوات" ثم "المراجع" وحدد المربع بجوار "مكتبة كائنات Microsoft Excel" '.

  3. ابدأ بكتابة رمز VBA التالي لإنشاء إجراء فرعي جديد:


    import SubcelExcelData ()

  4. أدخل الكود التالي لإنشاء المتغيرات ليتم استخدامها لقراءة Excel:

    Dim xlApp باسم Excel.Application Dim xlBk باسم Excel.Workbook Dim xlSht باسم Excel.Worksheet

  5. أدخل الرمز التالي لإنشاء المتغيرات ليتم استخدامها في Access:

    Dim dbRst باسم Recordset Dim dbs كقاعدة بيانات Dim SQLStr باسم سلسلة

  6. أدخل الكود التالي لتعريف كائنات البنك وأيضًا لتحديد ورقة العمل المراد استخدامها:

    Set dbs = CurrentDb Set xlApp = Excel.Application Set xlBk = xlApp.Workbooks.Open ("C: Temp dataToImport.xlsx") تعيين xlSht = xlBk.Sheets (1)

  7. إنشاء جدول جديد مع عمودين في Access لاستيراد بيانات Excel. أدخل الكود التالي لإنشاء الجدول باستخدام كائن DoCmd:

    SQLStr = "CREATE TABLE excelData (columnOne TEXT ، columnTwo TEXT)" DoCmd.SetWarnings False DoCmd.RunSQL (SQLStr)

  8. افتح الجدول الذي قمت بإنشائه للتو باستخدام كائن Recordset. أدخل الكود التالي لفتح الجدول وإضافة صف جديد:


    تعيين dbRst = dbs.OpenRecordset ("excelData") dbRst.AddNew

  9. أدخل الكود التالي للحصول على القيم في ورقة عمل Excel وحفظها في الجدول وتحديث السجل:

    xlSht.Range ("A2") حدد dbRst.Fields (0) .Value = xlSht.Range ("A2") القيمة xlSht.Range ("B2") حدد dbRst.Fields (1) .Value = xlSht. النطاق ("B2"). القيمة dbRst.Update

  10. أكمل الإجراء بكتابة رمز VBA التالي:

    dbRst.Close dbs.Close xlBk.Close End Sub

  11. اضغط F5 لتنفيذ الإجراء. سيتم استيراد البيانات الموجودة في ورقة عمل Excel إلى جدول Access الخاص بك.