#!/usr/bin/perl
use Win32::OLE qw(in with);
use Win32::OLE::Const 'Microsoft Excel';
my $Excel = Win32::OLE->GetActiveObject('Excel.Application')
        || Win32::OLE->new('Excel.Application', 'Quit');

$MacroName = "LargeFileImport";
#Running a macro
$excelfile = "c:\\SndExMail\\test.xls";
my $Book = $Excel->Workbooks->Open($excelfile); 
my $Sheet = $Book->Worksheets("Sheet1");
$Sheet->Activate();

$Excel->Run($MacroName);