Hola a todos.
Hice un pequeño cambio a la clase texcel, Tome de base lo modificado por Carlos Sincuir y la modificacion que hice es para cambiar de look las tablas dinamicas.
Espero que les sirva. Utilice el mismo ejemplo de ventas.xls proporcionado por Carlos Sincuir.
La clase la pueden bajar desde http://www.suproye.net/texcel
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] )
//Formato para tabla dinamica
oExcel:SetFormatoTd( 16 ) // el numero es lo que cambia el formato de la tabla dinamica
Si tienen problemas para descargar pueden enviarme un correo a jrph10@hotmail.com o jponce@suproye.net.
Estoy trabajando para poner Graficas Dinamicas de excel si alguien ya tiene desarrollado algo favor enviarmelo a mi correo.
Atentamente
Julio Rodrigo Ponce Hinestroza
SUMINISTROS Y PROYECTOS
GUATEMALA