Z-Wizard Опубликовано 3 августа, 2006 Жалоба Поделиться Опубликовано 3 августа, 2006 Товарищи, господа и просто люди! Есть такая проблемка, по работе мне приходится работать с кучей Эксель документов, которые надо разместить в интернете, но неразумные коллеги, высылают мне всю информацию в одном файле Эксель содержащим более 30 Листов! Как разделять на книги(файлы) по одному листу я знаю.... Собственно вопрос, можно ли как нибудь глобально их разделить на Книги, без монотонных однообразных действий????? Цитата Ссылка на комментарий Поделиться на другие сайты Поделиться
yuriks Опубликовано 3 августа, 2006 Жалоба Поделиться Опубликовано 3 августа, 2006 Можно например так : Sub SplitSheets()wn = ActiveWorkbook.NameFor Each s In Sheets s.Copy ActiveWorkbook.SaveAs (wn & "(" & s.Name & ").xls") ActiveWorkbook.CloseNextEnd Sub Цитата Ссылка на комментарий Поделиться на другие сайты Поделиться
Stolik Опубликовано 3 августа, 2006 Жалоба Поделиться Опубликовано 3 августа, 2006 i Уведомление:Тема переезжает в "Другие" Цитата Ссылка на комментарий Поделиться на другие сайты Поделиться
Рекомендуемые сообщения
Присоединяйтесь к обсуждению
Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.