Help for this page

Select Code to Download


  1. or download this
    Range("A2:B2").Select
Selection.AutoFill Destination:=Range("A2:B17"), Type:=xlFillDefault
  2. or download this
    my $excel = Win32::OLE::Strict->new('Excel.Application', 'Quit');
my $workbook = $excel    -> Workbooks -> Open("$templfile");
...
$sh -> Range("$srcrange ") -> Select;
my $xlfill = 'xlFillDefault';
$excel -> Selection -> AutoFill({Destination => $targrange, Type => $x
+lfill});