A automatização do Excel falha na segunda vez que o código é executado

Passos para reproduzir o comportamento

1. Inicie um novo projeto EXE Standard no Visual Basic. O Formulário1 é criado por predefinição.

2. No menu Projeto , clique em Referências e, em seguida, verifique a Biblioteca de Objetos da versão do Excel que pretende automatizar.

3. Coloque um controlo CommandButton no Form1.

4. Copie o seguinte exemplo de código para a Janela de Código do Formulário1.

         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. No menu Executar , clique em Iniciar ou prima F5 para iniciar o programa.

6. Clique no controlo CommandButton . Não ocorre nenhum erro. No entanto, foi criada uma referência ao Excel e não foi lançada.

7. Clique novamente no controlo CommandButton . Repare que recebe uma das mensagens de erro que são abordadas na secção "Sintomas".
   
   Nota A mensagem de erro ocorre porque o código refere-se ao método da célula sem antes da chamada com o
   variável de objeto xlSheet.

8. Pare o projeto e altere a seguinte linha de código:

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

   Altere a linha de código para se assemelhar à seguinte linha de código.

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

9. Execute o programa novamente. Repare que pode executar o código várias vezes sem receber uma mensagem de erro.