Help for this page

Select Code to Download


  1. or download this
    my $LastRow = $Sheet->UsedRange->Find({What=>"*",
    SearchDirection=>xlPrevious,
    SearchOrder=>xlByRows})->{Row};
  2. or download this
    #!/usr/bin/perl
use Win32::OLE;
use Win32::OLE qw(in with);
...
$Book->Save();  
$Book->Close();
$Excel->Quit();