Visual Basic - Problema al exportar a Excel

intento exportar datos de un recordset a excel. La primera vez lo hace correctamente, pero la segunda vez inicia excel, se ve el menu de excel, pero no se ve el área de las celdas. El codigo es el siguiente:

Dim xls As Excel.Application
Set xls = Excel.Application
xls.Workbooks.Add

xls.Cells(2, 1) = "Nombre"
xls.Cells(2, 2) = "Apellido1"
xls.Range("A3").CopyFromRecordset rstInforme

xls.Visible = True
Set xls = Nothing

¿como puedo solucionarlo?

Gracias de antemano

Tu no estas exportando sino estas copiando celda por celda si deseas exportar crea una macro en excel y luego observa el codigo
No te olvides de cerrar la hoja y el libro de Excel que abres.