Pues despues de dos días de estar invenstigando como programar las tablas dinámicas de Excel, que nos pueden ayudar a darle otro aspecto a los reportes que queramos hacer con una hoja electrónica:
Logre hacer estos otros métodos para la TExcels, y me generá de una manera rápida una tabla pivoteada ó tabla dinámica, con solo poner este código:
Code: Select all | Expand
*---------------------------------* Crea una tabla dinámica en Excel*---------------------------------FUNCTION GenTablaDinamica() LOCAL aPagina[2], aFilas[2], aColumnas[1], aDatos[1], ; cRango, cArchivo, oExcel, oPivot* Rango de celdas de la planilla cRango = "A1:F325" cArchivo= cFilePath( GetModuleFileName( GetInstance() )) + "Ventas.xls" *--- Arrays con los datos de la tabla dinamica aPagina[1]="Vendedor" aPagina[2]="Zona" aFilas[1]="Marca" aFilas[2]="Modelo" aColumnas[1]="Anio" aDatos[1]="Cantidad" oExcel := TExcelScript():New() oExcel:Add( cArchivo ) oExcel:Visualizar(.T.) oExcel:TablaDinamica( cRango ) //Filas oExcel:SetRowTD( aFilas[1] ) oExcel:SetRowTD( aFilas[2] )//Columnas oExcel:SetColumnTD( aColumnas[1] )//Paginas oExcel:SetPageTD( aPagina[1] ) oExcel:SetPageTD( aPagina[2] )//Datos oExcel:SetDataTD( aDatos[1] ) oExcel:NameSheet( "Hoja1", "Tabla Dinámica" ) oExcel:End(.f.)RETURN NIL
Si a alguien le interesa puede bajar la clase TExcels modificada con estos metodos, mas la la hoja excel para que funcione el ejemplo arriba indicado desde esta direccion:
http://tecnisistemas.com/fideck/modulos/actualizaciones/Upload/FuentesTdPIVOTT.ZIP
Espero les pueda servir.
Saludos.
Carlos Sincuir
