Hi , I have a script which create an excel file with below details,but I need a idea to copy data of one sheet to another sheet with renaming the sheet name automatically

use Win32::OLE;

# Start Excel and make it visible
$xlApp = Win32::OLE->new('Excel.Application');
$xlApp->{Visible} = 1;

# Create a new workbook
$xlBook = $xlApp->Workbooks->Add;

# Our data that we will add to the workbook...
$mydata = [["xxx",     "xxx", "xxx"]];

# Write all the data at once...
$rng = $xlBook->ActiveSheet->Range("A1:C7");
$rng->{Value} = $mydata;

# Create a PivotTable for the data...
#$tbl = $xlBook->ActiveSheet->PivotTableWizard(1, $rng, "", "MyPivotTa
+ble");

# Set pivot fields...
#$tbl->AddFields("Category", "Item");
#$tbl->PivotFields("Price")->{Orientation} = 4; # 4=xlDataField



# Wait for user input...
print "Press <return> to continue...";
$x = <STDIN>;

# Clean up
$xlBook->{Saved} = 1;
$xlApp->Quit;
$xlBook = 0;
$xlApp = 0;

print "All done.";
        
[download]