La automatización de Excel falla cuando se ejecuta el código de segunda vez

Pasos para reproducir este comportamiento

1. Inicie un nuevo proyecto EXE estándar en Visual Basic. El formulario1 se crea de forma predeterminada.

2. En el menú Proyecto , haga clic en Referencias y, a continuación, compruebe en la Biblioteca de objetos la versión de Excel que desea automatizar.

3. Coloque un control CommandButton en Form1.

4. Copie el ejemplo de código siguiente en la ventana Código de Formulario1.

         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. En el menú Ejecutar , haga clic en Inicio o presione F5 para iniciar el programa.

6. Haga clic en el control CommandButton . No se produce ningún error. Sin embargo, se ha creado una referencia a Excel y no se ha publicado.

7. Vuelva a hacer clic en el control CommandButton . Observe que recibe uno de los mensajes de error que se analizan en la sección "Síntomas".
   
   Nota El mensaje de error se produce porque el código hace referencia al método de la celda sin precedir la llamada con el
   variable de objeto xlSheet.

8. Detenga el proyecto y cambie la siguiente línea de código:

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

   Cambie la línea de código para que se parezca a la siguiente línea de código.

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

9. Ejecute el programa de nuevo. Tenga en cuenta que puede ejecutar el código varias veces sin recibir un mensaje de error.