Help for this page

Select Code to Download


  1. or download this
    use Win32::LongPath 'getcwdL';
use File::Spec::Functions 'catfile';
...

$pathfile3 = catfile( getcwdL, 'Template', "$input.xlsx");
$Book2-> SaveAs( $pathfile3 );
  2. or download this
    use FindBin;
use File::Spec::Functions 'catfile';
...

$pathfile3 = catfile( $FindBin::Bin, 'Template', "$input.xlsx");
$Book2-> SaveAs( $pathfile3 );