Rdbmerge как объединить эксель
Намного проще обрабатывать данные в одном файле, чем переключаться между многочисленными книгами. Однако объединение нескольких книг Excel в один файл может быть сложным и долгим процессом, особенно если книги, которые вам нужно объединить, содержат много листов. Итак, как подойти к этой проблеме? Вы будете копировать их вручную или с помощью кода VBA? Или вы используете один из специализированных инструментов для объединения файлов Excel?
Ниже вы найдете несколько хороших способов, позволяющих реализовать объединение.
Примечание. В этой статье мы рассмотрим, как копировать листы из нескольких книг Excel в одну книгу. Если вы ищете быстрый способ скопировать данные с нескольких листов на один общий лист, вы найдете подробную инструкцию в другой статье: Как объединить несколько листов в один.
Простой метод — копировать листы руками.
Если вам нужно объединить всего пару файлов Excel, вы можете вручную скопировать или переместить листы из одного файла в другой. Вот как это можно сделать:
- Откройте книги, которые мы планируем объединить.
- Выберите листы в исходной книге, которые вы хотите скопировать в основную книгу.
Чтобы выбрать несколько листов, используйте один из следующих приемов:
- Чтобы выбрать соседние листы, щелкните вкладку первого, который вы хотите скопировать, нажмите и удерживайте клавишу Shift, а затем щелкните вкладку последнего. Это действие выберет все листы между ними.
- Чтобы выбрать несмежные, удерживайте клавишу Ctrl и щелкайте вкладку каждого из них по отдельности.
- Выделив все нужные листы, щелкните правой кнопкой мыши любую из выделенных вкладок и выберите «Переместить» или «Копировать…» .
- В диалоговом окне «Перемещение или копирование» выполните следующие действия:
- В раскрывающемся списке «Переместить выбранные листы в книгу» выберите целевую книгу, в которую вы хотите объединить другие файлы.
- Укажите, где именно должны быть вставлены вкладки. В нашем случае мы выбираем вариант вставки в конец списка.
- Установите флажок «Создать копию», если хотите, чтобы исходные данные оставались оригинальном файле.
- Нажмите ОК , чтобы завершить операцию.
Чтобы объединить вкладки из нескольких файлов Excel, повторите описанные выше шаги для каждой книги отдельно.
Замечание. При копировании листов вручную помните о следующем ограничении, налагаемом Excel: невозможно переместить или скопировать группу листов, если какой-либо из них содержит «умную» таблицу. В этом случае вам придется либо преобразовать таблицу в диапазон, либо использовать один из других методов, не имеющих этого ограничения.
Как объединить файлы Excel с VBA
Если у вас есть несколько файлов Excel, которые необходимо объединить в один файл, более быстрым способом будет автоматизировать процесс с помощью макроса VBA.
Ниже вы найдете код VBA, который копирует все листы из всех файлов Excel, которые вы выбираете, в одну книгу. Этот макрос MergeExcelFiles написан Алексом.
Важное замечание! Макрос работает со следующим ограничением — объединяемые файлы не должны быть открыты физически или находиться в памяти, в буфере обмена. В таком случае вы получите ошибку во время выполнения.
Как добавить этот макрос в книгу
Если вы хотите вставить макрос в свою книгу, выполните следующие обычные действия:
- нажимать Alt + F11 , чтобы открыть редактор Visual Basic.
- Щелкните правой кнопкой мыши ThisWorkbook на левой панели и выберите « Вставить» > « Модуль» в контекстном меню.
- В появившемся окне (Окно кода) вставьте указанный выше код.
Более подробная инструкция описана в разделе Как вставить и запустить код VBA в Excel .
Кроме того, вы можете загрузить макрос в файле Excel, открыть его в этой книге (включить выполнение макросов, если будет предложено), а затем переключиться на свою собственную книгу и нажать Alt + F8 для его запуска. Если вы новичок в использовании макросов в Excel, следуйте подробным инструкциям ниже.
Как использовать макрос MergeExcelFiles
Откройте файл Excel, в котором вы хотите объединить листы из других книг, и выполните следующие действия:
- Нажмите комбинацию Alt + F8 , чтобы открыть окно диалога.
- В разделе « Имя макроса» выберите MergeExcelFiles и нажмите «Выполнить».
- Откроется стандартное окно проводника, вы выберите одну или несколько книг, которые хотите объединить, и нажмите «Открыть» . Чтобы выбрать несколько файлов , удерживайте нажатой клавишу Ctrl, указывая на их имена.
В зависимости от того, сколько файлов вы выбрали, дайте макросу несколько секунд или минут для их обработки. После завершения всех операций он сообщит вам, сколько файлов было обработано и сколько листов было объединено:
Как объединить несколько файлов с помощью Ultimate Suite.
Если вам не очень комфортно с VBA и вы ищете более простой и быстрый способ объединить файлы Excel, обратите внимание на инструмент «Копирование листов (Copy Sheets)» — одну из более чем 60 функций, включенных в невероятно функциональную программу Ultimate Suite for Excel. Она работает в версиях Excel 2010-2019.
С Ultimate Suite объединение нескольких файлов Эксель в один так же просто, как раз-два-три (буквально, всего 3 быстрых шага). Вам даже не нужно открывать те из них, которые вы хотите объединить. И это могут быть два файла или несколько — не важно.
- Открыв главную книгу, перейдите на вкладку «Ablebits Data» и нажмите «Копировать листы (Copy Sheets)» >«Выбранные в одну книгу (Selected Sheets to one workbook)».
- В диалоговом окне выберите файлы (а в них — листы), которые вы хотите объединить, и нажмите «Далее (Next)» .
Советы:
- Чтобы выбрать все листы в определенной книге, просто поставьте галочку в поле рядом с именем книги, и все они в этом файле будут выбраны автоматически.
- Чтобы объединить листы из закрытых книг, нажмите кнопку «Добавить файлы…» и выберите столько книг, сколько нужно. Это добавит выбранные файлы только в окно копирования, не открывая их в Excel.
- По умолчанию копируются все данные. Однако, в разных листах можно выбрать разные диапазоны для объединения. Чтобы скопировать только определенную область, наведите указатель мыши на имя вкладки, затем щелкните значок и выберите нужный диапазон.
- При необходимости укажите один или несколько дополнительных параметров и нажмите «Копировать» . На снимке скриншоте а ниже показаны настройки по умолчанию: Вставить все (формулы и значения) и Сохранить форматирование.
Дайте мастеру копирования листов несколько секунд для обработки и наслаждайтесь результатом!
На этой странице есть подробное описание всех возможностей работы мастера копирования.
Чтобы поближе познакомиться с этим и другими инструментами для Excel, вы можете загрузить ознакомительную версию Ultimate Suite.
Итак, я надеюсь, вы получили ответ на вопрос — как быстро объединить несколько файлов Excel в один.
6 примеров — как консолидировать данные и объединить листы Excel в один - В статье рассматриваются различные способы объединения листов в Excel в зависимости от того, какой результат вы хотите получить: объединить все данные с выбранных листов,объединить несколько листов с различным порядком столбцов,объединить…
Как работать с мастером формул даты и времени - Работа со значениями, связанными со временем, требует глубокого понимания того, как функции ДАТА, РАЗНДАТ и ВРЕМЯ работают в Excel. Эта надстройка позволяет быстро выполнять вычисления даты и времени и без особых…
Как найти и выделить уникальные значения в столбце - В статье описаны наиболее эффективные способы поиска, фильтрации и выделения уникальных значений в Excel. Ранее мы рассмотрели различные способы подсчета уникальных значений в Excel. Но иногда вам может понадобиться только просмотреть уникальные…
Как получить список уникальных значений - В статье описано, как получить список уникальных значений в столбце с помощью формулы и как настроить эту формулу для различных наборов данных. Вы также узнаете, как быстро получить отдельный список с…
Как объединить две или несколько таблиц в Excel - В этом руководстве вы найдете некоторые приемы объединения таблиц Excel путем сопоставления данных в одном или нескольких столбцах. Как часто при анализе в Excel вся необходимая информация собирается на одном…
Как объединить строки в Excel без потери данных? Примеры и советы. - Объединение строк в Excel - одна из самых распространенных задач, которые нам нужно выполнять время от времени. Проблема в том, что Microsoft Excel не предоставляет для этого надежного инструмента. Кроме…
Как правильно объединить столбцы в Excel без потери данных. - Объединение данных в Excel — это достаточно распространённая задача. Объединяют столбцы, строки, отдельные ячейки и даже целые таблицы. Из этой статьи вы узнаете, как объединить несколько столбцов Excel и не…
Как сцепить ячейки в Excel при помощи различных функций и операторов - В этом руководстве вы узнаете о различных способах соединения текстовых строк, ячеек, диапазонов, столбцов и строк в Excel с использованием функции СЦЕПИТЬ, СЦЕП, ОБЪЕДИНИТЬ и оператора «&». В таблицах данные…
Briefly! RDBMerge is a user friendly way to Merge Data from Multiple Excel Workbooks,
csv and xml files into a Summary Workbook.
Install the RDBMerge utility
1) Download the correct version and extract it to a local directory.
2) Copy RDBMerge.xla(m) to a unprotected directory on your system.
Tip: Use one folder for all your add-ins (easy to backup your add-ins this way)
3) Start Excel and open a workbook.
Excel 97-2003
Click Tools, click Add-Ins, use "Browse" to go to the add-in and then
click OK. Verify RDBMerge is checked in the add-in list and then click OK.
Excel 2007-2016
2007: Click the Microsoft Office Button, click Excel Options, click the Add-Ins tab.
2010-2016: Click on File, click on Options, click the Add-ins tab. In the Manage drop-down, choose Excel Add-ins, and click Go. Use “Browse” to go to the add-in and then click on OK. Verify RDBMerge is checked in the add-in list and then click OK.
How to use the RDBMerge Add-in Step by step
In Excel 2007-2016 you find a button named RDBMerge on the Ribbon on the Data tab to open the UserForm. In Excel 97-2003 you find the menu option RDBMerge in the Data menu to open the UserForm.
Folder Location:
In the folder location section click on the Browse button and select the folder with the files you want to merge. After you do that you see the path returned in the UserForm.
Which Files:
In the section "Which Files" select the type of files in the dropdown that you want to merge. If you use the first option "XL?" it will merge all type of Excel files with an extension that start with XL (xls, xlsx, xlsm, xlsb). But you can also only merge files with a specific extension in the folder.By default the option to merge all files in the folder is selected but you can also use the option to filter on the file names, click on the Tips button for more information. In the Add-in for Excel 2007-2013 there is also an option to select the files you want, easy if you do not want to merge all the files in the folder.
Which worksheet(s):
In this section you have the option to choose the worksheet by index or name. If you use the index 1 it will use the first worksheet in each file, you not have to know the worksheet name this way. You can also merge data from all worksheets or use the filter option to filter on the worksheet names, click on the Tips button for more information.
Which range:
You have the option to merge a fixed range (can be more than one area). Click on the Tips button for more information. Or use the First cell ? till last cell on worksheet option, you can change the start cell (default = A1). Use A2 for example if you not want to copy your header each time.
Different options:
Before we press on the Merge button we have a few options here that you can change.
1: The Add file name checkbox will add the file name or file and sheet name before or above your data.
You can use it for example to filter the Combine sheet for the data from a certain file.
2: To avoid problems with formulas I suggest you check Paste as values.
3: If your workbooks have links to other workbooks use the UpdateLinks option to update the values.
4: Use the Paste data next to each other option if you want paste the data from each file next to each other instead of below each other. If you set your fixed range for example to A1:A100 and check this check box it will use one column for each file in the combine sheet. If you range have two columns it will use two columns for each file in the combine sheet.
5: If your workbooks have an Open password you can fill in the open/modify password in the two text boxes, it is no problem if there are also workbooks with no password in the folder.
Click on the Merge button:
When you click on the Merge button it will create a new workbook for you with two worksheets:
Combine Sheet with all the data
Log Sheet with copy/paste and error information
Then it is up to you if you want to save this workbook.
You see it is very easy to work with this add-in, testing all options with a few files in a test folder is the best way to get familiar with this add-in. If you have problem or suggestions let me know and I try to help you.
Note: If you merge XML files it is possible that you get a warning that Excel will be creating its own schema for this schema-free document, check the checkbox "In the futere, do not show this message" to stop this.
Download
Note: Download the add-in that is correct for your Excel version, If you want a Mac version of the add-in check out the Mac section on my website. Note: version 1.4 is working in Excel 2007-2016
В этой статье рассмотрим, как объединять ячейки в таблице Excel, а так же как объединить текст и другие типы данных в ячейках без потери данных.
В Excel существует возможность объединения области из нескольких ячеек или столбцов в одну, а так же объединять данные в ячейках через формулы и Мгновенное заполнение , о котором вы можете узнать в отдельной статье.
Как объединить ячейки
Объединить несколько ячеек (строк/столбцов) в Excel очень просто. Способ применяется для объединения пустых ячеек или ячеек, среди которых только одна содержит данные, например шапка таблицы.
Для объединения выделите область ячеек, которые нужно объединить и нажмите на вкладке Главная (Выравнивание) подходящий вариант:
Результат объединения выделенных ячеек:
Использование объединения ячеек таким способом не самый лучший вариант, для дальнейшей работы с данными, например сортировка и фильтрация, создание сводных таблиц. Старайтесь использовать его в исключительных случаях, а лучше никогда.
Подобный эффект, но без последствий, даёт форматирование ячеек ( Ctrl+1 ), вкладка Выравнивание ► по горизонтали ► по центру выделения :
Если необходимо объединить несколько ячеек содержащих данные, то стандартными средствами сделать это не получится, о чем Excel вас любезно предупредит:
Но вы настойчивы, и вот результат, мы потеряли часть данных:
Нет не решаемых задач. На помощь придет макрос, который поможет объединить данные из разных ячеек (строк/столбцов) в одну общую без потери данных:
Результат работы макроса, объединенный текст в одной ячейке:
Как объединить ячейки при помощи формул
1. Самый простой способ объединить данные в ячейках – использование знака конкатенации & (амперсанд):
Ссылка на ячейки с добавлением оператора & , приведет к склейке данных без разделителя. Добавить разделитель можно используя в формуле необходимый разделитель заключённый в кавычки.
- пробел " ";
- запятая и пробел ", " ;
- точка с запятой ";" и т.д.
2. Следующий вариант объединить строки – функция СЦЕПИТЬ (CONCATENATE), одна из текстовых функций, созданная для объединения двух или нескольких текстовых строк в одну.
Начиная с Excel 2016 является пока ещё рабочим атавизмом и используется в рамках совместимости версий.
Синтаксис функции:
СЦЕПИТЬ(текст1;[текст2];…) , где текст1 , ссылка на первую ячейку с данными или текстовую константу, соответственно [текст2] ссылка на следующую ячейку или текстовую константу и т.д. Объединять можно текстовое значение, число (дату) или ссылки на ячейки.
Формула СЦЕПИТЬ может содержать до 255 элементов и до 8 192 символов.
Функция склеивает текст без разделителей, устраняется проблема, добавлением между аргументами разделителя в кавычках.
При объединении текста проблем не возникнет, но в случае объединения чисел или дат результат может отличаться от ожиданий.
Например, требуется объединить текст и число в ячейке с формулой, округленное до целого числа или добавить дату.
Число присоединится так, как хранится в памяти программы, дата является числом, потому покажет себя без формата.
Чтобы задать нужный формат числу или дате после объединения, необходимо добавить функцию ТЕКСТ :
Недостаток объединения данных при помощи оператора & и функции СЦЕПИТЬ , состоит в том, что все части текста нужно указывать отдельными аргументами, поэтому соединение большого числа ячеек является весьма утомительным делом.
Решение появляется начиная с Excel 2016, в арсенал которого вошли две новых функции СЦЕП (CONCAT) и ОБЪЕДИНИТЬ (TEXTJOIN), речь о которых пойдет ниже.
3. Функция СЦЕП , полностью выполняющая функционал предшественника, но работает и с диапазонами данных.
Синтаксис функции:
СЦЕП(текст1; [текст2]; …) , где текст – элемент, который нужно присоединить: строка или массив строк, например диапазон ячеек.
Формула СЦЕП может содержать до 253 аргументов.
Если объединенная строка содержит свыше 32767 символов (ограничение на ввод данных для ячейки), возникнет ошибка ЗНАЧ!.
Работает без проблем, но если требуется соединить диапазон с разделителем, СЦЕП не поможет.
4. Лучший вариант для объединения – функция ОБЪЕДИНИТЬ , объединяет текст из нескольких диапазонов и/или строк, вставляя между текстовыми значениями указанный пользователем разделитель.
Синтаксис функции:
ОБЪЕДИНИТЬ(разделитель; игнорировать_пустые; текст1; [текст2]; . ) , где
- Разделитель – символ, который будет вставлен между фрагментами, указывается в кавычках;
- игнорировать_пустые – если 0, то пустые ячейки включаются, если 1 – игнорируются ;
- Текст. - диапазон ячеек, содержимое которых нужно склеить.
Формула ОБЪЕДЕНИТЬ может содержать до 252 аргументов.
Если объединенная строка содержит свыше 32767 символов (ограничение на ввод данных для ячейки), возникнет ошибка ЗНАЧ!.
Как объединить две или более таблиц в одну на основе ключевых столбцов?
Предположим, у вас есть три таблицы в книге, теперь вы хотите объединить эти таблицы в одну таблицу на основе соответствующих ключевых столбцов, чтобы получить результат, как показано на скриншоте ниже. Это может быть сложной задачей для большинства из нас, но, пожалуйста, не волнуйтесь, в этой статье я расскажу о некоторых методах решения этой проблемы.
Объединение двух или более таблиц в одну на основе ключевых столбцов с помощью функции Power Query (Excel 2016 и более поздние версии)
Для использования Power Query функция для объединения нескольких таблиц в одну на основе соответствующих ключевых столбцов, выполните следующие действия шаг за шагом:
1. Если диапазоны данных не относятся к табличному формату, сначала вы должны преобразовать их в таблицы, выберите диапазон, а затем нажмите Вставить > Настольные, В Создать таблицу диалоговое окно, нажмите OK кнопку см. скриншоты:
2. После создания таблиц для каждого из диапазонов данных выберите первую таблицу и щелкните Данные > Из таблицы / диапазона, см. снимок экрана:
3, Затем в Table1-редактор Power Query окна, нажмите Главная > Закрыть и загрузить > Закрыть и загрузить в, см. снимок экрана:
4. В выскочившем Импортировать данные, наведите на Только создать соединение , а затем нажмите OK кнопку, см. снимок экрана:
5. Затем создается первая таблица соединений в Запросы и связи Теперь повторите шаги 2–4, описанные выше, для создания таблиц соединений для двух других таблиц, которые вы хотите объединить. Когда закончите, вы получите скриншот, показанный ниже:
6. После создания соединений для таблиц вы должны объединить первые две таблицы в одну, нажмите Данные > Получить данные > Объединить запросы > идти, см. снимок экрана:
7. В идти диалоговом окне выполните следующие действия:
8, Затем нажмите OK кнопку в Редактор запросов Merge1-Power окна, нажмите кнопку, см. снимок экрана:
9. А затем в развернутом поле:
- (1.) Оставить значение по умолчанию Расширьте выбран вариант;
- (2.) В Выбрать все столбцы поле со списком, отметьте имя столбца, который вы хотите объединить с первой таблицей;
- (3.) Снимите флажок Использовать исходное имя столбца в качестве префикса опцию.
10, Затем нажмите OK Кнопка, теперь вы можете видеть, что данные столбца во второй таблице были добавлены в первую таблицу, см. снимок экрана:
11. На этом этапе первая таблица и вторая таблица были успешно объединены ключевым столбцом, теперь вам нужно импортировать эту объединенную таблицу в новую таблицу подключения слияния, нажмите Главная > Закрыть и загрузить > Закрыть и загрузить в, см. снимок экрана:
12. В выскочившем Импортировать данные диалоговое окно, выберите Только создать соединение и нажмите OK кнопку, см. снимок экрана:
13. Здесь вы можете увидеть, что создается соединение с именем Слияние1 в Запросы и связи панель, см. снимок экрана:
14. После объединения первых двух таблиц теперь вам нужно объединить новые Слияние1 таблица с третьей таблицей, нажмите Данные > Получить данные > Объединить запросы > идтиИ в идти диалоговом окне выполните следующие операции:
15. А затем нажмите OK, В Редактор запросов Merge2-Power окна, нажмите и в развернутом поле отметьте имя столбца, который вы хотите объединить из третьей таблицы, и снимите флажок Использовать исходное имя столбца в качестве префикса вариант, см. снимок экрана:
16, Затем нажмите OK Кнопка, вы получите объединенную таблицу с тремя таблицами вместе, и теперь вы должны импортировать эту объединенную таблицу на новый лист таблицы, нажмите Главная > Закрыть и загрузить > Закрыть и загрузить в, см. снимок экрана:
17. В Импортировать данные диалоговое окно, выберите Настольные и Новый рабочий лист варианты, см. снимок экрана:
18. Наконец, новая таблица с данными из трех таблиц на основе соответствующих ключевых столбцов была создана на новом листе, как показано ниже:
Советы:
1. Если ваши исходные данные изменяются, вам нужно, чтобы объединенная таблица была также изменена, щелкните одну ячейку в объединенной таблице, а затем нажмите запрос > обновление чтобы получить обновленные данные. Смотрите скриншот:
2. С помощью этой функции вы также можете объединить гораздо больше таблиц, повторив вышеуказанные шаги.
Объединяйте две или более таблиц в одну на основе ключевых столбцов с удивительной функцией
В этом разделе я покажу полезную функцию - Слияние таблиц of Kutools for Excel, с помощью этой функции вы можете быстро объединить две или более таблиц в одну на основе ключевых столбцов.
Например, у меня есть две таблицы, которые нужно объединить, как показано на скриншоте ниже:
Советы: Чтобы применить это Слияние таблиц функция, во-первых, вы должны скачать Kutools for Excel, а затем быстро и легко примените эту функцию.
После установки Kutools for Excel, пожалуйста, сделайте так:
1. Нажмите Кутулс Плюс > Слияние таблиц, см. снимок экрана:
2. На первом этапе Слияние таблиц мастера, выберите основную таблицу и таблицу поиска отдельно, (Внимание: данные столбца в поисковой таблице будут добавлены в основную таблицу), см. снимок экрана:
3. На шаге 2 из Слияние таблиц мастера, проверьте имя ключевого столбца, на основе которого вы хотите объединить таблицы, см. снимок экрана:
4. Нажмите Далее кнопку на шаге 3 Слияние таблиц мастер, пожалуйста, нажмите Далее кнопку напрямую, см. снимок экрана:
5. Затем, на шаге 4 мастера, проверьте имя столбца из таблицы поиска, которую вы хотите добавить в основную таблицу, см. Снимок экрана:
6. Продолжайте нажимать Далее на последнем шаге мастера в Добавить поле со списком опций, отметьте Добавить несовпадающие строки в конец основной таблицы вариант, в то же время вы также можете выбрать операции для повторяющихся строк по мере необходимости. Смотрите скриншот:
7, Затем нажмите Завершить Кнопка, соответствующий столбец данных в таблице поиска будет добавлен в основную таблицу, как показано ниже:
Советы:
1. С помощью этой функции вы можете обновлять данные в основной таблице другой таблицей по мере необходимости.
2. Чтобы объединить больше таблиц, вам просто нужно выбрать результат новых объединенных данных в качестве основной таблицы, а затем повторить вышеуказанные шаги.
Передо мной стала задача - нужно автоматизировать рутинную работу. Есть куча Excel файлов и нужно собрать их в один. Делать это придется неоднократно, поэтому стал вопрос в написании программы.
Вопрос заключается в следующем: объективно ли будет писать данную программу на Python? Если нет, то как можно решить данную проблему проще?
Заранее благодарен всем, кто попытается помочь.
Предположим, имеется куча книг 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 Set importWB = Workbooks.Open(Filename:=FilesToOpen(x))
Sheets().Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
importWB.Close savechanges:=False
x = x + 1
Wend
Application.ScreenUpdating = True
End Sub
После этого можно вернуться в Excel и запустить созданный макрос через меню Сервис - Макрос - Макросы (Tools - Macro - Macros) или нажав ALT+F8. Отобразится диалоговое окно открытия файла, где необходимо указать один или несколько (удерживая CTRL или SHIFT) файлов, листы из которых надо добавить к текущей книге.
PE
Читайте также: