背景色をhexで Spreadsheet::ParseExcel

M$の呪縛から解き放ってくれるのがSpreadsheet::ParseExcel。


色の指定がColorIndexなのが信じられない。
RGBとかhexで保存しておいてほしい。
この辺りがM$のセンスだよなぁ。





しかし、さすがcpan。
ColorIndexからhexを得る関数が用意されてる。
セルの背景色をゲットするには以下。

          my $cell=$sheet->{Cells}[10][10]->Value;
          my $fg_color = $cell->{Format}->{Fill}->[1];
          my $color=Spreadsheet::ParseExcel->ColorIdxToRGB($fg_color);

これでOK。