Huh, this works for me, but if it doesn't for you, maybe you can write the constants out as below, and read them into your main program manually:

use threads;
use Win32::OLE::Const;

my $h = Win32::OLE::Const->Load('Microsoft Excel');
use Data::Dumper qw(Dumper);
print Dumper $h;
[download]