FoxPro/Visual FoxPro - Pasar datos a Excel Con Titulos

Buenos Dias.

Tengo un select que pasa los datos de una tabla a excell, funciona bien, pero ahora necesito que las columnas de Excel me queden con titulos que son los nombres de los campos de la Base de Datos.

Muchas Gracias a los compañeros que me puedan ayudar.

USA EL FRX2ANY

sUERTE

De que forma lo pasas?, porque el Select -sql no lo hace directamente.

Pasas la consulta del select a un cursor y luego, le damos la vuelta a excel.


Si necesitas un ejemplo se lo envio.

CHao

Hola,
Aqui te mando un ejemplo.
SAludos,
Cesar

wEnvioExcel="C:\HojasExcel\"
cFileName = wEnvioExcel+"facturas.xls"

SELE facturasxrangofechas && Es el nombre del cursor del Select
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