Select Code to Download

#!usr/bin/perl -w
use strict;
...

# Excel exits via the deconstructor closure sub { $_[0]->Quit }; liste
+d in the open method
}

if( Win32::Ole->LastError == HRESULT(0x800a01a8)){
   print "Error\n";
}