使用Perl獲取excel單元格背景顏色excel win32 ole

Question

我需要檢索excel單元格的背景顏色（根據表單中的條件格式設置爲紅色/綠色）。嘗試搜索論壇，但無法找到任何東西來檢索，雖然設置顏色在那裏。 任何幫助，將不勝感激......

Answer 1

你需要$Range->Interior()->ColorIndex();

下面是示例程序：

#!/usr/bin/perl 

use Modern::Perl; 
use Win32::OLE; 
use FindBin qw($Bin); 

my $ex; 
eval { $ex = Win32::OLE->GetActiveObject('Excel.Application') }; 
die "Excel not installed" if $@; 
unless (defined $ex) { 
    $ex = Win32::OLE->new('Excel.Application', sub { $_[0]->Quit; }) 
     or die "Oops, cannot start Excel"; 
} 

my $book = $ex->Workbooks->Open("$Bin/test_background.xls"); 

my $sheet = $book->Worksheets(1); 
my $Range = $sheet->Range("A1:A1"); 
say $Range->Interior()->ColorIndex(); 

$Range = $sheet->Range("B1:B1"); 
say $Range->Interior()->ColorIndex(); 

$Range = $sheet->Range("C1:C1"); 
say $Range->Interior()->ColorIndex(); 

此文件 輸出是這樣的：

3 
6 
3