Hi, Ross
This should do it:
...
$Book->{Saved} = 1;
$Book->Close;
> From: Ross Matt-QMR000 <[EMAIL PROTECTED]>
> To: [EMAIL PROTECTED], [EMAIL PROTECTED],
> [EMAIL PROTECTED]
> Subject: Automatically closing Excel
> Date: Tue, 10 Sep 2002 13:55:49 -0500
>
> To anyone that can help.
>
> I have written a perl script to open and check the values inside of excel
> worksheets and do some other stuff to it. All works well, It is just, I get
> the warning pop up asking " are you sure you want to save?". it's not to bad
> when you run two or three excel sheets but when the number is 581 it is
> really a pain. Is there any way to force the save (without getting the
> pop-up )or getting around this. any help would be beneficial. these are the
> modules that I am using;
> use Win32::WinError;
> use Win32::OLE qw(in with);
> use Win32::OLE::Const 'Microsoft Excel';
>
>
> local ($File) =@_;
> $Win32::OLE::Warn = 3;
> $Excel = Win32::OLE->GetActiveObject('Excel.Application') ||
> Win32::OLE->new('Excel.Application', 'Quit');
> $Book = $Excel->Workbooks->Open("$Win32Dir\\$File");
>
> ... processing stuff ....
>
>
> $Book->Close;
>
>
> Thanks,
> Matt Ross
_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
