Как разделить вкладки в excel на два отдельных файла

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

Про сборку листов из нескольких книг в одну текущую я уже писал здесь. Теперь разберем решение обратной задачи: есть одна книга Excel, которую нужно «разобрать», т.е. сохранить каждый лист как отдельный файл для дальнейшего использования.

Примеров подобного из реальной жизни можно привести массу. Например, файл-отчет с листами-филиалами нужно разделить на отдельные книги по листам, чтобы передать затем данные в каждый филиал и т.д.

Если делать эту процедуру вручную, то придется для каждого листа выполнить немаленькую цепочку действий (выбрать лист, правой кнопкой по ярлычку листа, выбрать Копировать, указать отдельный предварительно созданный пустой файл и т.д.) Гораздо проще использовать короткий макрос, автоматизирующий эти действия.

Способ 1. Простое разделение

Нажмите сочетание Alt+F11 или выберите в меню Сервис — Макрос — Редактор Visual Basic (Tools — Macro — Visual Basic Editor), вставьте новый модуль через меню Insert — Module и скопируйте туда текст этого макроса:

Sub SplitSheets1()
    Dim s As Worksheet
    For Each s In ActiveWorkbook.Worksheets    'проходим по всем листам в активной книге
        s.Copy       'копируем каждый лист в новый файл
    Next
End Sub

Если теперь выйти из редактора Visual Basic и вернуться в Excel, а затем запустить наш макрос (Alt+F8), то все листы из текущей книги будут разбиты по отдельным новым созданным книгам.

Способ 2. Разделение с сохранением

При необходимости, можно созданные книги сразу же сохранять под именами листов. Для этого макрос придется немного изменить, добавив команду сохранения в цикл:

Sub SplitSheets2()
    Dim s As Worksheet
    Dim wb as Workbook
    Set wb = ActiveWorkbook
    For Each s In wb.Worksheets                                 'проходим во всем листам активной книги
        s.Copy                                                  'сохраняем лист как новый файл
        ActiveWorkbook.SaveAs wb.Path & "" & s.Name & ".xlsx"  'сохраняем файл
    Next
End Sub

Этот макрос сохраняет новые книги-листы в ту же папку, где лежал исходный файл. При необходимости сохранения в другое место, замените wb.Path на свой путь в кавычках, например «D:Отчеты2012» и т.п.

Если нужно сохранять файлы не в стандартном формате книги Excel (xlsx), а в других (xls, xlsm, xlsb, txt и т.д.), то кроме очевидного изменения расширения на нужное, потребуется добавить еще и уточнение формата файла — параметр FileFormat:

ActiveWorkbook.SaveAs wb.Path & "" & s.Name & ".xlsb", FileFormat:=50  

Для основных типов файлов значения параметра FileFormat следующие:

• XLSX = 51
• XLSM = 52
• XLSB = 50
• XLS = 56
• TXT = 42

Полный список всех вариантов можно посмотреть в справке MSDN.

Способ 3. Сохранение в новые книги только выделенных листов

Если вы хотите раскидать по файлам не все листы в вашей книге, а только некоторые, то макрос придется немного изменить. Выделите нужные вам листы в книге, удерживая на клавиатуре клавишу Ctrl или Shift и запустите приведенный ниже макрос:

Sub SplitSheets3()
    Dim AW As Window
    Set AW = ActiveWindow
    For Each s In AW.SelectedSheets
        Set TempWindow = AW.NewWindow    'создаем отдельное временное окно
        s.Copy                           'копируем туда лист из выделенного диапазона
        TempWindow.Close                 'закрываем временное окно
    Next
End Sub

Создавать новое окно и копировать через него, а не напрямую, приходится потому, что Excel не умеет копировать группу листов, если среди них есть листы с умными таблицами. Копирование через новое окно позволяет такую проблему обойти.

Способ 4. Сохранение только выделенных листов в новый файл

Во всех описанных выше способах каждый лист сохранялся в свой отдельный файл. Если же вы хотите сохранить в отдельный новый файл сразу группу выделенных предварительно листов, то нам потребуется слегка видоизменить наш макрос:

Sub SplitSheets4()
    Dim CurW As Window
    Dim TempW As Window
    Set CurW = ActiveWindow
    Set TempW = ActiveWorkbook.NewWindow
    CurW.SelectedSheets.Copy
    TempW.Close
End Sub

Способ 5. Сохранение листов как отдельных PDF-файлов

Этот способ чем-то похож на второй, но листы сохраняются не как отдельные книги Excel, а в формате PDF, что часто требуется, если никто не должен менять документ и увидеть ваши формулы. Обратите внимание, что:

• для этого используется уже другой метод (ExportAsFixedFormat а не Copy)
• листы выводятся в PDF с параметрами печати, настроенными на вкладке Разметка страницы (Page Layout)
• книга должна быть сохранена на момент экспорта

Нужный нам код будет выглядеть следующим образом:

Sub SplitSheets5()
    Dim s As Worksheet

    For Each s In ActiveWorkbook.Worksheets
        s.ExportAsFixedFormat Filename:=ThisWorkbook.Path & "" & s.Name & ".pdf", Type:=xlTypePDF
    Next
End Sub

Способ 6. Готовый макрос из надстройки PLEX

Если лень или нет времени внедрять все вышеописанное, то можно воспользоваться готовым макросом из моей надстройки PLEX:

Ссылки по теме

• Сборка листов из нескольких книг в одну
• Что такое макросы, куда вставлять код на Visual Basic, как их использовать.

Перейти к содержимому

При работе в Microsoft Excel вам может потребоваться открыть несколько документов или один и тот же файл в нескольких окнах. В более ранних версиях и в версиях, начиная с Excel 2013, это не проблема. Мы просто открываем файлы стандартным способом, и каждый из них запускается в новом окне. Но в версиях приложения 2007–2010 новый документ по умолчанию открывается в главном окне. Такой подход экономит ресурсы компьютерной системы, но в то же время создает ряд недостатков. Например, если пользователь хочет сравнить два документа в параллельных окнах на экране, он не сможет сделать это со стандартными настройками. Давайте рассмотрим, как это можно сделать всеми доступными способами.

Открытие нескольких окон

Если в версиях Excel 2007–2010 у вас уже открыт документ, но вы пытаетесь запустить другой файл, он откроется в том же родительском окне, просто заменив содержимое исходного документа данными нового. Всегда будет возможность перейти к первому запущенному файлу. Для этого переместите курсор к значку Excel на панели задач. Появятся небольшие окна для предварительного просмотра всех запущенных файлов. Вы можете перейти к определенному документу, просто щелкнув это окно. Но это будет только переключатель, а не полноценное открытие нескольких окон, поскольку пользователь не может одновременно просматривать их на экране таким образом.

Но есть несколько приемов, которые можно использовать для одновременного просмотра нескольких документов в Excel 2007-2010 на экране.

Один из самых быстрых способов решить проблему с открытием нескольких окон в Excel раз и навсегда — это установить патч MicrosoftEasyFix50801.msi. К сожалению, Microsoft прекратила поддержку всех решений Easy Fix, включая указанный выше продукт. Поэтому скачать его на официальном сайте сейчас невозможно. При желании вы можете загрузить и установить патч с других веб-ресурсов на свой страх и риск, но вы должны помнить, что этими действиями вы можете поставить под угрозу свою систему.

Способ 1: панель задач

Один из более простых вариантов открытия нескольких окон — это сделать это через контекстное меню значка на панели задач.

1. После того, как документ Excel уже запущен, переместите курсор к значку программы, расположенному на панели задач. Щелкните по нему правой кнопкой мыши. Контекстное меню запускается. В нем выбираем, в зависимости от версии программы, пункт «Microsoft Excel 2007» или «Microsoft Excel 2010».

   

   Вместо этого вы можете щелкнуть значок Excel на панели задач левой кнопкой мыши, удерживая нажатой клавишу Shift. Другой вариант — просто навести указатель мыши на значок и затем щелкнуть колесиком мыши. Во всех случаях эффект будет одинаковым, но активировать контекстное меню необязательно.

2. Пустой лист Excel открывается в отдельном окне. Чтобы открыть конкретный документ, перейдите на вкладку «Файл» в новом окне и щелкните пункт «Открыть».
3. В открывшемся окне открытия файла перейдите в каталог, в котором находится нужный документ, выберите его и нажмите кнопку «Открыть».

После этого вы можете работать с документами одновременно в двух окнах. Точно так же, если необходимо, вы можете запустить их больше.

Способ 2: окно «Выполнить»

Второй способ предполагает действия через окно «Выполнить».

1. Набираем на клавиатуре комбинацию клавиш Win + R.
2. Окно «Выполнить» активировано. Набираем в его поле команду «excel».

После этого будет запущено новое окно, и чтобы открыть в нем нужный файл, выполняем те же действия, что и в предыдущем способе.

Способ 3: меню Пуск

Следующий метод подходит только для пользователей Windows 7 или более ранних версий операционной системы.

1. Нажмите кнопку «Пуск» в Windows. Переходим к «Все программы».
2. В открывшемся списке программ перейдите в папку «Microsoft Office». Затем щелкните левой кнопкой мыши ссылку «Microsoft Excel».

После этих действий будет запущено новое окно программы, в котором вы сможете открыть файл стандартным способом.

Способ 4: Ярлык на Рабочем столе

Чтобы запустить Excel в новом окне, нужно дважды щелкнуть ярлык приложения на рабочем столе. Если его там нет, вам нужно создать ссылку.

1. Откройте проводник Windows и, если у вас установлен Excel 2010, перейдите по ссылке:

   C: Program Files Microsoft Office Office14

   Если установлен Excel 2007, адрес будет следующим:

   C: Program Files Microsoft Office Office12

2. Попав в каталог программы, мы находим файл с именем «EXCEL.EXE». Если в вашей операционной системе не включено отображение расширений, она будет называться просто «EXCEL». Щелкните этот элемент правой кнопкой мыши. В активированном контекстном меню выберите пункт «Создать ссылку».
3. Появится диалоговое окно, указывающее, что в этой папке нельзя создать ярлык, но его можно разместить на рабочем столе. Мы принимаем, нажав кнопку «Да».

Теперь можно будет запускать новые окна через ярлык приложения на рабочем столе.

Способ 5: открытие через контекстное меню

Все описанные выше методы предполагают сначала запуск нового окна Excel, а только затем открытие нового документа через вкладку «Файл», что является довольно громоздкой процедурой. Но вы можете значительно упростить открытие документов, используя контекстное меню.

1. Создайте ярлык Excel на рабочем столе, используя алгоритм, описанный выше.
2. Щелкните ярлык правой кнопкой мыши. В контекстном меню мы останавливаем выбор на пункте «Копировать» или «Вырезать», в зависимости от того, хочет ли пользователь, чтобы ссылка продолжала размещаться на рабочем столе.
3. Затем вы должны открыть проводник и перейти по следующему адресу:

   C: Users Имя пользователя AppData Roaming Microsoft Windows SendTo

   Вместо значения «UserName» вы должны подставить имя вашей учетной записи Windows, которое является каталогом пользователя.

   Проблема в том, что по умолчанию этот каталог находится в скрытой папке. Следовательно, вам нужно будет включить просмотр скрытых каталогов.

4. В открывшейся папке щелкните любое пустое место правой кнопкой мыши. В стартовом меню отмените выбор пункта «Вставить». Вскоре ссылка будет добавлена ​​в этот каталог.
5. Затем откройте папку, в которой находится файл, который вы хотите запустить. Щелкните по нему правой кнопкой мыши. В контекстном меню последовательно переходите к пунктам «Отправить» и «Excel».

Документ откроется в новом окне.

После того, как мы сделали это, добавив ссылку на папку SendTo один раз, у нас появилась возможность постоянно открывать файлы Excel в новом окне через контекстное меню.

Способ 6: изменения в системном реестре

Но вы можете упростить открытие файлов Excel в нескольких окнах. После процедуры, которая будет описана ниже, аналогичным образом будут запущены все документы, открытые обычным способом, то есть двойным щелчком. Правда, эта процедура предполагает манипуляции с реестром. Это означает, что вы должны быть уверены в себе, прежде чем приступить к этому, поскольку любой неправильный шаг может фатально повредить систему в целом. Чтобы исправить ситуацию в случае возникновения проблем, перед началом манипуляций создайте точку восстановления системы.

1. Чтобы запустить окно «Выполнить», нажмите комбинацию клавиш Win + R. В открывшемся поле введите команду «RegEdit.exe» и нажмите кнопку «ОК».
2. Редактор реестра запускается. В нем мы идем по следующему адресу:

   HKEY_CLASSES_ROOT Excel.Sheet.8 shell Open команда

   В правой части окна нажмите «По умолчанию».

3. Откроется окно для редактирования. В строке «Значение» измените «/ dde» на «/ и«% 1 »». Остальную часть строки оставляем как есть. Щелкните кнопку «ОК».
4. Находясь в том же разделе, щелкните правой кнопкой мыши элемент «команда». В открывшемся контекстном меню перейдите к пункту «Переименовать». Мы произвольно переименовываем этот элемент.
5. Щелкните правой кнопкой мыши имя раздела «ddeexec». В контекстном меню выберите пункт «Переименовать» и также произвольно переименуйте этот объект.

   

   Поэтому мы сделали возможным открывать файлы с расширением xls стандартным способом в новом окне.

6. Чтобы выполнить эту процедуру для файлов .xlsx, перейдите по следующему адресу в редакторе реестра:

   HKEY_CLASSES_ROOT Excel.Sheet.12 shell Open команда

   Аналогичную процедуру проделываем с элементами этой ветки. То есть меняем параметры элемента «По умолчанию», переименовываем элемент «команда» и ветку «ddeexec».

После завершения этой процедуры файлы xlsx также откроются в новом окне.

Способ 7: параметры Excel

Открытие нескольких файлов в новых окнах также можно настроить с помощью параметров Excel.

1. На вкладке «Файл» щелкните пункт «Параметры».
2. Окно параметров запускается. Перейдите в раздел «Еще». В правой части окна найдите группу инструментов «Общие». Установите флажок «Игнорировать запросы DDE от других приложений». Щелкните кнопку «ОК».

После этого новые запущенные файлы будут открываться в отдельных окнах. В то же время перед выходом из Excel рекомендуется снять флажок «Игнорировать запросы DDE из других приложений», поскольку в противном случае при следующем запуске программы могут возникнуть проблемы с открытием файлов.

Поэтому в чем-то этот способ менее удобен, чем предыдущий.

Способ 8: открытие одного файла несколько раз

Как известно, Excel обычно не позволяет открывать один и тот же файл в двух окнах. Однако это тоже можно сделать.

1. Запустите файл. Перейдите на вкладку «Просмотр». На панели инструментов «Окно» на ленте нажмите кнопку «Новое окно».
2. После этих шагов этот файл откроется еще раз. В Excel 2013 и 2016 он сразу же запустится в новом окне. Чтобы документ открывался в отдельном файле в версиях 2007 и 2010, а не в новых вкладках, необходимо изменить реестр, как описано выше.

Как видите, хотя по умолчанию в Excel 2007 и 2010 при запуске нескольких файлов они открываются в одном главном окне, есть много способов запустить их в разных окнах. Пользователь может выбрать наиболее удобный вариант, соответствующий его потребностям.