כל יישומי המשרד של מיקרוסופט תומכים באוטומציה. הם יכולים לפעול כשרתי COM ולהשתמש בהם מתסריטים משובצים במסמך או חיצוני. אז אתה יכול לכתוב נתונים למסמך Excel מתוך סקריפט vba.
נחוץ
- - יישום Microsoft Excel מותקן;
- - עורך Visual Basic / עורך טקסטים.
הוראות
שלב 1
צור מיכל לארח את קוד ה- vba. אם יש להטמיע את הסקריפט במסמך, העלה את הקובץ המתאים ל- Microsoft Excel. פתח את עורך Visual Basic על ידי לחיצה על Alt + F11. במידת הצורך, צור מודול חדש (פריט מודול בתפריט הוספה). פתח אחד מהמודולים או הטפסים. צור מטפל לבקרת הטופס שלך, או פשוט הוסף נוהל למודול. לדוגמה:
מבחן משנה ()
סיום משנה
אם אתה מפתח סקריפט עצמאי (כלומר, הוא יפעל תחת Windows Script Host), פשוט צור קובץ עם סיומת vbs בעורך טקסט.
שלב 2
בתסריט המוטמע במסמך, הוסף הצהרות משתנה בתחילת ההליך:
עמום oWorkbook כמו Excel. Workbook
עמעום גליון כמו Excel. גליון עבודה
הראשון הוא לאחסון הפניה לאובייקט חוברת עבודה של Excel, והשני הוא לגיליון.
שלב 3
אתחל משתנים עם הפניות לאובייקטים. בסקריפט vbs, צור אובייקט יישום של Excel (פעולה זו תפעיל את Excel כשרת COM):
הגדר oApplication = CreateObject ("Excel. Application").
בסקריפט המוטמע במסמך, ישתמש באובייקט היישום הגלובלי במקום במשתנה oApplication, המתייחס לאובייקט היישום הנוכחי. בחר קיים או פתח חוברת עבודה חדשה של Excel. לדוגמה:
הגדר oWorkbook = Application. Workbooks (1)
הגדר oWorkbook = Application. Workbooks ("ספר 1")
הגדר oWorkbook = oApplication. Workbooks. Open ("D: / vic / relevant / tmp / test.xls")
קבל קישור לגיליון הרצוי של הספר:
הגדר oSheet = oApplication. Sheets ("Sheet1")
שלב 4
כתוב נתונים ל- Excel מתוך סקריפט vba. השתמש באוסף התאים, שהוא מאפיין של אובייקט גליון חוברת העבודה שהופנה בשלב הקודם, למשתנה oSheet. דוגמה לכתיבת מחרוזת לתא אחד עשויה להיראות כך:
oSheet. Cells (1, 1) = "המחרוזת תיכתב לתא A1"
שלב 5
בסקריפט vbs, הוסף את הקוד לשמירת הנתונים וכבה את יישום Excel:
oWorkbook. שמור
יישום. צא
שלב 6
שמור והפעל את התסריט. בעורך Visual Basic, לחץ על Ctrl + S ואז מקם את הסמן בגוף ההליך ולחץ על F5. שמור את קובץ ה- vbs בדיסק ואז הפעל אותו כקובץ רגיל.
