Access - Objetos Excel

Tengo un formulario muy sencillo con un boton de Excel. Al apretar este boton, se deberia abrir excel y una Plantilla predeterminada.

Una vez en la plantilla una casilla se deberia rellenar con "sin uso"

Esto funciona correctamente la primera vez, despues de la cual como mucho me se abre el template pero no escribe nada.

Os adjunto el codigo para ver si alguien puede darme alguna sugerencia.

Este es el codigo

Dim oApp As Excel.Application
Dim wksb As Excel.Workbook
Dim WKSS As Excel.Worksheet
Set oApp = CreateObject("Excel.Application")
Set wksb = oApp.Workbooks.Add("D:\TSM\Templates\x.xlt")
Set WKSS = wksb.ActiveSheet

oApp.Visible = True
ActiveWindow.WindowState = xlMaximized
oApp.UserControl = False
With WKSS
Cells(6, 5) = "Sin uso"
End With
oApp.UserControl = True
wksb.Close
oApp.Quit
Set oApp = Nothing
Set wksb = Nothing
Set WKSS = Nothing


Un saludo
Gracias

Hola Lolo.

Parece que el problema podría estar en la línea donde intentas escribir "Sin uso" en la celda, ya que estás usando la notación de Excel para hacer referencia a la celda (por ejemplo, "Cells(6, 5)"). Sin embargo, dado que no estás haciendo referencia a un objeto específico (como una hoja de cálculo o un rango), puede que la referencia no sea válida la segunda vez que ejecutas el código.

Una posible solución sería asignar el rango de la celda a una variable en lugar de usar la notación abreviada de Excel. Puedes hacerlo de la siguiente manera:


Espero que esto te ayude a resolver el problema.