Okay - why doesn't conditional formatting work? Are my
OLE statements correct - or is this more of an Excel
issue???
(Over here I am extracting some data from Lotus Notes
and dumping it into Excel --- all works fine except
for the conditional formatting)
use strict;
use Win32::OLE;
my $fp;
my $i;
my $dbDir;
my $Cell;
my $Notes = Win32::OLE->new('Notes.NotesSession')
or die "Cannot start Lotus Notes Session
object.\n";
my $Excel =
Win32::OLE->GetActiveObject('Excel.Application')
|| Win32::OLE->new('Excel.Application');
$Excel->{Visible} = 1;
my $Book = $Excel->Workbooks->New;
my $Book = $Excel->Workbooks->Add;
my $Sheet = $Book->Worksheets(1);
my $Range = $Sheet->Range("A1:D1");
$Range->{Value} =
[['FileName','Title','Size','Quota']];
$i = 2;
$dbDir =
$Notes->GetDbDirectory("ABB_AE01_HUB01/AE01/ABB");
my $db1 = $dbDir->GetFirstDatabase(1247);
while ($db1) {
$_ = $db1->{FilePath};
#chomp $fp;
if ( /^Mail/ ) {
print "file path $_\n";
$Range = $Sheet->Range("A$i:D$i");
$Range->{Value} =
[[$db1->{FilePath},$db1->{Title},$db1->{Size},$db1->{SizeQuota}*1000]];
$Range = $Sheet->Range("E$i");
$Range->FormatConditions ->
Add("xlExpression",,"=(C$i/D$i)<1");
$Range->FormatConditions(1)->Interior->{ColorIndex}
= 36;
$i = $i+1;
};
$db1 = $dbDir->GetNextDatabase;
}
__________________________________
Do you Yahoo!?
Yahoo! Search - Find what you’re looking for faster
http://search.yahoo.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
