Az Excel automatizálása a kód második futtatásakor meghiúsul

A viselkedés reprodukálásának lépései

1. Indítson el egy új Standard EXE-projektet a Visual Basicben. A form1 alapértelmezés szerint létrejön.

2. A Projekt menüben kattintson a Hivatkozások elemre, majd ellenőrizze az Objektumtárban, hogy az Excel mely verzióját szeretné automatizálni.

3. Helyezzen el egy CommandButton vezérlőt a Form1 űrlapon.

4. Másolja a következő példakódot a Form1 kódablakba.

         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. A Futtatás menüben kattintson a Start gombra, vagy nyomja le az F5 billentyűt a program elindításához.

6. Kattintson a CommandButton vezérlőre. Nem történik hiba. Az Excelre mutató hivatkozás azonban létrejött, és nem lett közzéadva.

7. Kattintson ismét a CommandButton vezérlőre. Figyelje meg, hogy a "Tünetek" szakaszban tárgyalt hibaüzenetek egyike jelenik meg.
   
   Megjegyzés: A hibaüzenet azért jelenik meg, mert a kód a cella metódusára hivatkozik anélkül, hogy a hívást
   a xlSheet objektumváltozó.

8. Állítsa le a projektet, és módosítsa a következő kódsort:

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

   Módosítsa a kódsort úgy, hogy az a következő kódsorhoz hasonlítson.

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

9. Futtassa újra a programot. Figyelje meg, hogy a kódot többször is futtathatja anélkül, hogy hibaüzenetet kapna.