How to make COPY of Worksheet(1) to some other Worksheet ???

[Katja]

How to make COPY of Worksheet(1)to some other Worksheet ???

Please Help!


------------------
use strict;
use Win32::OLE qw(in with);
use Win32::OLE::Const 'Microsoft Excel';
$Win32::OLE::Warn = 3; # die on errors...
# get already active Excel application or open new
my $Excel = Win32::OLE->GetActiveObject('Excel.Application')
|| Win32::OLE->new('Excel.Application', 'Quit');
my $Book = $Excel->Workbooks->Open('d:\cgi\work.xls');
my $Sheet = $Book->Worksheets(1);

# How to make COPY of Worksheet(1) to some other Worksheet ???
#

$Book->Save;
------------------

 

[andygpeters]

How to make COPY of Worksheet(1)to some other Worksheet ???

Please Help!

------------------
use strict;
use Win32::OLE qw(in with);
use Win32::OLE::Const 'Microsoft Excel';
$Win32::OLE::Warn = 3; # die on errors...
# get already active Excel application or open new
my $Excel = Win32::OLE->GetActiveObject('Excel.Application')
|| Win32::OLE->new('Excel.Application', 'Quit');
my $Book = $Excel->Workbooks->Open('d:\cgi\work.xls');
my $Sheet = $Book->Worksheets(1);

# How to make COPY of Worksheet(1) to some other Worksheet ???
#

$Book->Save;
------------------

I normally record a macro and use what's been generated.
In your case this gives

Sheets("Sheet1").Select
Sheets("Sheet1").Copy Before:=Sheets(2)

Which translates to something like

$Sheet->Select;
$Sheet->Copy( 'Before' => $Book->Worksheets(2));

Hope this helps.