Beefy Boxes and Bandwidth Generously Provided by pair Networks
XP is just a number

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

by poj (Parson)
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]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others avoiding work at the Monastery: (3)
As of 2016-08-25 08:34 GMT
Find Nodes?
    Voting Booth?
    The best thing I ever won in a lottery was:

    Results (354 votes). Check out past polls.