כיצד להשתמש ב - VBA לייבא נתונים מ - Excel ל - Access

מְחַבֵּר: Sara Rhodes
תאריך הבריאה: 14 פברואר 2021
תאריך עדכון: 24 נוֹבֶמבֶּר 2024
Anonim
Import data from Google Sheets in Excel
וִידֵאוֹ: Import data from Google Sheets in Excel

תוֹכֶן

ללמוד כיצד להשתמש ב- Visual Basic עבור יישומים כדי לייבא נתונים לתוך Access יכול להפוך את יישום מסד הנתונים שלך דינמי יותר. ב- VBA, באפשרותך להשתמש בשילוב של אובייקטים כדי לפתוח גליון עבודה של Excel ולייבא נתונים בטבלה 'גישה'. השתמש בספריית האובייקטים עבור Microsoft Excel ב- VBA כדי לפתוח את גליון העבודה. אובייקט Recordset משמש לפתיחת טבלה ב- Access ולשמירת נתונים שיובאו מ- Excel. שימוש ב- VBA לייבוא ​​נתונים מקטין באופן משמעותי את הזמן המושקע בביצוע התהליך באופן ידני.


הוראות

ייבוא ​​נתונים מ- Excel ל- Access באמצעות ספריית אובייקטים של Excel (Jupiterimages / Photos.com / Getty Images)

  1. פתח את Microsoft Excel והקלד "data1" ב- A2 ו- "data2" ב- B2. הקש Ctrl + S כדי לשמור את המסמך. שמור את גליון העבודה ב "C: Temp " עם השם "dataToImport.xlsx". לחץ על שמור ולאחר מכן סגור את Excel.

  2. הפעל את Microsoft Access, לחץ על "מסד נתונים חדש" ולחץ על "צור". לחץ על "כלי מסד נתונים" ולחץ על "Visual Basic" כדי לפתוח את עורך VB. לחץ על "הוספה" בתפריט ולחץ על "מודול" כדי להכניס מודול קוד חדש. לחץ על תפריט "כלים" ולאחר מכן על "הפניות" וסמן את התיבה שליד "ספריית אובייקטים של Microsoft Excel '.

  3. התחל על ידי הקלדת קוד VBA הבא כדי ליצור נוהל משנה חדש:


    פרטי Sub importExcelData ()

  4. הזן את הקוד הבא כדי ליצור את המשתנים שישמשו לקריאת Excel:

    ענן xlApp כמו Excel.Application עמום xlBk כמו Excel.Workbook עמום xlSht כמו Excel.Worksheet

  5. הזן את הקוד הבא כדי ליצור את המשתנים שישמשו ב- Access:

    DEMRst כמו ערכה Records dim dbs כמו מסד נתונים דים SQLStr כמו מחרוזת

  6. הזן את הקוד הבא כדי להגדיר את אובייקטי הבנק וכן להגדיר את גליון העבודה לשימוש:

    קבע dbs = CurrentDb קבע xlApp = Excel.Application בחר xlBk = xlApp.Workbooks.Open ("C: Temp dataToImport.xlsx") קבע xlSht = xlBk.Sheets (1)

  7. יצירת טבלה חדשה עם שתי עמודות ב- Access לייבוא ​​נתוני Excel. הזן את הקוד הבא כדי ליצור את הטבלה באמצעות האובייקט DoCmd:

    SQLStr = "יצירת טבלה excelData (columnOne TEXT, columnTwo טקסט)" DoCmd.SetWarnings DoCmd.RunSQL False (SQLStr)

  8. פתח את הטבלה שיצרת זה עתה באמצעות אובייקט Recordset. הזן את הקוד הבא כדי לפתוח את הטבלה ולהוסיף שורה חדשה:


    קבע dbRst = dbs.OpenRecordset ("excelData") dbRst.AddNew

  9. הזן את הקוד הבא כדי לקבל את הערכים בגליון העבודה של Excel, שמור אותם בטבלה שלך ועדכן את הרשומה:

    xlSht.Range ("A2") ("A2") בחר את dbRst.Fields (1) .Value = xlSht. טווח ("B2") ערך dbRst.Update

  10. השלם את ההליך על ידי הקלדת קוד ה- VBA הבא:

    dbRst.Close dbs.Close xlBk.Close סוף תת

  11. הקש על F5 כדי לבצע את ההליך. הנתונים בגליון העבודה של Excel יובאו לטבלת הגישה שלך.