Foro - Perl en Español

por **explorer** » 2012-07-18 05:52 @286

Prueba este programa, dumpxlsx:

Sintáxis: (dumpxlsx) [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl -w
# Paul 
#use strict;
 
use Text::Iconv;
my $convertor = Text::Iconv -> new("utf-8", "windows-1251");
 
use lib "Spreadsheet-XLSX-0.13/lib/";
#use lib "Spreadsheet-XLSX-0.13_updated/lib/";
use Spreadsheet::XLSX;
 
 
sub dump_sheet($) {
   my $Path = $_[0];
   print "Dumping workbook '$Path'\n";
   my $oBook = Spreadsheet::XLSX -> new($Path, $convertor);
   foreach my $sheet (@{$oBook -> {Worksheet}}) {
      printf("  Dumping sheet %s\n", $sheet->{Name});
      $sheet -> {MaxRow} ||= $sheet -> {MinRow};
      foreach my $row ($sheet -> {MinRow} .. $sheet -> {MaxRow}) {
         $sheet -> {MaxCol} ||= $sheet -> {MinCol};
         foreach my $col ($sheet -> {MinCol} .. $sheet -> {MaxCol}) {
            my $cell = $sheet -> {Cells} [$row] [$col];
            if ($cell) {
               printf("    (%s,%s) => %s\n", $row, $col, $cell -> {Val});
               }
            }
         }
      print "  End of sheet\n";
      }
   print "End of workbook '$Path'\n";
   }
 
 
my @PathList;
# Use names on command line, or built-in test cases
if ($#ARGV != -1) {
   @PathList = @ARGV;
   }
else {
   @PathList = (
      "test.xlsx",
      "Settlement_20120531.xlsx",
      "207Settlement-2012-06-12.xlsx",
      );
   }
foreach my $Path (@PathList) {
   dump_sheet($Path);
   }
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

Lo llamas así: dumpxlsx archivo.xlsx

Si no te funciona, al final de la página donde encontré este programa hay una versión parcheada del módulo XLSX.pm de hace un mes.

use Win32::OLE;
use Win32::OLE qw(in with);
use Win32::OLE::Const 'Microsoft Excel';
 
my $excel = Win32::OLE->new('Excel.Application');
$excel -> {Visible} = 1;
$excel    -> {DisplayAlerts} = 1;
my $libro = $excel->Workbooks->Open($archivo); # abrir fichero Excel
my $hoja = $libro->Worksheets("Hoja1");
$hoja->Activate;
my $formula = $hoja->Range("AA8")->{Formula};   #ya tienes la formula que estaba en la celda AA8
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

aquí publiqué instrucciones relevantes para Win32::OLE con Excel.

Saludos

por **hugo11ab** » 2012-07-18 12:16 @553

Gracias, explorer, gracias a la observación que me hiciste:

"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."

Lo que hice fue que como yo genero el archivo xlsx, entonces abro otra hoja en el mismo archivo y desde ahí voy formando los registros para conformar el archivo plano. Una vez que ya tengo toda la información requerida, copio la columna del archivo de Excel y la pego en un archivo txt y de esta manera obtengo mi archivo plano.

Creo que no es la manera correcta de hacerlo, pero al final he obtenido el resultado deseado.

De todas formas le echaré un vistazo al programa que me recomendaste. Agradezco mucho tu ayuda.

por **hugo11ab** » 2012-07-18 12:18 @554

Gracias, Marko; estoy trabajando en Linux.

Foro - Perl en Español

Problemas al leer un archivo xlsx

Re: Problemas al leer un archivo xlsx

Publicidad

Re: Problemas al leer un archivo xlsx

Re: Problemas al leer un archivo xlsx

Re: Problemas al leer un archivo xlsx

¿Quién está conectado?