כיצד ליצור גיליון אלקטרוני ב- Excel מתוך גישה באמצעות VBA

מְחַבֵּר: Roger Morrison
תאריך הבריאה: 19 סֶפּטֶמבֶּר 2021
תאריך עדכון: 1 יולי 2024
Anonim
תותח אקסל - שאיבת מידע מהאינטרנט אל אקסל - איך לשאוב מידע מ-API אל Excel
וִידֵאוֹ: תותח אקסל - שאיבת מידע מהאינטרנט אל אקסל - איך לשאוב מידע מ-API אל Excel

תוֹכֶן

יצירת גליון עבודה של Excel ב- Access יכולה לחסוך לך זמן כאשר עליך לייצא נתונים לגליון עבודה של Excel. Visual Basic for Applications (VBA) יכול להיות כלי רב-עוצמה למיכון תהליכים ביישומי Microsoft Office. עם VBA ניתן להשתמש באובייקט Microsoft Excel Application כדי ליצור גיליון אלקטרוני של Excel מ- Access. אובייקט ה- Excel הוא נקודת ההתחלה עבור שאר מודל האובייקט. ייצוא נתונים ל- Excel מהר יותר על-ידי שמירת הנתונים ישירות בגליון עבודה של Excel.


הוראות

שמור נתונים לגליון עבודה של Excel באמצעות VBA (Jupiterimages / Photos.com / Getty Images)

    הוראות

  1. הפעל את Microsoft Office Access, לחץ על "מסד נתונים ריק" ולחץ על הלחצן "Create" כדי ליצור מסד נתונים ריק. לחץ על הכרטיסייה "כלי מסד נתונים" ולחץ על "Visual Basic" כדי לפתוח את החלון Microsoft Visual Basic. לחץ על "הוספה" בתפריט ולחץ על "מודול" כדי להכניס קוד מודול חדש.

  2. לחץ על "כלים" בתפריט ולחץ על "הפניות". החלק וסמן את התיבה לצד "Microsoft Excel ספריית אובייקטים "(ספריית אובייקטים של Microsoft Excel). לחץ על "אישור".

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

    פרטי Sub

  4. המשך להקליד את הקוד הבא כדי ליצור שלושה משתני אובייקט חדשים שישמשו ליצירת גליון העבודה של Excel:


    ענן חדשExExcel כמו Excel.Application ענן newWbk כמו Excel.Workbook עמום NewWkSheet כמו Excel.Worksheet

  5. הוסף את הקוד הבא כדי להפעיל את Excel ולהציג אותו:

    Set newExcelApp = Excel.Application newExcelApp.Visible = True

  6. הזן את הקוד הבא כדי להוסיף חוברת עבודה וגליון עבודה חדשים:

    הגדר newWkk = newExcelApp.Workbooks.Add הגדר newWkSheet = newWbk.Worksheets (1)

  7. הוסף נתונים לגליון העבודה החדש על ידי הקלדת הקוד הבא:

    newWkSheet.Cells (1, 1) .Value = "גליון עבודה חדש ..."

  8. שמור את חוברת העבודה החדשה שנוצרה על ידי הזנת הקוד הבא:

    newWkSheet.SaveAs ("C: myworksheet.xlsx")

  9. ערוך את הנתיב בשלב הקודם והזן את הספרייה ואת שם הקובץ לפי בחירתך.

  10. הזן את הקוד הבא כדי לסיים את הליך המשנה:

    סוף תת

  11. לחץ על "F5" כדי להפעיל את ההליך וליצור גליון עבודה חדש של Excel.