*目次 [#n1b57c1b]
#contents
*内容 [#hc646ac8]

**参考リンク [#l1b8621a]
-[[spreadsheetWriteExcel - クロス・プラットフォームなExcelバイナリ・ファイルを出力:http://homepage3.nifty.com/hippo2000/perltips/Spreadsheet/WriteExcel.htm]]
-[[Perl で Excel ファイルを出力 - 元祖 サトシのブログ:http://www.randynetwork.com/blog/167]]
-[[Perl で Excel 出力  Drk7jp:http://www.drk7.jp/MT/archives/000565.html]]
-[[spreadsheetWriteExcel が 2.10 から便利になっている件について  Drk7jp:http://www.drk7.jp/MT/archives/001195.html]]

**サンプルソース [#i79d80d9]
-Drk7jpのコードを、Jcode等のモジュールを利用しない形に修正
 #!/usr/bin/perl -w
 
 use strict;
 use warnings;
 use Spreadsheet::WriteExcel;
 use Encode;
 use utf8;
 
 # Create a new workbook called simple.xls and add a worksheet
 my $workbook  = Spreadsheet::WriteExcel->new( "simple.xls" );
 
 my $format = $workbook->add_format();
 $format->set_font("MS PGothic");
 $format->set_size(20);
 $format->set_color('red');
 $format->set_align('center');
 
 ### シートの追加
 my $worksheet = $workbook->add_worksheet( encode( "utf16", "あああ" ), 1 );
 $worksheet->set_column(0, 0, 63); # カラム幅を指定
 
 ### データの書き込み
 $worksheet->write( 0, 0,  "こんにちわ Excel!", $format );
 $worksheet->write( 2, 0,  3 );          # Writes 3
 $worksheet->write( 3, 0,  3.00000 );    # Writes 3
 $worksheet->write( 4, 0,  3.00001 );    # Writes 3.00001
 $worksheet->write( 5, 0,  3.14159 );    # TeX revision no.?

トップ   編集 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS