3

Perl を使用して、2x2 次元配列に格納されているデータを Excel に追加したいと考えています。簡単なデータを開いて追加する方法を知っています。これは、for ループを使用して実行できます。しかし、どうすればエレガントにできますか？

これが私がやろうとしていることです

$sheet->Range("A1:B"."$size")->{Value} = @$data;
                                         or   @data;
                                         or   {@data};
                                         or   {\@data};

ここで@dataは 2 次元配列です。

# use existing instance if Excel is already running
eval {$ex = Win32::OLE->GetActiveObject('Excel.Application')};
die "Excel not installed" if $@;
unless (defined $ex) {
    $ex = Win32::OLE->new('Excel.Application', sub {$_[0]->Quit;})
            or die "Oops, cannot start Excel";
}


# get a new workbook
$book = $ex->Workbooks->Add;

# write to a particular cell
$sheet = $book->Worksheets(1);
print "A1:B"."$size";
# write a 2 rows by 3 columns range

$sheet->Range("A1:B"."$size")->{Value} = @$data;
4

2 に答える 2

3

Win32::OLE を使用しているようですが、このようなこともSpreadsheet::WriteExcelを使用すると非常に簡単です。

#!/usr/bin/perl -w

use strict;
use Spreadsheet::WriteExcel;

my $workbook  = Spreadsheet::WriteExcel->new('test.xls');
my $worksheet = $workbook->add_worksheet();

# Get your AoA from somewhere.
my $data = [
    [ 'Hello', 'world', 123   ],
    [ 'Bye',   'bye',   4.567 ],
];

# Write the data.
$worksheet->write_col( 'A1', $data );
于 2009-04-08T13:15:09.233 に答える
2

いくつかの読み取りに基づいて (目の前に Win32 ボックスがありません)、のValue属性がAoARangeへの参照を正しく処理しているように見えるので、次のように言ってみてください:

my $data = [
    ["a1", "b1"],
    ["a2", "b2"],
];
$sheet->Range("A1:B" . @$data)->{Value} = $data;
于 2009-04-08T11:24:41.543 に答える