שמור נתונים בגיליון אלקטרוני של Excel באמצעות VBA.
יצירת גיליון אלקטרוני של Excel ב-Access יכולה לחסוך לך זמן כאשר אתה צריך לייצא נתונים לגיליון אלקטרוני של Excel. Visual Basic for Applications (VBA) יכול להיות כלי רב עוצמה לאוטומציה של תהליכים ביישומי Microsoft Office. עם VBA אתה יכול להשתמש באובייקט Microsoft Excel Application כדי ליצור גיליון אלקטרוני של Excel מ-Access. אובייקט היישום של Excel הוא נקודת הכניסה לשאר מודל האובייקט. ייצא נתונים מהר יותר לאקסל על ידי שמירת נתונים ישירות בגיליון אלקטרוני של Excel.
שלב 1
הפעל את Microsoft Office Access, לחץ על "בסיס נתונים ריק" ולחץ על כפתור "צור" כדי ליצור מסד נתונים ריק. לחץ על הכרטיסייה "כלי מסד נתונים" ולחץ על "Visual Basic" כדי לפתוח את חלון Microsoft Visual Basic. לחץ על התפריט "הוסף" ולחץ על "מודול" כדי להוסיף מודול קוד חדש.
סרטון היום
שלב 2
לחץ על התפריט "כלים" ולחץ על "הפניות". גלול מטה וסמן את התיבה שליד "Microsoft Excel
שלב 3
התחל על ידי הקלד את קוד ה-VBA הבא כדי ליצור הליך משנה חדש:
פרטי משנה createSpreadSheet()
שלב 4
המשך על ידי הקלדת הקוד הבא כדי ליצור שלושה אובייקטים משתנים חדשים שישמשו ליצירת הגיליון האלקטרוני של Excel:
עמום newExcelApp כאקסל. יישום. עמום newWbk כאקסל. חוברת עבודה. עמום newWkSheet כאקסל. גיליון
שלב 5
הוסף את הקוד הבא כדי להפעיל את Excel ולהציג אותו:
הגדר newExcelApp = Excel. יישום
newExcelApp. גלוי = נכון
שלב 6
הקלד את הדברים הבאים כדי להוסיף חוברת עבודה חדשה וגליון עבודה:
הגדר newWbk = newExcelApp. חוברות עבודה. לְהוֹסִיף
הגדר newWkSheet = newWbk. דפי עבודה (1)
שלב 7
הוסף נתונים לגיליון האלקטרוני החדש שלך על ידי הקלדת הדברים הבאים:
newWkSheet. תאים (1, 1).Value = "גיליון עבודה חדש..."
שלב 8
שמור את חוברת העבודה החדשה שנוצרה על ידי הקלדת הקוד הבא:
newWkSheet. SaveAs ("C:\myworksheet.xlsx")שלב 9
ערוך את הנתיב בשלב הקודם והקלד את הנתיב ואת שם הקובץ לפי בחירתך.
שלב 10
הקלד את הדברים הבאים כדי לסיים את הליך המשנה:
סיום משנה
שלב 11
הקש "F5" כדי להפעיל את ההליך וליצור גיליון אלקטרוני חדש של Excel.
