Foxpr
Imagina que tienes una tabla llamada "productos", con los campos código, descripción y unidad de medida. Vamos a suponer que quieres exportar a excel los datos de esa tabla a modode reporte, entonces, aquí te dejo un código para eso. Más abajo la explicación! :D :D :D :D :D :D
**------------------------------------------**
*!* GENERACION A MICROSOFT EXCEL**--------------------------------------------**
LError = ON('error')
ON ERROR xlapp = NULL
xlapp = GETOBJECT('Excel Application')
ON ERROR &LError
IF ISNULL(xlapp)
xlapp = CREATEOBJECT('Excel.Application')ENDIF
WITH xlapp
.VISIBLE = 'True'
.DisplayAlerts = 'False'
.Workbooks.ADD()
ENDWITH
xlsheet = xlapp.ActiveSheet
WITH xlsheet
.COLUMNS("A:A").ColumnWidth = 15.00.COLUMNS("B:B").ColumnWidth = 15.00
.COLUMNS("C:C").ColumnWidth = 15.00
ENDWITH
Fila = 1
xlsheet.Cells(Fila,1).Value = 'Productos En Inventario'
WITH xlsheet.Range("A1:B1")
.Font.Name = "Corbel" &&Formatos&&
.Font.Bold= 'True'
.Font.Size = '14'
.WrapText = 'False'
.Merge
ENDWITH
WITH xlsheet.Range("A3:A8")
.Font.Bold = 'True'
ENDWITH
Fila = Fila + 2
xlsheet.Cells(Fila,2).Value = "Codigo" &&Encabezados&&xlsheet.Cells(Fila,3).Value = "Descripcion"
xlsheet.Cells(Fila,4).Value = "Unidad Medida"
Fila = Fila + 1
WITH xlsheet.Range("A10:C10")
.Font.Bold = 'True'
ENDWITH
Select productos&&Seleccionamos la tabla&&
Scan
xlsheet.Cells(Fila,2).Value = productos.codigo
xlsheet.Cells(Fila,3).Value = productos.descripcion
xlsheet.Cells(Fila,4).Value = productos.unidaddemedida
Fila = Fila + 1endscan
*************************************************
Con este código podes exportar a excel los datos de la tabla productos. Fíjate en esto: desde aquí, en este código, podemos establece las...
Regístrate para leer el documento completo.