Spreadsheet::WriteExcel でデフォルトフォントが Arial なのがイヤだ
こんな悪いことするといかにも日本の Excel なファイルができました。
use utf8; use Spreadsheet::WriteExcel; use Spreadsheet::WriteExcel::Format; my $book = Spreadsheet::WriteExcel->new('foo.xls'); my $default_format = Spreadsheet::WriteExcel::Format->new( 15, # default font font => 'MS Pゴシック', size => 11, ); $book->{_formats}->[15] = $default_format; my $sheet = $book->add_worksheet(); $sheet->write(0, 0, 'ほげほげ'); $book->close();
いまだにバイナリ xls にこだわるのもなんですけど。