RE:CONVERTIR A FORMATO EXCEL
Hola,
Lo puedes hacer mediante automtizacion. Aqui te muestro un ejemplo.
cFileName = "facturas.xls"
SELE facturasxrangofechas
COPY to wEnvioExcel+'facturas' type xl5
&& Crea una objeto excel
oExcel = CreateObject("Excel.Application")
&& Abre un hoja de calaculo
oWorkbook = oExcel.Workbooks.Open(cFileName)
&& Selecciona una fila
oExcel.Rows("1:1").Select
&& Inserta dos filas
oExcel.Selection.Insert
oExcel.Selection.Insert
&& Insertar valores en una celda
oExcel.ActiveSheet.Range("C1").value="RELACION DE FACTURAS"
&& Poner en negrita el Titulo
WITH oExcel.Range("C1").Font
.Name = "Arial"
.Bold = .T.
ENDWITH
&& Agranda los nombres de los campos y los pone en negrita
WITH oExcel.Range("A3:Z3").Font
.Name = "Arial"
.Size = 10
.Bold = .T.
ENDWITH
&& Agranda una Columna
WITH oExcel.ActiveSheet.Columns[3]
.ColumnWidth =.ColumnWidth + 50
ENDWITH
&& Hace visible la hoja de calculo.
oExcel.Visible = .T.
&& Borra el objeto oExcel
Release oExcel
Saludos,
Cesar
Lima Peru