Código para exportar base de datos a excel

Me surgió un detalle al querer exportar una base de datos de visual foxpro a excel este es el código que ocupo

LOCAL lcPath as string

lcPath=PUTFILE("Guardar como: ","Agremiados","xls")
SELECT planilla
COPY TO (lcPath) TYPE XLS

Funciona por que me exporta sin problemas el detalle es que cuando voy ha hacer la exportación, si no la llevo acabo me marca un error y se cierra la aplicación no se a que se deba me podrían ayudar

1 Respuesta

Respuesta
1

Puedes poner una consulta entre PUTFILE y SELECT.. mira:

LOCAL lcPath as string
lcPath=PUTFILE("Guardar como: ","Agremiados","xls")
If Empty(lcPath)
   Return
Endif 
SELECT planilla
COPY TO (lcPath) TYPE XLS

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas