Инструкции по объединению нескольких файлов Excel в 1 файл
В следующей статье подробно рассказывается, как объединить несколько файлов Excel в один файл.
Например, есть 2 файла данных:
Файл 1 с именем DS_1 имеет содержимое:
Файл 2 с именем DS_2 имеет содержимое:
Чтобы объединить данные из двух файлов в один файл данных с именем Book1 (записи находятся на одном листе), выполните следующие действия:
Шаг 1: Создайте новый файл Excel с именем Book1 -> нажмите Alt + F11 -> появится окно -> Щелкните вкладку Вставка -> Модуль.
Шаг 2: Скопируйте весь код в Модуль 1.
Sub GopFileExcel () Dim FilesToOpen Dim x As Integer On Error GoTo ErrHandler Application.ScreenUpdating = False FilesToOpen = Application.GetOpenFilename _ (FileFilter: = “Файлы Microsoft Excel (* .xlsx), * .xlsx”, MultiSelect: = True, Title : = “Файлы для объединения”) Если TypeName (FilesToOpen) = “Boolean” Then MsgBox “Файлы не выбраны” GoTo ExitHandler End If x = 1 Пока x
Шаг 3. Сохраните модуль 1 с именем GopFileExcel () . Поскольку модуль содержит макросы, при появлении предупреждения нажмите OK.
Шаг 4: Создайте еще 1 модуль, нажмите «Вставить» -> «Модуль».
Шаг 5: Скопируйте весь код в модуль 2 -> сохраните и назовите GopCacSheet () .
Sub GopCacSheet () Dim Sh As Worksheet Application.ScreenUpdating = False [A6]. CurrentRegion.Offset (1, 1) .ClearContents для каждого Sh в листах, если Sh.Name “Gop_File”, то с [B65500] .End (xlUp) .Offset (1) [A6] .CurrentRegion.Offset (1, 1). Скопированное место назначения: =. Смещение (0) Конец с концом, если следующий Sh Application.ScreenUpdating = True Columns (“E: E”). Скрытый = Ложь: рандомизировать [A5] .Resize (, 6) .Interior.ColorIndex = 34 + 9 * Rnd () 1 End Sub
Шаг 6: Вернитесь к только что созданному файлу Excel -> перейдите на вкладку «Просмотр» -> «Просмотр Марко».
Шаг 7: Появится диалоговое окно макроса -> выберите модуль 1 (имя GopFileExcel ()) -> Выполнить.
Шаг 8: Появится диалоговое окно Обзор, выберите путь к файлам данных для слияния (здесь файлы DS_1 и DS_2) -> Открыть.
После выбора Открыть данные из 2 соответствующих файлов, записанных на листе 2 и листе 3 в файле Book1. Окончательное объединение листа в один лист.
Шаг 9: Перейдите на вкладку «Просмотр» -> «Просмотр макроса» -> GopCacSheet () -> Беги.
Все данные на 2 листах объединены в лист 1. Обратите внимание на неправильный порядок ввода и выравнивания размеров столбцов. После редактирования результатов:
Внимание:
– Лист слияния листов 2, лист 3 – это лист 1.
– Применять с несколькими разными файлами, чем больше количество файлов, тем медленнее скорость обработки.
– В процессе слияния файлов данных не следует использовать какие-либо функции данных, которые вызовут ошибки (из-за изменения адреса). Следует использовать чистый ввод.
Удачи!