Help for this page

Select Code to Download


  1. or download this
    $FALSE = 0;
    $TRUE = 1;
    
  2. or download this
    my $Excel = &openExcel();
    my $filename = "<filename>";
    my $book = &openBook($Excel, $filename);
    my $ClosedSheet = $book->Worksheets("Closed");
    
  3. or download this
    my $closedRows = $ClosedSheet -> UsedRange -> Find({What => "*", Searc
    +hDirection => xlPrevious, SearchOrder => xlByRows}) -> {Row};
    
  4. or download this
    $range = "A1:I" . $closedRows;
            my $closedRange = $ClosedSheet->Range($range);
    ...
                my $thetargetcell = $ClosedSheet->Cells($closedRows+3, 1)-
    +>{Value};
                print "target val: " . $thetargetcell . "\n";
                $ClosedSheet->Cells($closedRows+3, 1)->Group( {Start => $T
    +RUE,  End => $TRUE, By => 1, Periods => [$FALSE, $FALSE, $FALSE, $TRU
    +E, $FALSE, $FALSE, $FALSE]});
    
  5. or download this
    Range("A460").Select
        Selection.Group Start:=True, End:=True, By:=1, Periods:=Array(Fals
    +e, _
            False, False, True, False, False, False)