use strict;
use Win32::OLE qw(in with);
use Win32::OLE::Const 'Microsoft Excel';
use Win32::OLE::Variant;
use Win32::OLE::NLS qw(:LOCALE :DATE);
use FindBin qw($Bin);
$Win32::OLE::Warn = 3;
my $Excel = Win32::OLE->new('Excel.Application','Quit');
my $curpath = "$Bin/";
undef my $j;
 for $j (0 .. length($curpath)){
   if(substr($curpath,$j,1)eq '/'){substr($curpath,$j,1) = '\\';}
 }
undef my $listfile;
$listfile = "filelist.txt";
my $syscmd = "dir \/b *.xlsx > ".$listfile; 
system($syscmd);
close(STDERR);
open(STDERR, ">load_error_log.txt");
open(RDR0, $listfile);
undef my $listread;
while ($listread = <RDR0>){
    chomp($listread);
    my $ExcelFile = $curpath.$listread;
    print "*Loading $ExcelFile*\n";
    my $Book = $Excel->Workbooks->Open($ExcelFile) || die("Unable to open $ExcelFile ", Win32::OLE->LastError());
    $Book->Close(0);
    undef $Book;
}
$Excel->Quit();
undef $Excel;
close (RDR0);
close (STDERR);