Check Excel's font ColorIndex

check_ColorIndex.pl

use strict;
use warnings;
use utf8;
use Win32::OLE qw(in with);
use Win32::OLE::Const 'Microsoft Excel';
Win32::OLE->Option( CP=>Win32::OLE::CP_UTF8 );
use Win32::OLE::Variant;

###############################################################
# Check Excel's font ColorIndex
###############################################################

print "xlsx: ";
chomp( my $xlsx = <STDIN> );
$xlsx =~ s{^"}{};
$xlsx =~ s{"$}{};

print "Sheet name: ";
chomp( my $sheet_name = <STDIN> );
$sheet_name =~ s{^"}{};
$sheet_name =~ s{"$}{};

print "Column: ";
chomp( my $column = <STDIN> );
$column =~ s{^"}{};
$column =~ s{"$}{};

my $Excel = Win32::OLE->new('Excel.Application')
	    || die "cannot get active excel!";
$Excel->{DisplayAlerts} = 'False';
my $book = $Excel->Workbooks->Open( $xlsx ) or die;
my $sheet= $book->Worksheets( $sheet_name );

my $row;

for ( $row=1; defined( $sheet->Range( $column . $row )->{Value} ); $row++ ){
	# Check the font color.
	my $color = $sheet->Range( $column . $row )->Font->{ColorIndex};
	if ( $color ){	
		print $color . "\n";
	}
}

$book->Close();
$Excel->quit();

system('pause > nul')