קישור בין VB לאקסל, שאלה??????????

איך מעבירים ערך תא מסוים בקובץ אקסל למשתנה ב - VB תוך כדי ריצה????? תודה

מודל האובייקטים של אופיס.

החל מחבילת אופיס 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). בהצלחה.
עבור לעמוד
בחזרה לפורום
כרגע בפורום זה: אין משתמשים רשומים
עבור לפורום:
תיכנות
בחר
בחר