FoxPro/Visual FoxPro - Ocultar archivo y mostrar otro

En una pequeña aplicación con VFP 6.O al seleccionar ciertos datos se abren al mismo tiempo 2 archivos de Excel de forma automática, el archivo1 debe estar oculto para el usuario y el archivo2 ejecuta una macro para tomar ciertos datos del archivo1(oculto), así que mi problema es que no puedo lograr que el archivo1 se oculte, como deben de abrirse los dos archivos al mismo tiempo, con el código que muestro abajo, se abren los dos, o se ocultan los dos, así que agradecería mucho alguna sugerencia para solucionar mi problema.

IF FILE(ruta1)
wait'Espere Un Momento: "Formato en proceso"' window nowait
XLApp.workbooks.open(ruta1)
XLApp.visible=.F.
XLApp.Worksheets("CO").Select
XLApp.workbooks.open(ruta2)
XLApp.visible=.T.
XLApp.Cells(1,1)= misdatos
XLApp.Cells(2,1)= var_estacion+"_"+"CO"+"_"+fechaarc+verif
XLApp.Worksheets(1).SAVEAS(guardar_archivo) &&GUARDAR ARCHIVO
THISFORM.limpiar_etiquetas() &&limpiar etiquetas y bloquea
ELSE
MESSAGEBOX("El archivo iPAQ origen no esta ubicado en la carpeta correspondiente ","ATENCIÓN")
THISFORM.limpiar_etiquetas() &&limpiar etiquetas y bloquear
ENDIF
ELSE
MESSAGEBOX("El formato ya se ha generado anteriormente, si desea volverlo a generar requiere previa autorización.","ATENCIÓN")
THISFORM.limpiar_etiquetas() &&limpiar etiquetas y bloquear
ENDIF

Gracias, saludos desde EDOMEX

XLApp1.workbooks.open(ruta1)
XLApp1.visible=.f.
XLApp1.Worksheets("CO").Select

XLApp2.workbooks.open(ruta2)
XLApp2.visible=.T.
XLApp2.Cells(1,1)= misdatos
XLApp2.Cells(2,1)= var_estacion+"_"+"CO"+"_"+fechaarc+verif
XLApp2.Worksheets(1).SAVEAS(guardar_archivo) &&GUARDAR ARCHIVO

prueba asi ..

suerte

Muchas gracias, lo intente, pero no lo he conseguido, voy a seguir investigando, saludos.

HOLA
si aun no lo has resuelto

usa una nueva instanacia

XLAPP2 = Createobject('Excel.Application')
XLAPP2.VISIBLE =.F.

saludos

Gracias por la sugerencia, igual lo he intentado asi, pero no lo he conseguido.

Saludos.

Que extraño yo lo probe con el siguiente codigo y si me funciona bien

win xp / visual fox 9 / excel 2007


IF FILE('c:partida.xls')
wait'Espere Un Momento: "Formato en proceso"' window nowait
XLAPP = Createobject('Excel.Application')
XLApp.workbooks.open('c:partida.xls')
XLApp.visible=.F.
XLApp.Worksheets("partida").Select

XLAPP2 = Createobject('Excel.Application')
XLApp2.workbooks.open("c:marcamax.xls")
XLApp2.visible=.T.

XLApp2.Cells(1,1)= "misdatos "
XLApp2.Cells(2,1)= "unoooo"
*XLApp.Worksheets(1).SAVEAS(guardar_archivo) &&GUARDAR ARCHIVO

*THISFORM.limpiar_etiquetas() &&limpiar etiquetas y bloquea
ELSE
MESSAGEBOX("El archivo iPAQ origen no esta ubicado en la carpeta correspondiente ","ATENCIÓN")
THISFORM.limpiar_etiquetas() &&limpiar etiquetas y bloquear
ENDIF