Excel-automatisering mislukt de tweede keer dat code wordt uitgevoerd

Stappen om het gedrag te reproduceren

1. Start een nieuw Standard EXE-project in Visual Basic. Form1 wordt standaard gemaakt.

2. Klik in het menu Project op Verwijzingen en controleer vervolgens de objectbibliotheek op de versie van Excel die u wilt automatiseren.

3. Plaats een besturingselement CommandButton op Form1.

4. Kopieer het volgende codevoorbeeld naar het codevenster van 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. Klik in het menu Uitvoeren op Start of druk op F5 om het programma te starten.

6. Klik op het besturingselement CommandButton . Er treedt geen fout op. Er is echter een verwijzing naar Excel gemaakt en niet vrijgegeven.

7. Klik nogmaals op het besturingselement CommandButton . U ziet dat u een van de foutberichten ontvangt die worden besproken in de sectie Symptomen.
   
   Opmerking Het foutbericht treedt op omdat de code verwijst naar de methode van de cel zonder de aanroep te voorafgaan met de
   xlSheet-objectvariabele.

8. Stop het project en wijzig de volgende coderegel:

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

   Wijzig de coderegel zodat deze lijkt op de volgende coderegel.

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

9. Voer het programma opnieuw uit. U ziet dat u de code meerdere keren kunt uitvoeren zonder een foutbericht te ontvangen.