PRIVATE lcTextFile
lcTextFile = ''
xD = SYS(5)
lcTextFile = "C:\Carpeta\Federados_Excel.xlsx"
crutinaerroractual = ON("Error")lhuboerror = .F.
ON ERROR LHUBOERROR = .T.
oexcel = CREATEOBJECT("Excel.Application")ON Error &cRutinaErrorActual
IF lhuboerror
nresp = MESSAGEBOX( ;
"¿Desea generar una lista sin formato?", ;
35, ;
"Excel NO esta instalado en esta computadora." ;
)
IF nresp = 6
generacsv()
ENDIF
ELSE
GeneraHojaElectronica()
ENDIF
RETURN
ENDPROC
**Genera un Hoja
PROCEDURE GeneraCSV
carchivo = GETFILE("Hoja excel:XLS", "Libro de compras.", "Grabar", 0)
IF EMPTY(carchivo)
= MESSAGEBOX("Debe seleccionar un nombre de archivo.", 64, "Error") ELSE
COPY TO (carchivo) TYPE XLS
= MESSAGEBOX("El archivo fue grabado satisfactoriamente", 0, "") ENDIF
ENDPROC
**
PROCEDURE GeneraHojaElectronica
WAIT WINDOW NOCLEAR NOWAIT "Generando Libro Excel, Espere un momento por favor."
oexcel.workbooks.Open(lcTextFile,,.t.) &&Aqui se abre el archivo
WITH oexcel.worksheets(1) &&Aqui es el Nombre o No. de Hoja en tu lebro excel
**Barre toda la Tabla
SELECT CulistFede
GOTO TOP
j = 4 &&Linea Inicial
SCAN ALL
cj = ALLTRIM(STR(j, 10, 0))
.range("A" + cj).value = "'"+Sede .range("B" + cj).value = codigo .range("C" + cj).value = ALLTRIM(nombre)+" "+ALLTRIM(apellido) .range("D" + cj).value = DTOC(fecha_nac) .range("E" + cj).value = edad
j = j + 1
SELECT CulistFede
ENDSCAN
.range("A1").select()
ENDWITH
******************FINAL ACUERDO********************
oexcel.visible = .T.
RELEASE oexcel
WAIT CLEAR
= MESSAGEBOX("La hoja fue generada satisfactoriamente.", 0, "")ENDPROC
**
