Excel automation misslyckas andra gången koden körs

Steg för att reproducera beteendet

1. Starta ett nytt Standard EXE-projekt i Visual Basic. Formulär1 skapas som standard.

2. Klicka på Referenser på Projekt-menyn och kontrollera sedan objektbiblioteket för den version av Excel som du tänker automatisera.

3. Placera en CommandButton-kontroll i Formulär1.

4. Kopiera följande kodexempel till kodfönstret i formulär1.

         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. På menyn Kör klickar du på Start eller trycker på F5 för att starta programmet.

6. Klicka på kommandoknappen . Inga fel uppstår. En referens till Excel har dock skapats och har inte släppts.

7. Klicka på KommandoKnapp-kontrollen igen. Observera att du får något av de felmeddelanden som diskuteras i avsnittet Symptom.
   
   Obs! Felmeddelandet visas eftersom koden refererar till cellmetoden utan att föregå samtalet med
   xlSheet-objektvariabel.

8. Stoppa projektet och ändra följande kodrad:

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

   Ändra kodraden så att den liknar följande kodrad.

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

9. Kör programmet igen. Observera att du kan köra koden flera gånger utan att få ett felmeddelande.