Объединение множества книг

Джой столкнулся с проблемой при объединении нескольких книг вместе. Большинство книг – около 200 из них, все в одной папке – содержат по одному листу, но некоторые содержат больше. Рабочие листы из каждой из этих книг необходимо добавить в одну книгу.

Самый простой способ выполнить слияние такого масштаба – особенно если вам приходится делать это часто – с помощью макроса. Следующий макрос отображает диалоговое окно с просьбой выбрать файлы для слияния. (Вы можете выбрать несколько книг, удерживая нажатой клавишу Ctrl при нажатии каждой из них.) Он проходит по выбранному вами списку, открывая каждую и перемещая все ее рабочие листы в конец книги. с кодом.

Sub CombineWorkbooks () Dim FilesToOpen Dim x As Integer Dim Outwbk As Workbook Установить Outwbk = ActiveWorkbook при ошибке GoTo ErrHandler Application.ScreenUpdating = False FilesToOpen = Application.GetOpenFilename _ (FileFilter: «Файлы Microsoft Excel (* .xls), * .xls», _ MultiSelect: = True, Title: = «Файлы для объединения») Если TypeName (FilesToOpen) = «Boolean» Then MsgBox «Файлы не выбраны» GoTo ExitHandler End Если x = 1 Пока x

В процессе добавления рабочих листов в конец книги Exce l автоматически добавит (2), (3) и т. д. при обнаружении повторяющихся имен рабочих листов. Все формулы в книге, относящиеся к другим листам, также будут обновлены, чтобы отразить новые имена.

Источник: frestage.ru

Бытовой вопрос