Error con APPEND FROM TYPE XLS

fernando
02 de Diciembre del 2004
Deseo determinar si el archivo de origen que quiero importar esta siendo usado por otra aplicacion (por Ej Excel) porque si esta abierto me da error al realizar APPEND FROM 6683.xls TYPE XLS.
Gracias

SAGITARIO
02 de Diciembre del 2004
LOCAL reg
reg=MESSAGEBOX("Esta seguro de usar esta opción"+CHR(13)+"el sistema guardara el archivo XLS"+CHR(13)+"dentro del VOL C:\EXCEL ",4+16+256,"Mensaje..")
******************************
SELECT tmpavance
LOCAL xpcar
xpcar=ALLTRIM(tmpavance.contrata)
IF reg=6 then
SET DEFAULT TO C:\excel
LOCAL xxdia,xxmes,xxanno,xxnombre
xxdia=STR(DAY(DATE()))
xxmes=STR(MONTH(DATE()))
xxanno=STR(YEAR(DATE()))
xxnombre=ALLTRIM(xpcar+ALLTRIM(xxdia)+ALLTRIM(xxmes)+ALLTRIM(xxanno))
IF FILE(xxnombre+'.xls')
LOCAL xc
xc=MESSAGEBOX("El Archivo ya Existe "+CHR(13)+"Desea reemplazarlo ?",4+16+256,"Aviso ")
IF xc=6 then
DELETE FILE xxnombre+'.xls' TYPE XLS
thisform.Refresh
COPY TO xxnombre+'.xls' TYPE XL5
ENDIF

ELSE
COPY TO xxnombre+'.xls' TYPE XL5
ENDIF

ENDIF
SET DEFAULT TO C:tablas
********

Jose Menarguez
02 de Diciembre del 2004
Si el error que te genera es del tipo OLE ox (en hexadecimal) corresponde al error 1426. Te recomiendo capturarlo con ON ERROR en conjunto con ERROR() y realiza la accion que desees ante el error, por ejemplo mostrar un dialogo con la leyenda "ARCHIVO BLOQUEADO". Saludos