Help for this page

Select Code to Download

Select or download this

use strict;
use warnings;
use Win32::OLE;
...
$sht->Cells(3,3)->{Value}="Here";
my $penultimate_column = $sht->UsedRange->SpecialCells(xlCellTypeLastC
+ell)->{Column} - 1;
print $penultimate_column;