Help for this page

Select Code to Download

Select or download this

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

Select or download this
$Sheet->Range("[list.xls]ListSheet1!a1:a99")->AutoFilter;