Как удалить все листы перед листом

lenysik

Добрый день всем!Подскажите, пожалуйста, как программно можно удалить все листы перед листом с известным названием? Количество удаляемых листов заранее не известно.Спасибо
5 ответов

lenysik

код, который оставляет только первый лист
Public Function xls(...) As Boolean

 On Error GoTo L_Err

 Set xlApp = CreateObject("Excel.Application")
 xlApp.Visible = False

 With xlApp
 .Workbooks.Add
 Do While .sheets.Count > <b>1</b>
 .sheets(.sheets.Count).Delete
 Loop
...


lenysik

Подскажите, пожалуйста, как программно можно удалить все листы перед листом с известным названием? Количество удаляемых листов заранее не известно.
With Application
 For i = <b>1</b> To .Worksheets("ИзвестноеИмя").Index - <b>1</b>
 .Sheets(<b>1</b>).Delete
 Next
 End With


lenysik

qwrqwr,Спасибо большое!


lenysik

Еще один вопрос!При удалении каждого листа выходит сообщение о предупреждении, как можно их убрать?Заранее благодарна


lenysik

Перед удалением листов пишешь
Application.DisplayAlerts = False
После того как все удалишь
Application.DisplayAlerts = True
С уважением, Николай.