Here is my one-liner to get an idea:

# ЭКСЕЛ -- ГАД И
+ ОКРУГЛЯЕТ &#10
+62;ВЕТ!!!!!!!!!!!!!!!!
perl -MOLE -we "e->Selection->{Interior}->{Color}=245*256*256+255*256+
+255;print e->Selection->{Interior}->{Color}"
[download]

Unreadable comment is my untranslatable from Russian comments on how excel rounds color numbers.

Helper OLE.pm module is trivial:

#simple helper for oneliner to get active word, excel
#package OLE;

use Win32::OLE qw(CP_UTF8);
Win32::OLE->Option(CP=>CP_UTF8);


sub e {
  return Win32::OLE->GetActiveObject('Excel.Application');
}
sub w {
  return Win32::OLE->GetActiveObject('Word.Application');
}
sub ao {
  return Win32::OLE->GetActiveObject(shift);
}

1;
[download]