Foro - Perl en Español

¿Qué tal? Solicitando nuevamente de su ayuda.

Tengo un archivo xlsx el cual lo quiero pasar a txt. Cuando leo el archivo xlsx obtengo el valor de las celdas que me interesan. El problema surge al leer celdas que contienen fórmulas o cantidades fijas. Obtengo un cero y lo que me interesa es extraer el valor de esa celda.

¿Cómo puedo hacer, para que en lugar de 0, me mande realmente el valor que contiene la fórmula?

Pongo el código donde obtengo el valor de las celdas:


¿Qué me hace falta para que pueda imprimir los valores correctos?

El problema está en la línea 44.

Lo dice el manual: «The cell hash entry contains unformatted data, while the hash entries with the traditional labels contain the formatted values (if applicable).»

Debes usar el hash 'cell', igual que has hecho en las líneas 25 a 37.

Gracias explorer, ya lo hice de la otra forma pero tampoco me almacena los valores.

my @columnas=(12,13,14,15,16,17,18,19,20,21,22,23,11);
my $r=8;

for (my $y = 1; $y <= $renglon; $y++) {
my $col=3;
my $n1 = $ref->[1]{cell}[$col][$r]; $col++; # Contenido de la C8, de otra forma
my $n2 = $ref->[1]{cell}[$col][$r]; $col++; # Contenido de la B5, de otra forma
my $n3 = $ref->[1]{cell}[$col][$r]; $col++; # Contenido de la B5, de otra forma
my $n4 = $ref->[1]{cell}[$col][$r]; $col++; # Contenido de la B5, de otra forma
my $n5 = $ref->[1]{cell}[$col][$r]; $col++; # Contenido de la B5, de otra forma
my $n6 = $ref->[1]{cell}[$col][$r]; $col++; # Contenido de la B5, de otra forma
my $n7 = $ref->[1]{cell}[$col][$r]; # Contenido de la B5, de otra forma
#hasta aquí todo va bien.

my $clave = $n1.'|'.$n2.'|'.$n3.'|'.$n4.'|'.$n5.'|'.$n6.'|'.$n7;

my $mes=1;
foreach my $columna (@columnas) {
$lab_importes{$mes.$y}=$ref->[1]{cell}[$columna][$r]; #empiezo en la 12,8 (S8), en el archivo de Excel
#tengo una cantidad numérica, cuando leo el hash
#me aparece en blanco y en las siguientes
#columnas en 0, pero sigue sin mostrarme el
#valor de la celda.
$mes++;
}
push (@claves,"$clave");
$r++;
}

No sé qué pueda estar pasando.

Prueba a hacer un Dumper de $ref, a ver qué sale:

Ya hice el Dumper a $ref y en la mayoria de las columnas del archivo aparece la palabra undef, generalmente en donde van las fórmulas aparece undef.

En las celdas donde van las fórmulas tienen formato de color, negrita, tipo de letra, ¿crees que ese sea el problema?

No, no lo creo. Los atributos quedan almacenados en el hash 'attr'.

El módulo no ha podido leer las fórmulas... me temo que no ha podido leer el formato xlsx.

Para asegurarte, haz un Dumper de todo $ref.

O, mejor aún, activa el depurado:



Saldrá toda la estructura fuera, además de los posibles errores.

¿Es una hoja de cálculo normal? En algunas ocasiones las páginas traen alguna macro que genera fórmulas y datos en el momento de la carga de la página, con lo que, en el archivo, realmente, no existen.

¿Obtendrías el mismo resultado si pasaras al archivo de xslx a ods u otro formato más estándar?

El módulo utiliza, internamente, el módulo Spreadsheet::XLSX. Quizás tengas que probarlo de forma directa.

El archivo en Excel lo genero con el módulo Spreadsheet::XLSX. Una vez que está generado el archivo lo mando a llamar para generar el txt y al momento de leer no reconoce las fórmulas.

¿Habrá algún otro módulo para convertir xlsx a txt?

hugo11ab escribiste:El archivo en Excel lo genero con el módulo Spreadsheet::XLSX. Una vez que está generado el archivo lo mando a llamar para generar el txt y al momento de leer no reconoce las fórmulas.

Entonces... si tu eres el que genera la hoja inicial, no necesitas de ningún módulo para sacar las fórmulas. Ya tienes la información original, así que puedes grabarla en texto directamente.

hugo11ab escribiste:¿Habrá algún otro módulo para convertir xlsx a txt?

Sí. Mira la parte final de la página de manual de Spreadsheet::Read.

Gracias, explorer, el problema de no mandarlo directamente al txt, es que no toda la información que se genera la tengo, entonces para no llenar ese archivo lo decidí generarlo aplicándole las fórmulas que contiene el mismo.

Pero creo que tienes razón en que el módulo Spreadsheet::Read no puede leer celdas con fórmulas, ese mismo archivo lo generé en xls y al parecer sí leyó todas las columnas.

Seguiré haciendo más pruebas.

Agradezco mucho tu valiosa ayuda.