#!/usr/bin/perl
use strict;
use Win32::OLE qw(in with);
use Win32::OLE::Const;
use Win32::OLE::Const 'Microsoft Excel';
$Win32::OLE::Warn = 3;


my $filename = 'F:\perl\report.xlsx';

my $Excel = Win32::OLE->GetActiveObject('Excel.Application') 
|| Win32::OLE->new('Excel.Application', 'Quit'); 

my $Book = $Excel->Workbooks->Open( $filename );

$Excel->Run("Deletebrows"); # This is macro name
$Excel->Run("FillEmptyCellWithZero"); # This is macroname
$Book->Close;