Листы в Excel

[Z-Wizard]

Товарищи, господа и просто люди!

Есть такая проблемка, по работе мне приходится работать с кучей Эксель документов, которые надо разместить в интернете, но неразумные коллеги, высылают мне всю информацию в одном файле Эксель содержащим более 30 Листов!

Как разделять на книги(файлы) по одному листу я знаю....

Собственно вопрос, можно ли как нибудь глобально их разделить на Книги, без монотонных однообразных действий?????

[yuriks]

Можно например так :

Sub SplitSheets()wn = ActiveWorkbook.NameFor Each s In Sheets	s.Copy	ActiveWorkbook.SaveAs (wn & "(" & s.Name & ").xls")	ActiveWorkbook.CloseNextEnd Sub

[Stolik]

i

Уведомление:
Тема переезжает в "Другие"