nicht angemeldet
Hallo,
wer schon immer danach suchte: eine Exceltabelle nach HTML zu wandeln... hier ist eine Grundlage für individuelle Weiterentwicklungen.
Einen wunderschönen SamstagAbend auch, Rolf
--- Anfang Script --->
Script liest eine Exceltabelle aus und zeigt den Inhalt im Browser
Script geschreiben und getestet von Rolf Rost am Samstag, 13. März 1999
use strict;
use Win32::OLE qw(in with);
use Win32::OLE::Const 'Microsoft Excel';
$Win32::OLE::Warn = 3;
my $Excel = Win32::OLE->GetActiveObject('Excel.Application') ||
Win32::OLE->new('Excel.Application', 'Quit');
my $Book = $Excel->Workbooks->Open('c:\links.pl\cgi-bin\tree.xls');
my $Sheet = $Book->Worksheets(1); # entspricht Tabelle1, erstes ABlatt
my $array = $Sheet->Range('A1:D22')->{'Value'};
$Book->Close;
print "content-type:text/html\n\n";
print "<HTML><HEAD>
<TITLE>Eine Excel Tabelle als HTML Tabelle</TITLE>
</HEAD><BODY BGCOLOR=silver>";
print "<h3>Eine Excel Tabelle öffnen - als HTML Tabelle ausgeben:</h3>";
print "<table border=1 align=center cellspacing=1>\n";
foreach my $ref_array (@$array){
print "<tr>\n";
foreach my $scalar (@$ref_array){
print "<td>$scalar</td>\n";
}
print "</tr>\n";
}
print "</table>\n
</body></html>";
--- Ende Script ----<
Info to PERL, command -line: perl -v
This is perl, version 5.005_02 built for MSWin32-x86-object
(with 1 registered patch, see perl -V for more detail)
Copyright 1987-1998, Larry Wall
Binary build 509 provided by ActiveState Tool Corp.
http://www.ActiveState.com
Built 13:37:15 Jan 5 1999
Perl may be copied only under the terms of either the Artistic License or
the
GNU General Public License, which may be found in the Perl 5.0 source
kit.
Complete documentation for Perl, including FAQ lists, should be found on
this system using man perl' or perldoc perl'. If you have access to
the