Lesen und schreiben von excel-Datei in perl

Ich bin ein neuer Perl-Anwender. Ich brauche einige Hilfe in Bezug auf das Lesen und schreiben von Dateien in perl.

Lassen Sie mich erklären, das Szenario: ich habe Zum Beispiel eine input.xls die Datei enthält string -, numerischen -, drop-down-Liste.
Einige Zellen der Blätter sind gesperrt.

Will ich Lesen die Daten aus input.xls Datei und schreiben wollen, es in einer neuen Datei, Datei namens output.xls.

Das problem, das ich bin vor ist hier, ich bin nicht in der Lage, behalten die Formatierung der Datei, aus der ich lese.

I. e die Ausgabe-Datei, die generiert wird, nicht angezeigt, das drop-down-als auch die Zellen, die gesperrt sind, in input.xls die Datei erscheint nicht in der output.xls Datei.

Zweitens auch die Formatierung der Eingabe-Datei ist gestört in der Ausgabe-Datei. Für e.g wenn Zellen verbunden werden in der input-Datei, dann wird die Formatierung nicht angezeigt, dieselbe in die Ausgabe-Datei. Freundlicherweise guide.

Hier ist mein code für Ihre Referenz:

#!/usr/bin/perl -w

use strict;
use Spreadsheet::ParseExcel;
use Spreadsheet::WriteExcel;
use Spreadsheet::ParseExcel::SaveParser;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
print qq[Content-type:text/html \n\n];
my $cs='Book2.xls';
 # Open the template with SaveParser
my $parser   = new Spreadsheet::ParseExcel::SaveParser;
#my $formatter=Spreadsheet::ParseExcel::FmtJapan->new();
my $template = $parser->Parse('e.xls');

my $sheet    = 0;
my $row      = 0;
my $col      = 2;

# Get the format from the cell
my $format   = $template->{Worksheet}[$sheet]
                        ->{Cells}[$row][$col]
                        ->{FormatNo};



# Write data to some cells
$template->AddCell(0, $row,   $col,   1,     $format);
$template->AddCell(0, $row+1, $col, "This is a hello world eg", $format);
#$format->{Lock};
# Add a new worksheet
# $template->AddWorksheet('New Data');

# The SaveParser SaveAs() method returns a reference to a
# Spreadsheet::WriteExcel object. If you wish you can then
# use this to access any of the methods that aren't
# available from the SaveParser object. If you don't need
# to do this just use SaveAs().
#
my $workbook;

{
    # SaveAs generates a lot of harmless warnings about unset
    # Worksheet properties. You can ignore them if you wish.
    local $^W = 0;

    # Rewrite the file or save as a new file
    $workbook = $template->SaveAs('new.xls');

}

# Use Spreadsheet::WriteExcel methods

my $worksheet  = $workbook->sheets(0);
# $worksheet->protect();
#$worksheet->write('A1:B1','=1+2');
#my $locked  = $workbook->add_format();
# $locked->set_locked(1); # A non-op

#my $unlocked = $workbook->add_format();
#$locked->set_locked(0);

# Enable worksheet protection
#$worksheet->protect();

# This cell cannot be edited.
#$worksheet->write('A1:B1', '=1+2', $locked);

$worksheet->write($row+2, $col, "World2");

$workbook->close();
print qq[
<head>
<script> 

</script>
</head>
<body>

<p>The download should start shortly. If it doesn't, click
<a id="downloadLink" href="http://128.9.45.168/~mint/MINT_Portal/macro             /963/cgi/$cs"     download="$cs" target="_blank">here</a>.</p>
</body>
</html>

];
InformationsquelleAutor user3106831 | 2013-12-16
  1. 0

    Wird es extrem schwer zu halten, die Formatierung der Zellen (einer beliebigen Tabellenkalkulation). Spreadsheet::ParseExcel nicht wirklich verstehen, dass viel von der Formatierung (meist ignoriert es).

    Sie können feststellen, dass Sie bekommen, Sie alle arbeiten für eine bestimmte Tabelle, aber dann finden Sie eine Tabelle mit komplizierter Formatierung, die nicht so gut funktionieren.

    Was Sie brauchen, ist etwas, das verlustfrei interagiert mit dem Excel-Dokument Objekt Modell (DOM). (d.h. laden einer vorhandenen Tabellenkalkulation, Klon einige Zeilen, ändern Sie die Daten Werte, fallen einige andere Zeilen, speichern eine andere Datei).

    Der einzige code, den ich gefunden habe, der dies tut zuverlässig ist Apache POI.

    Leider, das ist eine Java-API. Ich landete schreiben eine Reihe von Sanitär-code (in Java), embedded in meinem perl-Skript mit Inline::Java. (die gibt Es .NET-APIs, können dies auch tun, aber ich war auf Linux, und ich konnte nie die MONO - +Wein-stack laufen die meisten Office-automation-Zeug.)

    Dieser Ansatz funktioniert, aber der code, um es auszuziehen, ist sehr kompliziert. Ich würde abraten zu versuchen 🙂

    Gibt es eine Weise können Sie vermeiden, tun dies in perl? (Oder nur diesen Teil?)

    InformationsquelleAutor David-SkyMesh
Schreibe einen Kommentar