使用perl excel win32 ole检索excel单元格背景颜色
使用perl excel win32 ole检索excel单元格背景颜色
提问于 2013-07-08 23:39:42
我需要检索excel单元格的背景颜色(根据工作表中的条件格式设置为红色/绿色)。尝试搜索论坛，但没有找到任何东西检索，虽然设置的颜色在那里。任何帮助都将不胜感激。
回答 1
Stack Overflow用户
发布于 2013-07-09 22:06:49
您需要$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页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/17530666
复制相关文章
相似问题
腾讯云开发者
