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.
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 de miron
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
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
