in reply to How to use menu options
Which version of Excel do you have? I think it might be that the modern "Ribbon" interface isn't a menu in the same sense that GuiTest expects. Using the advice that Corion and marto gave, I was able to use SendKeys('%FS') to perform a save, but not the MenuSelect with either '&File|&Save' or 'File|Save'.
Also, regarding FindWindowLike(), I was able to match windows with 'Excel' and 'Book1', but not with the patterns including the hyphen:
use strict; use warnings; use Win32::GuiTest qw(:ALL); foreach my $like ( 'Excel', 'Book1 - Excel', 'Book1.xslx - Excel', 'Bo +ok1') { my @window = FindWindowLike(undef, $like); unless (@window) { warn "Couldn't find '$like'\n"; next; } print $like, @window; foreach (@window) { SetForegroundWindow( $_ ); SendKeys(join '{TAB}', "Hello World", $like, $_, GetWindowText +($_), "{ENTER}"); #MenuSelect("&File|&Save"); #MenuSelect("File|Save"); SendKeys('%FS'); } } __END__ __OUTPUT__ Excel 1903500 6817874 1580572 Couldn't find 'Book1 - Excel' Couldn't find 'Book1.xslx - Excel' Book1 1903500 4919696
|
|---|