Visual Basic para Aplicaciones - VISUAL BASIC - EXCEL.

quiero extraer datos de una base de datos y pasarlos a un Excel, que copio de otro, para asi tener una plantilla. El problema, reside en que despues de indicarle que 2 celdas tengan cierto valor y guardar el archivo, al abrir este XLS, me aparece "oculto". Es decir, tengo que ir a "Ventana", "Mostrar". He probado a excribir :
ExcelAplicacions.Book.Visible= True (da error de compilacion)
ExcelAplicacions.Worksheets(1).Visible= True (no da error, pero no hace nada.)

Me gustaria ahorrarme el paso dentro del Excel de : "Ventana", "mostrar".

Os pongo el codigo utilizado :

Option Explicit
Private BdInfapl As Database
Private RsBD As Recordset
Dim ExcelAplicacions As Object

Private Sub Form_Load()

ConectarBD

End Sub

Private Sub ConectarBD()
Set BdInfapl = DBEngine.Workspaces(0).OpenDatabase("r:\lozano\infapl97.mdb")
End Sub

Private Sub Command1_Click()

Dim RetVal, SQL, instrucfinal, pathXLS As String

SQL = "SELECT * FROM APLICACIO WHERE CodiAplicacio = 'HEMQUAL'"
' Select de la base de datos
Set RsBD = BdInfapl.Openrecordset(SQL, dbOpendynaset)
' Ejecuto la query
pathXLS = "r:\lozano\" & RsBD!CodiAplicacio & ".xls"
' Construyo el nombre que le dare al excel
instrucfinal = "cmd /c copy r:\LOZANO\Aplicacions.xls " & pathXLS
' Realizo un "copy paste de la plantilla, dandole el nombre que antes he montado
RetVal = Shell(instrucfinal, 1) ' Ejecuta el copy & paste.
Set ExcelAplicacions = GetObject(pathXLS, "Excel.sheet")
' Asigno la hoja de excel a un objeto, para poder tratarlo desde vb
ExcelAplicacions.Worksheets(1).Range("B1").Value = RsBD!NumAplicacio
' Doy valor a una celda y luego a la otra
ExcelAplicacions.Worksheets(1).Range("B2").Value = RsBD!CodiAplicacio
ExcelAplicacions.Save
' Grabo los cambios
ExcelAplicacions.Close
'Cierro la hoja excel.
MsgBox "¡ACABE! ¡ADIOS!"
Unload Form1
End Sub

REVISA ESTA PAGINA POR FAVOR
http://WWW.EXCELUSIONES.COM