Foro - Perl en Español

por **MARKO** » 2012-03-13 17:35 @774

¡¡¡¡¡Saludos, Perl en español!!!!!

Debo EDITAR hojas electrónicas de Excel en formato .xls. Mi idea es leer los archivos .xls con SpreadSheet::Read y luego escribir los archivos .xls con mis cambios ya realizados.

Y me preguntaba si el módulo SpreadSheet::WriteExcel es la mejor opción ¿¿¿¿¿o habrá alguno que me convenga más?????

Teniendo en cuenta de que hablamos de formatos de archivo propietarios, no hay una seguridad del 100% de qué módulos "no oficiales de Micro$oft", en Perl, sean capaces de leer y escribir esos archivos.

Si los archivos no son complicados (no tienen gráficos, ni hojas dinámicas, solver, y complementos diversos), sí que se puede probar a hacerlo con Perl.

Si no... con Visual Basic lo podrás resolver. Eso sí, solo en Windows.

Spreadsheet::WriteExcel no ha cambiado desde el 2010. Las versiones modernas de Excel usan el nuevo formato xlsx, que puedes manejar con el módulo Excel::Writer::XLSX o Spreadsheet::WriteExcelXML.

por **MARKO** » 2012-07-05 17:43 @780

La escritura de archivos con Spreadsheet::WriteExcel, Excel::Writer::XLSX o Spreadsheet::WriteExcelXML es muy buena pero a la hora de EDITAR o SOBREESCRIBIR archivos de Excel me encontré con que Win32::OLE es la opción que más me sirvió.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use Win32::OLE;
use Win32::OLE qw(in with);
use Win32::OLE::Const 'Microsoft Excel';
 
my $excel = Win32::OLE->new('Excel.Application'); #creamos un objeto Excel nuevo
$excel -> {Visible} = 1;                        # 0 no se ve la ventana de Excel, 1 si se ve la ventana de Excel
$excel    -> {DisplayAlerts} = 0;               #deshabilita Advertencias de "El archivo ya Existe" entre otras
my $libro = $excel->Workbooks->Open('C:/directorio/archivo.xls'); # abrir fichero Excel existente
 
 
foreach my $hoja(in $libro->Sheets){               # recorremos todas las hojas del libro
  my $nombredehoja= $hoja->{Name};                 # encontramos el nombre de la hoja actual
  my $valordecelda= $hoja->Range("A5")->{Value};   # obtenemos el valor de la celda A5, si entre las llaves ponemos Value obtenemos el valor sin formato de la celda, si ponemos Text obtenemos el texto que la celda deja ver y si ponemos Formula obtenemos la formula que está en la celda
 $hoja->Range("AB35")->{Value}= $valoraingresar;   #asignamos un valor a la celda AB35 de la hoja actual
 
 my $maxfila = $hoja->UsedRange->Find({What=>"*",    #obteniendo la máxima fila utilizada de la hoja actual
               SearchDirection=>xlPrevious,
               SearchOrder=>xlByRows})->{Row};
                                        
 my $maxcolumna = $hoja->UsedRange->Find({What=>"*", #obteniendo la máxima columna utilizada de la hoja actual
                  SearchDirection=>xlPrevious,
                  SearchOrder=>xlByColumns})->{Column};
 
for (my $fila = 1;$fila <= $maxfila; $fila++){        #recorriendo todas las celdas de la hoja actual
  $columna = 'A';
  for (my $col = 1; $col<= $maxcolumna;$col++){
        $celda = $hoja->Range($columna.$fila)->{Value}; #obteniendo el valor de la celda actual de la hoja actual
        $columna ++;                                    #para las columnas usamos strings que pueden ser aumentadas con ++ pero no pueden ser disminuidas con --
        $hoja->Range($columna.$fila)->{Value}= 5 MANZANAS; #asignando valor a la celda actual de la hoja actual
  }
}
 
}  #termina el foreach;
 
my $hojastotales = $libro->Worksheets->Count();            #total de hojas que tiene el libro
 
my $hojaactual=$libro->Worksheets(4);                      #mi hoja actual ahora es la número 4
 
$hojaactual=$libro->Worksheets("productos");            #mi hoja actual ahora es la que se llame productos si la hubiera
 
$hojaactual->Activate;                                   #se mueve hacia la hoja actual.
 
Coloreado en 0.005 segundos,  usando GeSHi 1.0.8.4

Saludos. Espero que les sirva tanto como me sirvió a mi.

por **explorer** » 2012-07-05 18:11 @799

Ampliar la información, diciendo que Win32::OLE sólo funciona en Windows, bien de forma directa o sobre Cygwin.

por **MARKO** » 2012-10-30 10:31 @480

Muy buena observación, explorer. De la misma puedo ampliar algo que creo que tiene importancia:

Ya que es nativo de Windows este módulo interactúa con Excel a través de métodos OLE por lo cual no mapea el documento completo en la memoria sino que le indica a Excel (hay que tener instalado Microsoft Excel) que realice las acciones deseadas en el archivo original. Gracias a esto el proceso se hace muy rápido aunque el archivo sea muy extenso.

Saludos

por **bvayap** » 2019-09-05 17:37 @775

Buenas noches,

Estoy empezando a jugar con Perl y WIN32::OLE basándome en este hilo y necesitaría algo de ayuda, ya que tengo un error que no sé cómo resolver.

La idea es abrir un XLSX, leer valores existentes y luego introducir algunos nuevos.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
# use strict;
use Win32::OLE;
use Win32::OLE qw(in with);
# use Win32::OLE::Const 'Microsoft Excel';
 
my $excel;
my $libro;
my $hoja;
 
# use existing instance if Excel is already running
eval {$excel = Win32::OLE -> GetActiveObject('Excel.Application')};
die "Excel not installed" if $@;
unless (defined $excel) {
    $excel = Win32::OLE -> new('Excel.Application', sub {$_[0] -> Quit;})
            or die "Oops, cannot start Excel";
}
 
# get a new workbook
$libro = $excel -> Workbooks -> Open ('Prov.xlsx');
my $i = 0;
foreach $hoja(in $libro -> Sheets){
        my $nombredehoja = $hoja -> {Name};
        print $nombredehoja."\n";
        $i++;
        my $maxfila = $hoja -> UsedObjects -> Find({What => "*", 
        SearchDirection => xlPrevious,
        SearchOrder => xlByRows})-> {Row};
        print "La hoja $hoja tiene $maxfila filas.\n";
}
print "El libro tiene $i hojas.\n";
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

El caso es que me da el error "Can't call method "Sheets" on an undefined value at \pru.pl line 22.".

Además, si descomento la línea 5 me da dos errores más:

"No type library matching "Microsoft Excel" found" at prueba.pl line 5"
"Win32::OLE(0.1712): GetOleTypeLibObject() Not a Win32::OLE::TypeLib object at C:/Strawberry/perl/vendor/lib/Win32/OLE/Const.pm line 49."

¿Alguna sugerencia? Muchas gracias de antemano por vuestra ayuda.

por **explorer** » 2019-09-06 05:18 @262

Es extraño... el primer error dice que no encuentra el archivo Prov.xlsx en el directorio actual.

Prueba a indicar la ruta absoluta a ese archivo...

Pero el segundo error es aún más extraño. Ese error sale cuando el Microsoft Excel no está instalado...

Edito: aquí una persona que tenía ese problema con Word y encontró una manera, pero creo que ya está contemplado en tu código.

Edito: Es posible que esta línea funcione mejor:
use Win32::OLE::Const "Microsoft Office .* Object Library";

por **bvayap** » 2019-09-06 08:48 @408

Muchas gracias, explorer, por tu aportación. He reescrito el script a ver si consigo aprender y que sea más instructivo para alguien más...

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
# use strict;
use Win32::OLE;
use Win32::OLE qw(in with);
use Win32::OLE::Const "Microsoft Office .* Object Library";
$Win32::OLE::Warn = 3;
system ("cls");
 
my $excel;
my $libro;
my @hojas;
my @nombre_hojas;
 
# Open Excel application
$excel = Win32::OLE -> GetActiveObject('Excel.Application') || Win32::OLE -> new('Excel.Application', 'Quit');
 
# Open Excel File
$libro = $excel -> Workbooks -> Open ('C:\Perl\win32OLE\Prov.xlsx');
 
#Metemos las hojas en un Array. En $hojas[0] creo que guarda propiedades, no las hojas.
@hojas = $libro -> {Worksheets};
print "jaja $hojas[1].\n";
 
#Metemos los nombres de las hojas en un Array
@nombre_hojas = map { $_->{'Name'} } (in $libro->{Worksheets});
print $nombre_hojas[0]."\n";
print $nombre_hojas[1]."\n";
 
# Get the last row
my $maxfila = $hojas[1] -> UsedRange -> Find({What => "*", SearchDirection => xlPrevious, SearchOrder => xlByRows}) -> {Row};
print "jeje $maxfila.\n";
 
# Salvamos y cerramos el libro
$libro -> Save;
$libro -> Close;
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Efectivamente, el tema del segundo error lo he resuelto como comentabas tú, cambiando la línea 5 por la actual.

He puesto también la ruta absoluta en la línea 18 para evitar el primer problema, pero ahora me encuentro con la siguiente salida:

jaja .
Prova_1
Prova_2
Can't call method "UsedRange" on an undefined value at C:\Perl\win32OLE\pru.pl line 30.

que me dice que no puedo llamar a "UsedRange" en un valor no definido. Y me da que es porque la línea 21 no está metiendo nada en $hojas[1], ya que como vemos en la salida, sólo me imprime el texto "jaja".

Creo que no estoy entendiendo bien qué es exactamente lo que metemos en @hojas con el "WoorkSheets". ¿Alguna sugerencia?

Gracias de antemano.

por **explorer** » 2019-09-06 11:35 @524

Se te olvidó llamar al método "in":

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

@hojas = in $libro->{Worksheets};
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

El método devuelve un array de objetos, cada uno de ellos representa una hoja.

por **bvayap** » 2019-09-06 18:15 @802

¡Gracias, explorer!

Solucionado esto, ahora tengo un problema cuando intento encontrar la última fila:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
# use strict;
use Win32::OLE;
use Win32::OLE qw(in with);
use Win32::OLE::Const "Microsoft Office .* Object Library";
$Win32::OLE::Warn = 3;
#system ("cls");
 
my $excel;
my $libro;
my $hoja;
my @hojas;
my @nombre_hojas;
 
# Open Excel application
$excel = Win32::OLE -> GetActiveObject('Excel.Application') || Win32::OLE -> new('Excel.Application', 'Quit');
 
# Open Excel File
$libro = $excel -> Workbooks -> Open ('C:\Perl\win32OLE\Prov.xlsx');
 
#Metemos las hojas en un Array.
@hojas =in $libro -> Worksheets;
my $num_hojas = scalar @hojas; # Sacamos el número de hojas con la función "scalar"
print "Tenemos $num_hojas hojas.\n";
 
$hoja = $libro -> Worksheets ('Prova_1');
$hoja -> Activate (); # Elegimos la primera hoja como la activa
print $hoja -> {Name}; # Sacamos el nombre de la hoja (aunque en este caso ya lo habíamos indicado)
 
# Otra forma de sacar los nombres de las hojas. Metemos los nombres de las hojas en un Array
@nombre_hojas = map { $_-> {'Name'} } (in $libro -> {Worksheets});
 
# Get the last row
my $maxfila = $hoja -> UsedRange -> Find({What => "*",
        SearchDirection => xlPrevious,
        SearchOrder => xlByRows}) -> {Row};
print "jeje $maxfila.\n";
 
# Salvamos y cerramos el libro
$libro -> Save;
$libro -> Close;
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

por que me da un error Type Mismatch en línea 36

Tenemos 2 hojas.
Win32::OLE(0.1712) error 0x80020005: "Los tipos no coinciden"
in METHOD/PROPERTYGET "Find" argument "SearchDirection" at C:\Perl\win32OLE\pru.pl line 36.
Prova_1

Pero no he encontrado mucha información al respecto. Os cuento aquí si averiguo algo. ¡Gracias!

Foro - Perl en Español

El mejor módulo para escribir / editar hojas Excel

El mejor módulo para escribir / editar hojas Excel

Publicidad

Re: El mejor módulo para escribir hojas Excel

Re: El mejor módulo para escribir hojas Excel

Re: El mejor módulo para escribir hojas Excel

Re: El mejor módulo para escribir / editar hojas Excel

Re: El mejor módulo para escribir / editar hojas Excel

Re: El mejor módulo para escribir / editar hojas Excel

Re: El mejor módulo para escribir / editar hojas Excel

Re: El mejor módulo para escribir / editar hojas Excel

Re: El mejor módulo para escribir / editar hojas Excel

¿Quién está conectado?