Как собрать несколько книг Excel в одну?

Например, мы имеем много рабочих книг Excel, и мы хотим собрать все рабочие листы со всех рабочих книг в один файл. Для этого откройте книгу, куда вы хотите собрать все листы, откройте Visual Basic Editor ( Alt + F11 ), добавьте новый бланк модуля ( Insert — Module ) и скопируйте текст макроса туда:

Sub CombineWorkbooks()

Dim FilesToOpen

Dim x As Integer

On Error GoTo ErrHandler

Application.ScreenUpdating = False

FilesToOpen = Application.GetOpenFilename _

(FileFilter:=«Microsoft Excel Files (*.xls), *.xls», _

MultiSelect:=True, Title:=«Files to Merge»)

If TypeName(FilesToOpen) = «Boolean» Then

MsgBox «Have been chosen no files!»

GoTo ExitHandler

End If

x = 1

While x <= UBound(FilesToOpen)

Workbooks.Open Filename:=FilesToOpen(x)

Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)

x = x + 1

Wend

ExitHandler:

Application.ScreenUpdating = True

Exit Sub

ErrHandler:

MsgBox Err.Description

Resume ExitHandler

End Sub

После этого можете вернуться в Excel и запустить макрос через меню Tools — Macro — Macros (Alt + F8) . Появится диалоговое окно, где нужно выбрать один или несколько (удерживая Ctrl ) файлов, листы из которых мы хотим добавить к текущей книги.

Если вы используете другое расширение Excel файлов (например, *.xlsx, *.xlsm, *.xlsb и т.п.), то вам необходимо будет внести соответствующие изменения в седьмую строку кода макроса.

Как снять пароль в Excel? Три рабочих способа снятия пароля.
Способ 1. (Используем программу) Ищем в поисковике и загружаем программу…
Как собрать несколько книг Excel в одну?
Например, мы имеем много рабочих книг Excel, и мы хотим…
Что такое макрос и куда его вставлять в Excel?
Нам в работе иногда не хватает стандартных возможностей Эксель и приходится напрягать…
Как добавить абзац в ячейке Excel?
Достаточно часто при заполнении ячейки текстом, возникает необходимость ввести текст…
Как посчитать количество уникальных значений в колонке Excel?
Иногда в работе нам нужно посчитать уникальные значения в определенной…
Отсортировать уникальные значения в Excel
Предположим, что у нас есть такая таблица с перечнем соглашений,…