my $date = $excel->ActiveCell->SpecialCells( xlLastCell )->{Value}; # assuming you've imported Excel's constants with Win32::OLE::Const