אוטומציה של Excel נכשלת בזמן השני שבה פועל קוד

שלבים לשכפול אופן הפעולה

1. התחל פרוייקט חדש של Standard EXE ב- Visual Basic. Form1 נוצר כברירת מחדל.

2. בתפריט פרוייקט , לחץ על הפניות ולאחר מכן בדוק את גירסת Excel שבכוונתך להפוך לאוטומטית.

3. מקם פקד CommandButton בטופס1.

4. העתק את דוגמת הקוד הבאה לחלון הקוד של Form1.

         Option Explicit
   
         Private Sub Command1_Click()
            Dim xlApp As Excel.Application
            Dim xlBook As Excel.Workbook
            Dim xlSheet As Excel.Worksheet
            Set xlApp = CreateObject("Excel.Application")
            Set xlBook = xlApp.Workbooks.Add
            Set xlSheet = xlBook.Worksheets("Sheet1")
            xlSheet.Range(Cells(1, 1), Cells(10, 2)).Value = "Hello"
            xlBook.Saved = True
            Set xlSheet = Nothing
            Set xlBook = Nothing
            xlApp.Quit
            Set xlApp = Nothing
         End Sub
   

5. בתפריט הפעלה, לחץ על התחל או הקש F5 כדי להפעיל את התוכנית.

6. לחץ על הפקד CommandButton . לא מתרחשת שגיאה. עם זאת, הפניה ל- Excel נוצרה ולא הופצה.

7. לחץ שוב על פקד CommandButton . שים לב שאתה מקבל אחת מהודעות השגיאה המפורטות בסעיף "מאפייני הבעיה".
   
   הערה הודעת השגיאה מתרחשת מאחר שהקוד מפנה לפעולת השירות של התא מבלי להוסיף לפני השיחה את
   משתנה אובייקט xlSheet.

8. הפסק את הפרוייקט ושנה את שורת הקוד הבאה:

   xlSheet.Range(Cells(1,1),Cells(10,2)).Value = "Hello"
   

   שנה את שורת הקוד כך שדומה לקוד הבא.

   xlSheet.Range(xlSheet.Cells(1,1),xlSheet.Cells(10,2)).Value = "Hello"
   

9. הפעל שוב את התוכנית. שים לב שבאפשרותך להפעיל את הקוד כמה פעמים מבלי לקבל הודעת שגיאה.