Вопрос : Рабочий лист Delete в workbook

Я получаю workbook от группы, которая имеет несколько worksheetes которые мне нужно мочь sytematically уничтожить некоторые рабочий лист, включая спрятанные рабочий лист до бежать

Worksheet query.

например рабочий лист f Delete
Worksheet g Keep

Hidden, котор keep
Worksheet c Keep
Worksheet d Delete
Hidden Delete
Worksheet b/>Then сохраняет workbook который имеет рабочий лист b, рабочий лист c, и рабочий лист g к новому file. class=

Ответ : Рабочий лист Delete в workbook

Это Кодий сохранит как «newfile.xls» к такой же директории с только листами имеют имена, котор хранят в strNames

Приветственные восклицания

Дэйв

1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26: 27: 28:

Sub RemoveSheets () Тусклые strNames (1 до 4) как шнур Тусклый ws как рабочий лист ActiveWorkbook.SaveAs ActiveWorkbook.Path & «\ newfile» strNames (1) = «лист a» strNames (2) = «лист b» strNames (3) = «лист c» strNames (4) = «лист g» С применением .DisplayAlerts = ложно .ScreenUpdating = ложно Конец с На резюме ошибки затем Для каждого ws в ActiveWorkbook.Sheets Если не Application.WorksheetFunction.Match, то (ws. Имя, strNames, 0) > 0 после этого ws. Delete Затем С применением .DisplayAlerts = True .ScreenUpdating = True Конец с Подводная лодка конца