Estimado:
Yo lo que hago es capturar la ventana para verificar si el archivo esta abierto en el excel y mandarlo a cerrar:
cFile3:='NV'+OT:CMES
oWndCapt := TWCapture():New( "Microsoft Excel - "+cFile3)
if oWndCapt:lCaptured
MSGALERT('El archivo '+cFile3+' se encuentra en uso.'+CRLF+;
'Cierre el archivo para gener uno nuevo','Archivo abierto')
oWndCapt:Setfocus()
oWndCapt:End()
FOR I:=1 TO 10
oWndCapt := TWCapture():New( "Microsoft Excel - "+cFile3)
if oWndCapt:lCaptured
syswait(4)
IF I == 10
MSGALERT('El archivo '+cFile3+' se encuentra en uso.'+CRLF+;
'Cierre el archivo para gener uno nuevo','Archivo abierto')
RETURN NIL
ENDIF
else
EXIT
endif
NEXT
IF FILE(cFile)
FERASE(cFile)
ENDIF
else
* ? 'no se pudo capturar la ventana'
endif
Saludos
Daniel Puente
Santa Cruz, Argentina
↧