Re: Problemas al leer un archivo xlsx
Publicado:
2012-07-18 05:52 @286por explorer
Prueba este programa, dumpxlsx:
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.005 segundos, usando
GeSHi 1.0.8.4
Lo llamas así:
dumpxlsx archivo.xlsxSi 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.
Re: Problemas al leer un archivo xlsx
Publicado:
2012-07-18 11:56 @539por MARKO
Saludos, hugo11ab.
Quiero hacerte una pregunta: ¿estás trabajando en Windows? Si es así te recomiendo echarle un vistazo a Win32::OLE.
Para el caso que presentas sería algo así para jalar las fórmulas de la celdas.
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');
$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.002 segundos, usando
GeSHi 1.0.8.4
aquí publiqué instrucciones relevantes para
Win32::OLE con Excel.Saludos
Re: Problemas al leer un archivo xlsx
Publicado:
2012-07-18 12:16 @553por hugo11ab
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.
Re: Problemas al leer un archivo xlsx
Publicado:
2012-07-18 12:18 @554por hugo11ab
Gracias, Marko; estoy trabajando en Linux.