Borders of a single cell in Excel

Bintuch has asked for the wisdom of the Perl Monks concerning the following question:

I'm looking to set the borders of a single cell in Excel. This is the code I'm using, which doesn't work..

my @Edges = qw(xlEdgeBottom xlEdgeLeft xlEdgeRight xlEdgeTop);
#foreach my $edge (@Edges) {
    $SheetWaferMap->Cells($ValueY,$ValueX)->Borders(eval($edge))->{Lin
+eStyle} = "xlContinuous";
    $SheetWaferMap->Cells($ValueY,$ValueX)->Borders(eval($edge))->{Wei
+ght} = "xlThick";
    $SheetWaferMap->Cells($ValueY,$ValueX)->Borders(eval($edge))->{Col
+orIndex} = 6;
}
[download]

What am I doing wrong?

Comment on Borders of a single cell in Excel Download Code

Replies are listed 'Best First'.
Re: Borders of a single cell in Excel by Corion (Patriarch) on Sep 14, 2008 at 14:40 UTC
I think it's the `eval($edge)`, which won't make much sense, depending on what's in `$edge` and not even return any occurring errors either. In any case, I recommend the approach detailed in Use The Macro Recorder, Luke (Re: Using Win32::OLE and Excel - Tips and Tricks), that is, using the Excel Macro Recorder to find out the things to do.	[reply] [d/l] [select]
Re^2: Borders of a single cell in Excel by Bintuch (Acolyte) on Sep 15, 2008 at 07:53 UTC
I'll try that, thanks.	[reply]
Re^3: Borders of a single cell in Excel by Bintuch (Acolyte) on Sep 15, 2008 at 14:36 UTC
Hi, it didn't work. Eventually, I've tried some differnet code that worked: `my @Edges = qw(xlEdgeBottom xlEdgeLeft xlEdgeRight xlEdgeT +op xlDiagonalUp xlDiagonalDown); foreach my $edge (@Edges) { $SheetWaferMap->Range("$Excel_LUT{$ValueX}$ValueY")->B +orders(eval($edge))->{LineStyle} = 7; }` [download]	[reply] [d/l]