Hi, evrybody, I'm new on this forum so sorry for all mistakes. I have a problem with perl script for ms project. I can't add new task in different row, only add after last one is possible Please help me.
use Win32::OLE; use Win32::OLE::Variant; use Win32::OLE::Const 'Microsoft Project'; use Win32::OLE::NLS qw( :LOCALE :DATE :TIME ); use Data::Dumper; use Cwd; my $cwd = getcwd; my $mpp = $cwd."\/EUCD_SCHED.mpp"; #EUCD_SCHED my $app = Win32::OLE->GetObject($mpp) or die "Couldn't open project"; my $project = $app->Projects(1); my $noOfTask = $app->Tasks->Count(); # my $selectedTask = $app->SelectRow(64); #RowInsert EditInsert if($app->Tasks(70)->{'EditInsert'}) { print "\n>>>> OK <<<<\n"; } else { print "\n>>>> no OK <<<<\n"; }
In reply to MS Project by keldorn
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |