Dunno what your problem is. This code:

use Win32::OLE;
use Win32::OLE::Const;
my $xl = Win32::OLE::Const->Load("Microsoft Excel");
foreach my $const (sort keys %$xl) {
    printf "$const = %s\n", $xl->{$const};
    #printf "sub $const { %d }\n", $xl->{$const};
}
[download]

loads and prints all the constants in a couple of seconds. An ugly hack would be to hard code the constants. You could do this simply by using the code above to dump

sub constname { NNN }
[download]

Cut and paste the output into your code or your own constants module like Win32::OLE::Const::Excel. Leave the generator code there but comment it out. Net effect - you get the constants you need fast. If the constants change just rerun the generator and it will get updated. Not a perfect solution but quite a practical kludge.