FoxPro/Visual FoxPro - Ocultar archivo y mostrar otro

   
Vista:

Ocultar archivo y mostrar otro

Publicado por Bekyna (294 intervenciones) el 14/05/2009 19:58:08
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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Ocultar archivo y mostrar otro

Publicado por Ernesto Hernandez (4632 intervenciones) el 19/05/2009 20:03:55
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

no se oculta el archivo

Publicado por Bekyna (294 intervenciones) el 19/05/2009 23:26:03
Muchas gracias, lo intente, pero no lo he conseguido, voy a seguir investigando, saludos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:no se oculta el archivo

Publicado por foxy (3 intervenciones) el 22/05/2009 19:37:24
HOLA
si aun no lo has resuelto

usa una nueva instanacia

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

saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:no se oculta el archivo

Publicado por Bekyna (294 intervenciones) el 25/05/2009 19:17:15
Gracias por la sugerencia, igual lo he intentado asi, pero no lo he conseguido.

Saludos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:no se oculta el archivo

Publicado por foxy (3 intervenciones) el 25/05/2009 22:32:10
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar