Convertir CURSOR a EXCEL

Convertir un CURSOR en un archivo de EXCEL.
Ejemplo:
Select * from clientes;
into cursor Tablaclientes;
Como lo puedo hacer, y además me permita ponerle un nombre al archivo de excel desde un cuadro de texto.

1 Respuesta

Respuesta
Puedes hacer los siguiente:
Select * from clientes;
into cursor Tablaclientes
if _Tally>0 Then
Select Tablaclientes
gcDelimName = ALIAS( ) + '.XLS'
gcDelimFile = PUTFILE('Archivo excel:', gcDelimName, 'XLS')
IF !EMPTY(gcDelimFile)
COPY TO (gcDelimFile) TYPE XL5 && Crea archivo EXCEL
Endif

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas