Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask

Re: Copy paste rows in excel

by imrags (Monk)
on Jul 21, 2009 at 07:17 UTC ( #781875=note: print w/replies, xml ) Need Help??

in reply to Copy paste rows in excel

Well, i wrote the following and it worked on my system.
use Win32::OLE; my $excelfile = 'E:\\perl scripts\\abc.xls'; my $Excel = Win32::OLE->GetActiveObject('Excel.Application') || Win32::OLE->new('Excel.Application', 'Quit'); $Excel->{'Visible'} = 1; my $Book = $Excel->Workbooks->Open($excelfile); my $Sheet = $Book->Worksheets("Sheet1"); $Sheet->Activate(); #------Here's what u were looking for $Sheet->range('A4')->copy(); $Sheet->range('B1')->Select(); $Sheet->paste();
With what I've learnt using excel<->perl, i've found that one should write the code
as one would work manually with excel (step by step), that helps with perl/excel.
That's my feeling anyway!

Replies are listed 'Best First'.
Re^2: Copy paste rows in excel
by Ankit.11nov (Acolyte) on Jul 21, 2009 at 08:19 UTC
    Thanks Raghu for the help. With this piece of code copy operation is working for me as well.
    One more clarification:
    Is there any way in which we can copy one complete row and paste it, as here it just picks the cell A4 and copies to cell B1.
      As I said, think how you'll do it manually and make perl do it.
      $Sheet->rows('4:4')->copy(); $Sheet->rows('15:15')->Select(); $Sheet->paste();
      The above code copies 4th row cells to 15th row cells.
        Thanks again Raghu. Its working :)

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://781875]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others exploiting the Monastery: (8)
As of 2016-10-24 10:49 GMT
Find Nodes?
    Voting Booth?
    How many different varieties (color, size, etc) of socks do you have in your sock drawer?

    Results (305 votes). Check out past polls.