מודל האובייקטים של אופיס.
החל מחבילת אופיס 4.3 התוכנות חושפות מודל אובייקטים המאפשר שליטה מלאה בהן.
כדי להשתמש באקסל, עליך קודם כל ליצור הפניה (Reference),ל- Dll המתאים:
Microsoft Excel 9.0 (עבור גרסת 2000. יכול להיות שאצלך מספר הגרסה יהיה שונה.)
ואז תוכל ליצור כמה אובייקטים חדשים.
ההכרחיים הם:
Excel.Application, Excel.WorkBook, ו- Excel.WorkSheet המייצגים: חוברת עבודה, היישום עצמו ו- גליון עבודה (בהתאמה).
השתמש במטודה Open של האוסף WorkBooks עבור אובייקט ה- Application.
בהנחה שהגליון הרצוי לך הוא הגליון הראשון (הפעיל) של חוברת העבודה, תוכל להקצות אותו עבור אובייקט הגליון שלך, ואז לגשת לתא באמצעות התכונה Range.
דוגמה:
Dim exl As New Excel.Application
Dim wrk As Excel.Workbook
Dim wrks As Excel.Worksheet
Dim cell As Variant
Set wrk = exl.Workbooks.Open("C:\ExcelFile.Xsl")
Set wrks = wrk.ActiveSheet
cell = wrks.Range("A1").Value
תוכל לוותר על הגדרת משתנה גליון העבודה, בתנאי שתעבוד רק על הגליון הנוכחי. במקרה כזה, הקוד יראה כך:
cell = wrk.ActiveSheet.Range("A1").Value
ואם תרצה, נניח, לבחור את הגליון השני בחוברת (במקום האקטיבי - ברירת המחדל):
(Set wrks = wrk.Worksheets(1
(הגליון הראשון מסומן ב- 0).
בהצלחה.
