Объедините несколько книг Excel в одну книгу

Я новичок в Visual Basic. Я могу использовать Excel 2010 или Excel 2013 для этой задачи.

У меня есть десятки книг с данными на первом листе каждого. Например, One.xlsx, Two.xlsx, Three.xlsx, Four.xlsx содержат информацию о соответствующем Sheet1.

Мне нужно, чтобы информация о Sheet1 из каждой рабочей книги была объединена в одну рабочую книгу с листами, которые названы по имени файла оригинальной рабочей книги. Так, например, комбинированный.xlsx будет иметь 4 листа с именами Один, Два, Три, Четыре. В любом случае вся информация на базовых рабочих листах должна быть скопирована и объединена в новую рабочую книгу, как показано ниже.

Формат мне нужен

Я нашел этот Macro / Add-In онлайн, который приближает меня к тому, что мне нужно, используя открытое добавление файлов по выбору.

http://www.excelbee.com/merge-excel-sheets-2010-2007-2013#close

Надстройка Open Files позволяет мне объединять рабочие листы различных рабочих книг в одну рабочую книгу. Однако вкладки не названы из имени исходного файла.

Правильная агрегация листов, но неверные имена листов.

На данный момент все базовые рабочие книги будут находиться в одной папке. Возможность просматривать и выбирать файлы была бы хороша, если это когда-либо изменится, но если это будет слишком сложно, просто сработает указание пути к каталогу в коде Visual Basic. Поскольку результирующий комбинированный вывод, вероятно, должен быть новой рабочей книгой, имя новой рабочей книги не так уж важно. Например, его можно назвать комбинированным. Xlsx.