Foro - Perl en Español

por **mariel** » 2012-03-17 10:29 @478

¿Algunos de ustedes podría darme alguna sugerencia de bibliotecas que exporten datos y generen gráficos a Excel así como WriteExcel de CPAN? Pero lo que deseo es que esa biblioteca pueda realizar gráficos 3D y también pueda colocarle la etiquetas de datos, lo más próximo a las que existen en Excel. Si es de pago, no importa.

En 2D sí que lo hay (Spreadsheet::WriteExcel::Chart, Excel::Writer::XLSX::Chart), pero no en 3D. Está puesto como tarea "por hacer" en estas bibliotecas.

Otra opción es usando el interfaz OLE, manejando Excel directamente, con la biblioteca Win32::OLE. En esta página de Micro$oft tienes un ejemplo de un programa que crea una tabla dinámica y un gráfico.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use Win32::OLE;
 
# Start Excel and make it visible
$xlApp = Win32::OLE->new('Excel.Application');
$xlApp->{Visible} = 1;
 
# Create a new workbook
$xlBook = $xlApp->Workbooks->Add;
 
# Our data that we will add to the workbook...
$mydata = [["Item",     "Category", "Price"], 
           ["Nails",    "Hardware",  "5.25"],
           ["Shirt",    "Clothing", "23.00"],
           ["Hammer",   "Hardware", "16.25"],
           ["Sandwich", "Food",      "5.00"],
           ["Pants",    "Clothing", "31.00"],
           ["Drinks",   "Food",      "2.25"]];
 
# Write all the data at once...
$rng = $xlBook->ActiveSheet->Range("A1:C7");
$rng->{Value} = $mydata;
 
# Create a PivotTable for the data...
$tbl = $xlBook->ActiveSheet->PivotTableWizard(1, $rng, "", "MyPivotTable");
 
# Set pivot fields...
$tbl->AddFields("Category", "Item");
$tbl->PivotFields("Price")->{Orientation} = 4; # 4=xlDataField
 
# Create a chart too...
$chart = $xlBook->Charts->Add;
$chart->SetSourceData($rng, 2);
$chart->{ChartType} = 70; # 3D-pie chart
$chart->Location(2, "Sheet4");
 
# Wait for user input...
print "Press <return> to continue...";
$x = <STDIN>;
 
# Clean up
$xlBook->{Saved} = 1;
$xlApp->Quit;
$xlBook = 0;
$xlApp = 0;
 
print "All done.";
Coloreado en 0.006 segundos,  usando GeSHi 1.0.8.4

Obviamente, la desventaja es que tienes que tener el Micro$oft Office instalado, y restringido a un ordenador con Windows.

No conozco otras opciones...

por **mariel** » 2012-03-19 09:59 @458

¿Puedes indicarme cómo instalar Win32::OLE en CentOS y Windows? Y ¿esto causaría conflicto con Spreadsheet::WriteExcel? Esta librería la tengo instalada.

por **explorer** » 2012-03-19 11:05 @504

Dudo mucho que puedas instalarla en CentOS: esta biblioteca dialoga con el protocolo OLE, que es propio de Micro$oft, así que solo podrás usarlo en Windows. Si quieres, lo puedes comprobar por ti mismo.

En Windows, depende de la distribución que estés usando. Si estás con ActivePerl, puedes usar el instalador gráfico PPM.

Y no, no hay conflictos entre bibliotecas.

por **mariel** » 2012-03-29 14:12 @633

¿Dónde puedo encontrar ejemplos de la librería Win32::OLE con gráficos como, p.e., colocarle la etiqueta de datos?

por **explorer** » 2012-03-29 19:08 @839

Usando Google, por ejemplo. Pero no hay muchos.

Uno con Excel.

Foro - Perl en Español

Reportes con gráficos en Excel

Reportes con gráficos en Excel

Publicidad

Re: Reportes con gráficos en Excel

Re: Reportes con gráficos en Excel

Re: Reportes con gráficos en Excel

Re: Reportes con gráficos en Excel

Re: Reportes con gráficos en Excel

¿Quién está conectado?