Как свести несколько файлов excel в один

Объединение копий общей книги

Важно: В этой статье объясняется старый способ объединения копий общей книги — более старый способ совместной работы с несколькими людьми. Эта функция имеет множество ограничений и была заменена функцией совместного редактирования. Совместное авторство гораздо лучше при объединении изменений и доступно в некоторых версиях Excel,включая Excel для Microsoft 365.

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

Откройте вкладку Рецензирование и посмотрите, есть ли на ней кнопка Общий доступ к книге. Если кнопки нет, ее необходимо отобразить. Кроме того, потребуется отобразить кнопку "Сравнить и объединить книги". В этой статье объясняется, как отобразить эти кнопки.

На вкладке Рецензирование или на панели быстрого доступа нажмите кнопку Общий доступ к книге .

Установите флажок Разрешить изменять файл нескольким пользователям одновременно. .

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

Попросите других авторов внести изменения в копию и сохранить их.

Вы можете объединить только книгу с копиями, сделанными из оригинала.

Объединить книгу, в которую не было внесения изменений одним пользователем, нельзя. этот параметр включен.

Откройте исходную общую книгу, в которую вы хотите добавить изменения.

На панели быстрого доступа нажмите кнопку Сравнить и объединить книги .

Если появится запрос, сохраните книгу.

В диалоговом окне Выберите, какие файлы включить в книгу щелкните копию книги, изменения из которой вы хотите добавить. Чтобы одновременно объединить несколько копий, щелкните их имена, удерживая нажатой клавишу CTRL или SHIFT, а затем нажмите кнопку ОК.

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

На вкладке Рецензия нажмите кнопку Поделиться книгой.

На вкладке Правка нажмите кнопку Разрешить изменение для более чем одного пользователя.

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

Попросите других авторов внести изменения в копию и сохранить их.

Вы можете объединить только книгу с копиями, сделанными из оригинала.

Объединить книгу, в которую не было внесения изменений одним пользователем, нельзя. этот параметр включен.

Откройте исходную общую книгу, в которую вы хотите добавить изменения.

В меню Инструменты выберите пункт Объединить книги. .

Если будет предложено, сохраните книгу.

В диалоговом окне навигации по файлам щелкните копию книги с изменениями, которые вы хотите объединить, и нажмите кнопку ОК.

Как объеденить кучу Excel файлов в один?

Здравствуйте, уважаемые пользователи Тостера.

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

Вопрос заключается в следующем: объективно ли будет писать данную программу на Python? Если нет, то как можно решить данную проблему проще?

Заранее благодарен всем, кто попытается помочь.

  • Вопрос задан более трёх лет назад
  • 96369 просмотров
  • Facebook
  • Вконтакте
  • Twitter
  • Google

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

Открываем книгу, куда хотим собрать листы из других файлов, входим в редактор Visual Basic (ALT+F11), добавляем новый пустой модуль (в меню Insert — Module) и копируем туда текст вот такого макроса:

Sub CombineWorkbooks()
Dim FilesToOpen
Dim x As Integer

Application.ScreenUpdating = False ‘отключаем обновление экрана для скорости

‘вызываем диалог выбора файлов для импорта
FilesToOpen = Application.GetOpenFilename _
(FileFilter:="All files (*.*), *.*", _
MultiSelect:=True, Title:="Files to Merge")

If TypeName(FilesToOpen) = "Boolean" Then
MsgBox "Не выбрано ни одного файла!"
Exit Sub
End If

‘проходим по всем выбранным файлам
x = 1
While x более трёх лет назад

Ссылка на основную публикацию