Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation

Re^3: Adding Borders to Excel Data (Excel::Writer)

by poj (Prior)
on Jul 05, 2014 at 08:58 UTC ( #1092353=note: print w/replies, xml ) Need Help??

in reply to Re^2: Adding Borders to Excel Data (Excel::Writer)
in thread Adding Borders to Excel Data (Excel::Writer)

Take a look at Using Win32::OLE and Excel - Tips and Tricks.

This code demo shows how to remove the borders around a cell. You could adapt this to scan down the columns and use some logic around previous cell,next cell to remove the borders you don't want.

#!perl use strict; use Win32::OLE::Const 'Microsoft Excel'; Win32::OLE->Option(Warn => 3); my $ex = Win32::OLE->GetActiveObject('Excel.Application') || Win32::OLE->new('Excel.Application', 'Quit'); # change filename to suit my $wb = $ex->Workbooks->Open('c:\\temp\\border.xls') ; my $ws = $wb->sheets(1); my $cell = $ws->Cells(7,2); # b7 $cell->Borders(7)->{LineStyle} = xlNone; #left $cell->Borders(8)->{LineStyle} = xlNone; #top $cell->Borders(9)->{LineStyle} = xlNone; #bottom $cell->Borders(10)->{LineStyle} = xlNone; #right # save and exit $wb->SaveAs( 'c:\\temp\\changedborder.xls' );

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1092353]
[erix]: my favorit scientist Darwin-reply was a good sly move to keep the chattering going ;)
[erix]: I've drawn several continents into the quicksand if I'm not mistaken

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (7)
As of 2017-12-15 13:02 GMT
Find Nodes?
    Voting Booth?
    What programming language do you hate the most?

    Results (432 votes). Check out past polls.