Your code is not indented. This makes it very hard to read.

Your code won't run without your file. This makes it impossible for anyone to reproduce your problem.

There's no need to differentiate in code between for and foreach. Perl will work out which you mean.

You use ParseExcel, but apparently only to find out how many sheets there are. This is very inefficient.

You go through the sheets from 1 to n. This is always dangerous. See RFC Tutorial: Adding and extracting VBA to and from Excel files comment 1 and Re: Delete Row in ExcelRFC Tutorial - Deleting Excel Rows, Columns and Sheets, which describes the issues specifically.

You have a loop within a loop to match sheet & array names. This is inefficient, making your code O(n^2). My code isn't much better on this - more later.

You mix the terms "sheet" and "page". A page in Excel is something that gets printed. I know it's confusing because they refer to "workbooks", but the more strictly you use terminology, the easier it is to answer questions.

You don't use strict & warnings.

use strict;
use warnings;
use Win32::OLE;

my $xl = Win32::OLE->new('Excel.Application');
   $xl->{Visible} = 1;
   $xl->{SheetsInNewWorkbook} = 5;
my $wb = $xl->Workbooks->Add;
$wb->Sheets(4)->{Name} = 'del';
$wb->Sheets(5)->{Name} = 'dell';

my @excel_del_sheets = ("del", "Sheet1", "Sheet2", "Sheet3");
for (my $shtNo = $wb->Sheets->{Count}; $shtNo > 0; $shtNo--) {
    my $shtName = $wb->Sheets($shtNo)->{Name};
    if (grep(/^$shtName$/, @excel_del_sheets)) {
        $wb->Sheets($shtNo)->Delete;
    }
}
[download]

First, lines 12 to 18 can be commented out and the code run without them. This will set up a file so that the user can see that the previous code works.

Now we loop through each sheet starting at the end. If it is found in the array, it is deleted.

Sheet 5 is named "dell" so that we can prove that subsets of names are not deleted. This is the purpose of the "^" and "$" in the grep regex.

After a sheet has been deleted, delete the name from the array. Then future searches will be quicker. Is it worth it? For a few sheets, no. For hundreds of files with hundreds of sheets, certainly.

The code should check that it is not deleting the last sheet in a workbook. Excel can't do this & the Perl will crashsilently fail to delete the sheet.

Regards,

John Davies