Foro - Perl en Español

por **molguinv** » 2017-02-01 08:00 @375

Estimados:

Estoy ocupando el módulo Spreadsheet::WriteExcel para leer un archivo plano (más de 70 000 registros) y generar n hojas de calculo según su cantidad de registros (por ejemplo 65 000 líneas para la versión de Excel antigua).

Pero no he podido optimizar para seleccionar la hoja por nombre que esta tiene y no por el comando sheets(3) el cual selecciona la hoja 3 de izquierda a derecha en forma predeterminada y como la creación de hojas es variable, la que necesito podría esta en otra ubicación y es por eso que necesito llamarla por el nombre...

Lo que necesito es no preguntar por la posición de la hoja si no por el nombre de esta.

Saludos y gracias.

for my $worksheet ($workbook->sheets()) {
    my $nombre_hoja = $worksheet->get_name();
 
    if ($nombre_hoja eq 'MiHojita') {   # si es la hoja que me interesa...
 
        ...;                            # la modificamos
 
        last;                           # terminamos el bucle y salimos
    }
}
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

por **molguinv** » 2017-02-02 15:17 @679

Estimados:
Muchas gracias por tu respuesta.

Esto es lo que tengo y funciona siempre que en el sheets() le dé la posición de la hoja (0, 1, 2, 3, 4, 5,... N)

Y en el código adjunto trato de pasarle la variable con la posición que la tengo en $paso (también la probé {$paso}) pero el comando no me deja leer y me da el error:

Can't call method "write" on an undefined value at GeneraExcel_01.pl_rsp line 387, <FH> line 1.

Saludos y gracias.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

while (<FH>) {
    chomp;
 
    if ( $x >= 1 and $x <= 65000 )             #primer corte
    {
        $worksheet = $workbook->sheets($paso);
 
        @list = split /\;/, $_;
        foreach my $c (@list) {
 
            if ( $y == 5 and ( $c ne "Monto Protesto" ) ) {
                $c =~ s/,/./;
                $worksheet->write_number( $x, $y++, $c, $decimalNormal );
            }
            else {
                $worksheet->write( $x, $y++, $c );
            }
        }
    }                                          #if corte
 
    if ( $x >= 65001 and $x <= 130000 )        #segundo corte
    {
        #$paso++;
        $worksheet = $workbook->sheets($paso);
        $y         = 0;
        @list      = split /\;/, $_;
        foreach my $c (@list) {
            if ( $y == 5 and ( $c ne "Monto Protesto" ) ) {
                $c =~ s/,/./;
                $worksheet->write_number( $x5, $y++, $c, $decimalNormal );
 
            }
            else {
                $worksheet->write( $x5, $y++, $c );
            }
        }
        $x5++;
        $paso++;
    }                                          #if corte 2
    $x++;
    $y = 0;
    $paso++;
}                                              # while
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2017-02-02 17:16 @761

El mensaje dice que has intentado escribir en una hoja que no existe, porque a sheets() le has pasado un índice que no existe en el libro.

En el código, veo que incrementas $paso, pero ¿dónde lo pones a 0 otra vez? ¿Y si resulta que entre la hoja que está en el segundo lugar y el tercero no tiene '2' como índice? Es más... si la labor es repartir los 70 000 registros en hojas de 65 000 líneas, ¿las hojas YA están creadas o las tienes que crear en tu programa? Yo supongo que si lo que quieres es automatizarlo todo, querrás crear las hojas a medida que necesitas espacio.

En el primer mensaje comentas que quieres seleccionar las hojas por su nombre, y te di una solución, pero en el código del segundo mensaje no usas los nombres de las hojas para nada. Tendrás que decidir qué quieres hacer. Si solo se trata de repartir los registros por las hojas con un máximo de 65 000 registros, no necesitamos nombres, solo crear una nueva hoja antes de escribir en ella, cada vez que lleguemos a un registro que sea múltiplo de 65 000. Para esto último puedes usar el operador módulo (%) para saberlo, además de la variable especial $. que contendrá el número de líneas leídas del archivo.

Ahora bien, si las hojas ya están creadas, hay que seguir la recomendación del manual.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my @hojas_actuales = $libro->sheets();                                  # listado de hojas
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

luego, cada elemento de @hojas_actuales es una hoja, del que podemos saber su nombre, y escribir en ella:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my $hoja = $hojas_actuales[$i];
print $hoja->get_name(), "\n";                                          # imprime el nombre de la hoja
$hoja->write_number( $x, $y++, $c, $decimalNormal );                    # escribimos en ella
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Foro - Perl en Español

Seleccionar hoja Excel mediante comando sheets()

Seleccionar hoja Excel mediante comando sheets()

Publicidad

Re: Seleccionar hoja Excel mediante comando sheets()

Re: Seleccionar hoja Excel mediante comando sheets()

Re: Seleccionar hoja Excel mediante comando sheets()

¿Quién está conectado?