#!/usr/bin/perl -w

use Win32::OLE;
use Win32::OLE::Const 'Microsoft Excel';
$Win32::OLE::Warn = 3;
use Spreadsheet::WriteExcel;


my $filename = "T3899.csv";
my $filename1 = "modelo.T3899.csv.xls";

my $Excel = Win32::OLE->GetActiveObject('Excel.Application')
    || Win32::OLE->new('Excel.Application', 'Quit'); 
my $Book = $Excel->Workbooks->Open("C:\\Proyecto\\csv\\$filename");
my $Sheet = $Book->Worksheets(1);
$Excel->Run("prueba1");
$Excel->{Visible} = 1; 
$Book->SaveAs("c:\proyecto\$filename1");
$Book->Close;

##</code><code>##

Win32::OLE(0.1707) error 0x800a03ec
    in METHOD/PROPERTYGET "Run" at modifexcel3.pl line