Hi Monks, I am Not able to attach and edit Excel file , which helps us to send an email automatically to the end users with excel attachment..

#!/usr/bin/perl -w
use strict;
use warnings;
use OLE;
use Win32::OLE::Const 'Microsoft Excel';

my $Excel = CreateObject OLE "Excel.Application";
my $Book2 = $Excel->Workbooks->Add();
my $Book3 = $Excel->Workbooks->Open("xxx.xls");
my $Sheet3 = $Book3->Worksheets(1);
$Sheet3->Select;
$Sheet3->Move("Before" => $Book2->Worksheets(1));
$Book3->Close(0);
$Book2->SaveAs({Filename =>"yyy.xls",FileFormat => xlOpenXMLWorkbookMa
+croEnabled}); 
$Book2->Close();
$Excel -> Quit();
[download]

Error:- Unrecognized escape \D passed through at eight.pl line 9. Unrecognized escape \D passed through at eight.pl line 14. Can't call method "Worksheets" on an undefined value at eight.pl line 10.