Re: 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();
[download]

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!

Raghu

Comment on Re: Copy paste rows in excel Download Code

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.	[reply]
Re^3: Copy paste rows in excel by imrags (Monk) on Jul 21, 2009 at 09:06 UTC
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();` [download] The above code copies 4th row cells to 15th row cells. Raghu	[reply] [d/l]
Re^4: Copy paste rows in excel by Anonymous Monk on Dec 29, 2016 at 13:45 UTC
Hi I am trying the same code to copy values of one row of excel into another, but getting error "Can't locate object method "GetActiveObject" via package "Win32::OLE" (perhaps you forgot to load "Win32::OLE"?) at C:\Users\ssoni\Desktop\copyexcel.pl line 2." could you please help what should be done in the case?	[reply]
Re^5: Copy paste rows in excel by Corion (Patriarch) on Dec 29, 2016 at 14:00 UTC
Re^5: Copy paste rows in excel by davies (Prior) on Dec 29, 2016 at 23:41 UTC
Re^4: Copy paste rows in excel by Ankit.11nov (Acolyte) on Jul 21, 2009 at 09:36 UTC
Thanks again Raghu. Its working :)	[reply]


Perl-Sensitive Sunglasses
	PerlMonks