Foro - Perl en Español

por **mgonzalez** » 2010-10-18 14:41 @653

Hola.

Actualmente estoy generando un archivo Excel con Spreadsheet::WriteExcel. Dicho Excel cuenta con varios libros. Este método no es del todo eficiente ya que se está quedando colgado al generarlo.

¿Alguien por ahí sabe cómo generarlo usando otro método?

Muchas Gracias.

SO. Windows server 2000
BBDD SqlServer7

No he probado con otro, solo he visto un ejemplo donde se crea un XML, es decir un archivo plano, que no me sirve ya que lo que necesito es crear un Excel con libros. Los registros son pocos, algo así como 200 por libro. Y la cantidad de libros es de 12.

En un comienzo pensé que al cambiar prepare() y execute() iba a ganar en tiempo pero no fue así.

Aquí hay una documentación del objeto que uso:
http://search.cpan.org/dist/Spreadsheet ... bigfile.pl

Adicionalmente, he tratado de conectar la BBDD por otro método que no sea ODBC. Sin embargo, por lo que leí, hay que cambiar todas las formas de hacer las consultas.

Gracias.

por **explorer** » 2010-10-18 17:22 @765

Acabo de ver un nuevo módulo que genera Excel en formato 2007, que se ha actualizado el pasado día 12: Excel::Writer::XLSX.

por **mgonzalez** » 2010-10-19 07:54 @371

Encontré un código que hace varias páginas o libros en un Excel. Funciona sin problemas. Tal como comentaste, me encantaría estar trabajando en Linux y con otra BD.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl -w
 
###############################################################################
#
# Example of creating a Spreadsheet::WriteExcel that is larger than the
# default 7MB limit.
#
# This is exactly that same as any other Spreadsheet::WriteExcel program except
# that is requires that the OLE::Storage module is installed.
#
# reverse('©'), Jan 2007, John McNamara, [email protected]
 
 
use strict;
use Spreadsheet::WriteExcel;
 
 
my $workbook  = Spreadsheet::WriteExcel->new('c:\\www\\sbmp\\informes\\bigfile.xls');
my $worksheet = $workbook->add_worksheet('primero');
my $worksheet2 = $workbook->add_worksheet('segundo');
my $worksheet3 = $workbook->add_worksheet('tercero');
 
 
 
 
$worksheet->set_column(0, 50, 18);
 
for my $col (0 .. 50) {
    for my $row (0 .. 2000) {
        $worksheet->write($row, $col, "Row: $row Col: $col");
    }
};
 
$worksheet2->set_column(0, 50, 18);
 
for my $col (0 .. 50) {
    for my $row (0 .. 2000) {
        $worksheet2->write($row, $col, "Row: $row Col: $col");
    }
};
for my $col (0 .. 50) {
    for my $row (0 .. 2000) {
        $worksheet3->write($row, $col, "Row: $row Col: $col");
    }
};
 
 
 
__END__
Coloreado en 0.005 segundos,  usando GeSHi 1.0.8.4

¡¡Muchas Gracias por tu valiosa ayuda!!

Foro - Perl en Español

Generación de Excel sin usar Spreadsheet::WriteExcel

Generación de Excel sin usar Spreadsheet::WriteExcel

Publicidad

Re: Generación de Excel sin usar Spreadsheet::WriteExcel

Re: Generación de Excel sin usar Spreadsheet::WriteExcel

Re: Generación de Excel sin usar Spreadsheet::WriteExcel

Re: Generación de Excel sin usar Spreadsheet::WriteExcel

¿Quién está conectado?