获取现有 Excel 电子表格中单元格的背景颜色

Question

我正在尝试读取现有的 Excel 电子表格并将其写入具有所有相同格式选项的新 Excel 文档。

我可以读取单元格内容并将其写入新的 Excel 工作表，但无法获取单元格的背景颜色。

如果我使用 $cell->get_format->{Fill}[2] 方法，如果单元格有背景颜色，它会给我像 64 或 65 这样的数字。

如何获取单元格的实际颜色并将相同的背景颜色应用于新 Excel 工作表中的单元格？

我正在做所有这些事情，因为在将数据附加到现有 Excel 工作表后，Spreadsheet::ParseExcel 模块中没有可用的方法来设置单元格的背景颜色。

这是我的代码

use Spreadsheet::WriteExcel;
use Spreadsheet::ParseExcel;

my $parser          = Spreadsheet::ParseExcel->new();
my $workbook_parse  = $parser->Parse( 'Report.xls' );
my $worksheet_parse = $workbook_parse->Worksheet( "Health_Report" );
my ( $col_min, $col_max ) = $worksheet_parse->col_range();
my ( $row_min, $row_max ) = $worksheet_parse->row_range();

my $workbook   = Spreadsheet::WriteExcel->new( "Report_new.xls" );
my $worksheet  = $workbook->addworksheet( "Health_Report" );
my $bkgd_color = $workbook->addformat();

for my $col ( $col_min .. $col_max ) {

    for my $row ( $row_min .. $row_max ) {

        # Return the cell object at $row and $col

        my $cell = $worksheet_parse->get_cell( $row, $col );
        next unless $cell;

        my $value           = $cell->value();
        my $format          = $cell->get_format();
        my $backgroundcolor = $format->{Fill}->[2];

        print "Row, Col    = ($row, $col) ";
        print "Value       = $value\n";
        print "Format      = $backgroundcolor\n";

        $bkgd_color->set_bg_color( $backgroundcolor );

        ### Here trying to rewrite into Excel and apply the
        ### same background color which the cell had previously

        $worksheet->write( $row, $col, $value, $bkgd_color );
    }
}

打印语句的部分输出：

Format      = 65
Row, Col    = (25, 4) Value       = -115966
Format      = 65
Row, Col    = (10, 5) Value       = 20170417
Format      = 65
Row, Col    = (11, 5) Value       = 0
Format      = 64
Row, Col    = (16, 5) Value       = 0
Format      = 64

Answer 1

更新

看来文档是错误的。工作簿对象方法名与类方法名不同，需要调用

$workbook->color_idx_to_rgb($color_index)

改为

---

documentation for Spreadsheet::ParseExcel 这么说

$font->{颜色}

返回字体的颜色索引。到 RGB 颜色的映射由每个工作簿定义。

可以使用$workbook->ColorIdxToRGB() Parser 方法将索引转换为 RGB 字符串。

（旧版本的Spreadsheet::ParseExcel 提供了ColorIdxToRGB 类方法，已弃用。）

我希望$format->{Fill} 数组中的颜色索引可以类似地翻译

Answer 2

你好Venkatesh k，

尝试 (Spreadsheet::WriteExcel) 中的 set_color() 方法。

来自文档：

 Default state:      Excels default color, usually black
 Default action:     Set the default color
 Valid args:         Integers from 8..63 or the following strings:
                    'black'
                    'blue'
                    'brown'
                    'cyan'
                    'gray'
                    'green'
                    'lime'
                    'magenta'
                    'navy'
                    'orange'
                    'pink'
                    'purple'
                    'red'
                    'silver'
                    'white'
                    'yellow'

更新：试试这个，它似乎适用于我的示例电子表格。

#!/usr/bin/perl
use strict;
use warnings;
use Spreadsheet::WriteExcel;
use Spreadsheet::ParseExcel;

sub create_new_worksheet {
    my ($row, $col, $value, $backgroundcolor) = @_;

    # Create a new Excel workbook
    my $workbook = Spreadsheet::WriteExcel->new('perl.xls');

    # Add a worksheet
    my $worksheet = $workbook->add_worksheet();

    #  Add and define a format
    my $format = $workbook->add_format(bg_color => $backgroundcolor);
    $format->set_align('center');

    # Write a formatted and unformatted string, row and column notation.
    $worksheet->write($row, $col, $value, $format);
}

my $parser          = Spreadsheet::ParseExcel->new();
my $workbook_parse  = $parser->Parse( 'Report.xls' );
my $worksheet_parse = $workbook_parse->Worksheet("Sheet1");
my ( $col_min, $col_max ) = $worksheet_parse->col_range();
my ( $row_min, $row_max ) = $worksheet_parse->row_range();

for my $col ( $col_min .. $col_max ) {

    for my $row ( $row_min .. $row_max ) {

    # Return the cell object at $row and $col

    my $cell = $worksheet_parse->get_cell( $row, $col );
    next unless $cell;

    my $value           = $cell->value();
    my $format          = $cell->get_format();
    my $backgroundcolor = $format->{Fill}->[2];

    print "Row, Col    = ($row, $col) ";
    print "Value       = $value\n";
    print "Format      = $backgroundcolor\n";

    create_new_worksheet($row, $col, $value, $backgroundcolor);
    }
}