And I am using the following modules. I did not paste the m here before.sortByColor("D:/sort.xls",12); sub sortByColor { my $filename = $_[0]; my $no_of_columns = $_[1]; ... }
This script automates a process that usually takes 5 hours of manual work each day. And I was able to reduce it to 15 mins. Thank you all for your help.I completed it.use strict; use warnings; use POSIX qw(strftime); use Net::Google::Drive::Simple; use WWW::Mechanize; use HTTP::Cookies; use LWP::Debug qw(+); use URL::Encode; use URI::Escape; use Date::Simple qw(date); use File::Copy; use Data::Table::Excel; use Data::Dumper; use Modern::Perl; use Tie::File qw(); use Switch; use Win32::OLE::Const "Microsoft Excel"; use Digest::MD5 qw(md5_hex); use IO::Uncompress::Unzip qw(unzip $UnzipError);
In reply to Re^4: Perl OLE Excel Sort By Color
by martinslmn
in thread Perl OLE Excel Sort By Color
by martinslmn
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |