Выделение листов книги в отдельные файлы

it18 Гость	#1 21.12.2010 13:02:08 Народ, подскажите, как разделить книгу с листами на разные файлы, при чем каждый лист в отдельный файл с таким же именем.?

EducatedFool

Пользователь

Сообщений: 3697 Регистрация: 23.12.2012

21.12.2010 13:23:37

Поиском не пробовали пользоваться?
http://www.excelvba.ru/addins/TomSoyer

Цитата:
Клавиша: Ctrl + Shift + E
Макрос: Раскидать Листы По Файлам

Можете взять только нужный макрос - код надстройки можно поглядеть здесь:
http://www.excelvba.ru/Addins.html

Надстройки для Excel Парсинг сайтов Мониторинг цен конкурентов

webley

Пользователь

Сообщений: 2176 Регистрация: 01.01.1970

21.12.2010 13:24:10

Добрый день

Макросом:
Sub test()
Dim wbNew As Workbook
Dim sh As Worksheet

For Each sh In ThisWorkbook.Sheets
Set wbNew = Workbooks.Add
sh.Copy Before:=wbNew.Sheets(1)
Application.DisplayAlerts = False
While wbNew.Sheets.Count <> 1
wbNew.Sheets(wbNew.Sheets.Count).Delete
Wend
Application.DisplayAlerts = True
wbNew.SaveAs (ThisWorkbook.Path & "\" & sh.Name)
wbNew.Close False
Next sh
End Sub

Казанский Пользователь Сообщений: 8839 Регистрация: 11.01.2013	#4 21.12.2010 16:26:54 Крч :) Sub test() Dim sh As Worksheet For Each sh In ThisWorkbook.Sheets sh.Copy ActiveWorkbook.Close True, ThisWorkbook.Path & "\" & sh.Name, False Next End Sub

Guest Гость	#5 18.05.2012 07:21:43 {quote}{login=EducatedFool}{date=21.12.2010 01:23}{thema=}{post}Поиском не пробовали пользоваться? http://www.excelvba.ru/addins/TomSoyer Цитата: Клавиша: Ctrl + Shift + E Макрос: Раскидать Листы По Файлам Можете взять только нужный макрос - код надстройки можно поглядеть здесь: http://www.excelvba.ru/Addins.html{/post}{/quote} Спасибо большое!!!

Читают тему