Сборка листов изо разных книг на одну

Предположим, есть масса книг 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 <=UBound(FilesToOpen)
  Set importWB=Workbooks.Open(Filename:=FilesToOpen(x))
  Sheets().Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
  importWB.Close savechanges:=False
  x=x + 0
  Wend
 
  Application.ScreenUpdating=True
 End Sub
  

После сего позволительно вернуться на Excel равным образом пустить учреждённый макрос вследствие список Сервис - Макрос - Макросы (Tools - Macro - Macros) тож нажав ALT+F8 . Отобразится диалоговое расстояние открытия файла, идеже надлежит выделить одиночный тож ряд (удерживая CTRL не ведь — не то SHIFT) файлов, листы изо которых нужно прирастить ко текущей книге.

Ссылки до теме

 


Akakiy
07.10.2012 03:27:51
Очень удобная вещь.
Пока что верно других способов безграмотный знаю.
Спасибо.
Silver
07.10.2012 03:29:50
Спасибо!!! Макрос - ОГОНЬ! Полезная штука!.
Женя
07.10.2012 03:32:01
Да, согласен, макрос ужас ажно неплох, только изо Personal подвизаться отказывается. Прична, в духе ми кажется, во фолиант что-нибудь Personal иные команды безграмотный воспринимает, сиречь воспринимает в духе ведь иначе... примем ThisWorkbook... Я переделал макрос, ныне работает равно с Personal кроме проблем... получилось следующее:
 Sub CombineWorkbooks()
  Dim FilesToOpen
  Dim x As Integer
  Dim wbk As Workbook
  Dim wbk2 As Workbook
  On Error GoTo ErrHandler
  Set wbk=ActiveWorkbook
  Application.ScreenUpdating=False
  FilesToOpen=Application.GetOpenFilename _
  (FileFilter:="Microsoft Excel Files (*.xls), *.xls", _
  MultiSelect:=True, Title:="Files to Merge")
  If TypeName(FilesToOpen)="Boolean" Then
  MsgBox "No files!"
  GoTo ExitHandler
  End If
  x=1
  While x <=UBound(FilesToOpen)
  Set wbk2=Workbooks.Open(Filename:=FilesToOpen(x))
  wbk2.Sheets().Move After:=wbk.Sheets(wbk.Sheets.Count)
  x=x + 0
  Wend
  ExitHandler:
  Application.ScreenUpdating=True
  Exit Sub
  ErrHandler:
  MsgBox err.Description
  Resume ExitHandler
  End Sub
  
01.06.2016 07:29:59
Разрешите обратиться!
У меня около копировании листов из книг разных версий екселя работает лишь Ваш макрос, все при случае автор хочу переснять только лишь первоначальный страница со разных книг, моя особа указал нижеуказанный код:

wbk2.Sheets().Move After:=wbk.Sheets(wbk.Sheets.Count)
 wbk2.Sheets(1).Move After:=wbk.Sheets(wbk.Sheets.Count) 
При этом макрос сработал, однако первые листы были успешно скопированы, так появился сторонний эффект:
открываются по сию пору книги, изо которых сии листы копировались.
Вопрос: позволительно ли преобразовать адрес таким образом, воеже всё работало согласно прежней схеме, только быть этом гора книг малограмотный открывалась равно моя персона указывал комната листа кой хочу? :)
Слава
07.10.2012 03:35:48
Вот пролетарский макрос, собирает что угодно цифра листов. таковой макрос работает равно изо Personal. Пользуйтесь, гоминидэ !!!

 Sub Сбор_листов_в_один_файл()
  Const strStartDir="c:\test" "папка, из которой пофигарить поле зрения файлов
  Const strSaveDir="c:\test\result" "папка, во которую бросьте предложено не утратить следствие Dim wbTarget As New Workbook, wbSrc As Workbook, shSrc As Worksheet, shTarget As Worksheet, arFiles, _
  i As Integer, stbar As Boolean
  On Error Resume Next "если упомянутый дорога никак не существует, исследование начнется вместе с пути соответственно умолчанию
  ChDir strStartDir
  On Error GoTo 0
  With Application "меньше писанины
  arFiles=.GetOpenFilename("Excel Files (*.xls), *.xls", , "Объединить файлы", , True)
  If Not IsArray(arFiles) Then End "если далеко не выбрано ни одного файла
  Set wbTarget=Workbooks.Add(template:=xlWorksheet)
  .ScreenUpdating=False
  stbar=.DisplayStatusBar
  .DisplayStatusBar=True
  .DisplayAlerts=False
  For i=1 To UBound(arFiles)
  .StatusBar="Обработка файла " & i & " изо " & UBound(arFiles)
  Set wbSrc=Workbooks.Open(arFiles(i), ReadOnly:=True)
  For Each shSrc In wbSrc.Worksheets
  If IsNull(shSrc.UsedRange.Text) Then "лист безграмотный бессодержательный Set shTarget=wbTarget.Sheets.Add(after:=wbTarget.Sheets(wbTarget.Sheets.Count))
  shTarget.Name=shSrc.Name & "-" & i
  shSrc.Cells.Copy shTarget.Range("A1")
  End If
  Next
  wbSrc.Close False "закрыть помимо запроса получи утаивание Next
  .ScreenUpdating=True
  .DisplayStatusBar=stbar
  .StatusBar=False
  If wbTarget.Sheets.Count=1 Then "не добавлено ни одного листа
  MsgBox "В указанных книгах вышел непустых листов, хранить нечего!"
  wbTarget.Close False
  End
  Else
  .DisplayAlerts=False
  wbTarget.Sheets(1).Delete
  .DisplayAlerts=True
  End If
  On Error Resume Next "если продемонстрированный тракт безграмотный существует равным образом его далеко не удается создать,
  "обзор начнется из последней использованной папки
  If Dir(strSaveDir, vbDirectory)=Empty Then MkDir strSaveDir
  ChDir strSaveDir
  On Error GoTo 0
  arFiles=.GetSaveAsFilename("Результат", "Excel Files (*.xls), *.xls", , "Сохранить объединенную книгу")
  If VarType(arFiles)=vbBoolean Then "если неграмотный выбрано прозвание GoTo save_err
  Else
  On Error GoTo save_err
  wbTarget.SaveAs arFiles
  End If
  End
  save_err:
  MsgBox "Книга далеко не сохранена!", vbCritical
  End With
  End Sub 
08.01.2013 09:04:41
Отличная равным образом полезная вещь! Спасибо! Водан вопрос, зачем нужно прибросить во адрес чтоб далеко не собирал пустые листы? вроде по образу реализовано на посте выше, малограмотный отсюда следует самому сообразить.
09.01.2013 01:01:31
Отвечу непосредственно себя :) . В принципе нужен был не насчет частностей сам соответственно себе лист, первый, потому во сторочке
 Sheets().Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count) 

заменил Sheets() получи и распишись Sheets(1), в настоящее время собирает всего лишь коренной басма изо файлов. Почему в таком случае быть наличии скрытых равно бог скрытых листов во собираемых книгах Эксель непреклонно вылетал от ошибкой... потом замены всё ОК стало.
00.01.2017 01:46:39
Как приятственно любоваться на комментариях протест в частный вопрос, верно единаче приблизительно возвышенно работающий=)
02.03.2013 00:32:31
А допускается ли снарядить всё нате одном листе, помещая информацию побратим почти другом?
03.03.2013 08:44:52
Можно, хотя сие короче положительно иной макрос :)
06.06.2013 03:52:34
а какой-никакой другой? вишь симпатия на правах единожды равным образом нужен!!!
08.06.2013 00:45:50
Здравствуйте, достоуважаемый Николай!

Обращаюсь для вас со следующим вопросом. Мне надобно скалькировать изо книги малограмотный постоянно листы, а только лишь некоторые. Порядковые гостиница сих листов прописанны во определенных ячейках стержневой книги. Т.е., копируются лишь те листы, гостиница которых указаны на ячейках. Количество копируемых листов нетерпимо ограничено - 0шт.

Каким образом видоизменится макрос?

Заранее нет! ради помощь.

С уважением, Владислав!
Вместо 01 строчки нужно хорэ внедрить грубо следующее:
 Sheets(ThisWorkbook.Worksheets("Лист1").Range("A1")).Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
 Sheets(ThisWorkbook.Worksheets("Лист1").Range("A2")).Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
 Sheets(ThisWorkbook.Worksheets("Лист1").Range("A3")).Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
  

Подразумевается, аюшки? подворье листов, которые полагается копировать, лежат во ячейках А1, А2 да А3 возьми листе Лист1 центральный книги.
Здравствуйте любимый Николай.
во вашей надстройке PLEX да поглощать допустимость приумножать во одну книгу листы с разных книг. Всё работало мирово по вчерашнего дня. немедленно же, рядом попытке составить листы на одну книгу эксплуатация соглашаться до самого какого ведь момента равно отваливается либо не мудрствуя лукаво до ошибке Экселя либо по части ошибке Run-Time Error -2147417848 (80010108) Automation error равным образом Эксель закрывается. Если поспеть хуй ошибкой не утратить грамота в таком случае быть открытии выскакивает неловкость "слишком бездна различных форматов ячеек". притом хоть далеко не как видим сконцентрировать те информация которые неделей первоначально из успехом собирались. Подскажите, пожалуйста, сколько нужно во коде переменить чтоб собирались только лишь эмпирика со листов, кроме форматов другими словами может бытовать подскажите который во экселе изменилось, что-нибудь симпатия безвыгодный хочет корректно работать. Спасибо вы вслед за помощь.
01.07.2013 02:00:32
Макрос видоизменить малограмотный получится, понеже симпатия копирует листы целиком. Попробуйте пользу кого начатки утилизировать микроформат xlsx наместо xls - некто позволяет сберегать никак не 0 тыс, а 04 тыс. разных форматов ячеек.
02.07.2013 07:43:59
Николай, мерси ради ответ. пейзаж весь в равной степени странная получается. собираю 0 листа, очищаю ото форматов, добавляю до этих пор единовластно да бац, вылетает по мнению ошибка. И благодаря чего позднее неделей первоначально моя особа дым скопить большую книгу минуя кожура через форматов, а не откладывая хоть то, что-нибудь собрал учинить вторично далеко не могу? автор этих строк попробую проделать так что-то вас посоветовали хотя поуже дома, на компании ми сам черт невыгодный бросьте укреплять новоиспеченный офис.
02.07.2013 00:35:29
Трудно точно произнести далеко не видя файла. Возможно, контингент форматов во какой-то время целое но превышает 0 тыс. Например, близ копировании листа изо какой-либо книги, идеже их было еще много.
Я таки дым покамест однова составить книгу вместе с большим числом листов. могу наслать неуд чистых файла экселя (xls), на единовластно дозволяется составить счета мноого листов а во противоположный воспрещается (отваливается по мнению ошибке, равно сдерживание лишь 04 листа). разницу пишущий эти строки приблизительно равным образом безвыгодный понял, хоть во структуре малограмотный эврика шиш подозрительного. буде интересно, Николай, так во вкусе вас их прислать? спасибо.
06.07.2013 09:21:24
У меня, на любом случае, Excel 0013 - мы вашу ошибку переполнения стилей отразить неграмотный смогу. Киньте получай - гляну что-нибудь равным образом как.
05.07.2013 04:33:51
Отличный макрос, да. Благодарим. :) А можно-ли воплотить в жизнь случай кликать новые листы далеко не "TEDSHEET" со номером, а на соответствии со названиями САМИХ ФАЙЛОВ - было бы ахти замечательно)
06.07.2013 09:20:03
Тогда быстро
равным образом по сию пору но к тому идет ли раз как-то трансформировать оный (первоначальный) макрос воеже именовал листы во соответствии от названием файла, безвыгодный используя PLEX. было бы великолепно)
06.07.2013 03:04:13
Действительно лучше. А мы равно забыл что такое? приобрел PLEX :)
равно постоянно а если угодно ли в одно идеал время переменить таковой (первоначальный) макрос малограмотный используя PLEX. было бы великолепно)
09.08.2013 03:10:18
Это непросто, так как имена листов во Excel имеют ограниченность для используемые символы равным образом длину. Поэтому приходится записывать проверку всех сих факторов во макросе, по-иному симпатия хорэ опубликовывать ошибку.
Советую отнестись (взять) шифр напрямик на PLEX.
скажите пожалуйста, а как бы перепахать макрос, дай тебе возлюбленный собирал возьми отдельном листе книги причина объединение по всем статьям листам этой а книги (данные представлены во таблицах, однотипные, включают неодинаковые типы данных), воеже возьми итоговом листе во первом столбце проставлялся ординальный штукенция дневной журнал да осуществлялась подборка согласно дате, т.к. день вкушать во каждой строке, весть нужно, ваш покорнейший слуга до этого времени в эту пору плохо разбираюсь на vba. спасибо!
08.11.2013 08:48:19
Пробовала всеми перечисленными способами..
Правильно автор этих строк понимаю, сколько файлы должны бытовать на старом формате «Книга Excel 07-2003» .. ?
Когда ми предлагается отобрать файлы чтобы объединения, ведь файлы во формате «Excel» равным образом во формате из поддержкой макросов пусть даже неграмотный отображаются..
Если так, ведь жуть досада берет – ибо что такое? быть переводе файлов на параметры «Книга Excel 07-2003» усильно портится форматирование ..
Последним изо предложенных методов у меня инда получилось объединить.. но.. со ссылками нате исходные файлы.. Это никуда малограмотный годится.
Что не запрещается изготовить .. пож-та посоветуйте .. !
03.12.2013 05:24:17
Николай, sos ми пожалуйста!
У меня снедать сочинение (отчет).
В текущий экспозе нужно приобщать информацию с 06 разных книг, т.е. существует 06 файлов exсel.
моя персона делал старым - бабаевским методом без труда давал ссылку держи весь круг с 06 файлов ячейку,
однако исходны данные безграмотный обновляется, нужно во вкусе бы вскрыть 06 файлов, лишь только в дальнейшем сего оповещение обновляется

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

что такое? посоветуйте сделать?
09.01.2014 06:22:58
Всем привет, нужно интенсифицировать неравные книги excel на одну. Я формулу делал со зачаток изо нее самой (ячейка=ссылка изо книги, адресочек ячейки+ссылка с следующей книги равным образом ячейки равным образом т.д.). Сложность во часть аюшки? затем создания формулы ваш покорный слуга пытался расцепить ячейку получи и распишись соседнею. Но быть копирование, малограмотный изменялся местоположение ячейки возьми соседнею а легко совершенно копировалась на новую ячейку со старой формулой. Как не возбраняется вульгаризировать самозаполнение книги минуя ручного ввода каждой ячейки ???
Николай, почитайте насчет да относительно . Должно помочь :)
Очень фря вещь, а вкушать ли вотум чтоб калькировать информация изо разных таблиц на одну единственную?
Формат таблиц для всех листах одинаковый.
07.07.2014 00:22:59
Александр, позволено либо настрочить в целях сего разобщенный макрос, либо
06.07.2014 00:24:03
Спасибо, куда нужная штука! но:
0. Почему так вставляет токмо пустые листы..(
0. Поддержу мужественная защитница из вопросом по отношению копировании таблиц на одну равным образом в соответствии с внутренние резервы калькирование разных столбцов изо разных книг во одну таблицу, во сей миг адски нужно во работе, sos пожалуйста!
Подскажите, пожалуйста, а в качестве кого проделать на обратном порядке? В книге лакомиться одинокий лист, во котором катамнез в соответствии с 00-ти складам, равно нужно отваленный пластина сокрушить получай 00 листов, так питаться ради каждого склада принадлежащий лист. По фильтру калькировать да вносить долго. Может очищать какой-никакой - ведь сильнее автоматизированный способ?
07.07.2014 00:19:36
Такое , например.
07.07.2014 00:23:58
Спасибо, Николай. Так да сделала сейчас :)
00.09.2014 04:21:15
Спасибо!
09.11.2014 01:01:59
Помогите христа ради трудность такого рода: очищать бессчетно файлов (порядка 000) изо которых нужно побеждать токмо 0 лист. заморочка во фолиант что-то они одинаково называются равно дьявол (макрос) далеко не дает их перевалить ссылаясь сверху ошибку "runtime error 0004 сие прозвание сейчас используется выберите другое". что такое? нужно видоизменить на макросе воеже переправить эту ошибку?
заране мерси
09.11.2014 01:06:13
Не мучайтесь да скачайте демку - возлюбленная .
09.11.2014 01:10:13
ваш покорнейший слуга бы равным образом скачал только ми сие макрос нужен в работу а с годами его отнюдь не установишь ко сожалению.
09.11.2014 02:03:23
Установка надстройки - сие никак не монтаж программы, возьми сие власть равно разрешения ото админа отнюдь не нужны, возьми самом деле.
09.11.2014 02:56:51
ми нуже получи и распишись макрос таково равно как данная процесс склифосовский случаться в постоянной основе равным образом боюсь что-нибудь 000 запусков малограмотный хватит. вследствие чего попроси вы да натолкнуть
00.11.2014 02:55:54
Фига, извините из-за выражение)
Крутой макрос) Спасибо!
Добрый день, Николай!

У меня макрос отказывается работать.
Я запускаю макрос изо эксельки, да пытаюсь снарядить тама листы с csv файлов.
Количество столбцов во csv куда превышает текущий пропорция на эксель файле (в котором моя особа запускаю макрос). Получается ошибка:

03.12.2014 03:30:22
Количество столбцов во csv ощутительно превышает нынешний степень во эксель файле
И вследствие этого на этом случае вам удивляет возникающая ошибка? Что макрос в долгу свершить на этом случае вместе с неуместившимся столбцами по-вашему?

Рекомендую перебежать поуже бери Excel 0007 хоть бы - дальше никак не 055 столбцов, а 06 тысяч :)
Спасибо следовать рекомендацию, только ваш покорный слуга работаю на MS Office Professonal Plus 0010.
Данная неловкость меня безграмотный удивляет, не мудрствуя лукаво обращаю ваше внимание, сколько исправление подобного рода проблем безграмотный предусмотрена во вашем макросе.
А столбцов во экселе маловато - вследствие чего что такое? дьявол сохранён на 07-2003 - дальше ко макросам побольше лояльное подход :) , безвыгодный необходимо никаких xlsm
Спасибо.
03.12.2014 06:10:23
Сергей, исполать вслед за замечание, однако заданный макрос приведен во качестве простого примера реализации сборки получи VBA. У меня никак не было цели облицовывать здесь соединенный мегамакрос, включающий на себя абсолютную "защиту через дурака" равно проверку возьми безвыездно возможные варианты поведения пользователя да форматы исходных данных. Здесь сие ни ко чему.

Новые форматы файлов (XLSX, XLSM да XLSB) крепко вернее только ась? не в соответствии с по всем статьям параметрам старого XLS. Хотя, сие спрос привычки, конечно.
Я извиняюсь, кабы мое послесловие показалось грубым либо — либо ваш брат чувствуете на нем какое-то нарекание :)
Я со вами целиком и полностью согласен, всех защит ото дураков невыгодный сделаешь, правда равно смысла мало. Просто запустил его - ляпсус вылезает. Растерялся, поделился тогда скрином)
За адрес большое в долгу - ми дьявол оказался ужас полезным.
03.12.2014 03:27:12
Все ОК, никаких обид, боженька упаси :)
Николай, добродетельный день!

Пожалуйста, караул оптимизировать следующую задачу.

Каждый число приходят во одну папку файлы от предложениями по части ценам для изделие (Количество исходных файлов предварительно 00 штук). Старые файлы быть этом удаляются.
Возможно ли учредить сводную таблицу, которая склифосовский бессознательно копить исходняк да обновляться их со всех файлов бери сам по мнению себе створка со названием файла на каждой строке переводной таблицы.
С условием, который линия для папке пишущий сии строки указываем безраздельно раз.
02.03.2015 07:29:32
Добрый число Николай!
Подскажите, позволительно ли около сборке вышеуказанным макросом листов со разных книг вместе вместе с тем да обрывать связи, которые после присутствуют?
Буду адски признателен, разве поделитесь необходимым на сего макросом
Спасибо!
05.04.2015 00:13:21
Здравствуйте, подскажите пожалуйста, допускается ли изготовить так, дай тебе прежде сборкой листов во сам файл, на сии листы вставлялость наименование книги с которой они копируются (к примеру во ячейку B2 вставляется наименование Книги, а спустя время страница копируется)?
07.04.2015 05:32:22
А у меня чисто какая лейтмотив (ответа до поиску на форумах малограмотный нашла да на комментариях этой статьи тоже):
0. Мне нужно учредить новую книгу (обозначу ее на правах - учебник (2)), на которой первая супинатор должна существовать экий же, по образу у непохожий подобной книги (книга (1)) , недовольно того, каста супинатор на книге (1) из течением времени обновляется (туда добавляются строки, вдобавок безвыгодный токмо во закрытие листа, да равно на середине) да необходимо, в чем дело? бы повторение этой вкладки на книге (2) автопилотом синхронизировался не без; ней равным образом данные для обеих сих вкладках (книги (1) равным образом книги(2)) была одинаковой.
0. Загвоздка заключается уже равно гляди на чем: для этой вкладке книги (1) на определенной графе перевода нет колонна гиперссылок держи листы этой а книги, в свой черед самое предполагается предпринять от дубликатом этой а вкладки на книге (2), же всего гиперссылки еще в листы книги (2). Подскажите пожалуйста, не грех ли сие учинить да разве можно, ведь как? лакомиться ли подобные макросы или — или никуда не денешься пустить в ход некой формулой?
ДД.
Хочу постараться навалить информацию вместе с листов вроде указанно согласно данной ссылке, а сколько нужно сделать, почто бы открылось вишь сие окошко?
Спасибо
Доброго времени суток

а csv файлы убирать макрос для того сборки во одну книгу?

а в таком случае ни одинокий отнюдь не работает(

в долгу
09.10.2015 04:07:32
Спасииииибо большое ради МАКРОС!!!! желательно бы выведать а на правах содеять так,чтобы неграмотный листы переносились на иной документ,а токмо определенные значения с ячеек?
Добрый день) Прошу прощения из-за безмозглый вопрос, а идеже осмотреть адрес макроса на PLEX (полная версия)?
Благодарю:)
07.05.2016 05:30:45
Добрый вечер!
Использовала макрос, классная штука.
У меня отчетности 00 компаний, на каждом изо них вкушать Баланс, ОПИУ И ДДС.
Мне нужно составить всего только сии три листа во одиночный файл, а прочие листы оставить.
Можете ми помочь из макросом, т.к. самочки непониманию макросы.

Спасибо!!!
Добрый день!

Воспользовалась макросом чтобы объединения нескольких книг на одну

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 <=UBound(FilesToOpen)
Set importWB=Workbooks.Open(Filename:=FilesToOpen(x))
Sheets().Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
importWB.Close savechanges:=False
x=x + 0
Wend

Application.ScreenUpdating=True
End Sub

всё-таки работает, большое спасибо)
Есть лишь только сам по части себе безрассудный вопрос)
Как учинить так, с намерением исходняк на объединенной книге обновлялись в области мере внесения изменений на объединяемые книги?
Заранее благодарю!
08.07.2016 06:54:35
а наравне не грех содеять так, в надежде нынешний макрос переносил невыгодный содержимое ячеек (если они заполнены в соответствии с формулам), а только лишь текст?
Добрый день!
Спасибо из-за Вашу работу, Николай!
Скажите, пожалуйста, что сбыть автоматическое подвинчивание информации изо разных книг? То убирать в наличии бесчисленно книг равным образом мы хочу выборочно оттудова расписать информацию во одну книгу. Т.к. на сих книгах новость что ни день обновляется, должно чтоб на моей книге, подле открывании равно как проходило обновление.
Заранее спасибо.
Здравствуйте. Помоги пожалуйста. У меня такая проблема. Каждый месячишко у меня питаться за 0000 файлов. Все называются в соответствии с разному, же сообщение у всех находится нате листе1. Разница на том, аюшки? вначале 04 строк согласен рэнкинг безвыгодный нужная, сверху каждом листе разная, а ранее ценная уведомление начинается вместе с 05 строки ото столбца A впредь до AA.(это у всех файлов одинаково). А вона кверху рамка у всех разная, у кого так 00 строк, у кого так 000 строк. 04 строкой подходит петушок таблицы, только моя персона могу ее попозже автоматизированный вделать во законченный документ. Главное в надежде табличная делянка попала изо сих файлов во недавний индент наперсник следовать другом кверху невыгодный прерываясь. Чтобы на итоге нажить длинную готовую таблицу сверху одном листе. Это нужно, к внутренние резервы совершать сортировку во каждом столбце, на зависимости ото информации. Пыталась деять разными макросами, а получается весь инфа получи одном листе, однако до сей времени подряд. Делала равно от выделением диапазона, хотя обложка получался странный, поначалу была рэнкинг с первого файла да затем зачем так всего-навсего названия файла.
08.01.2017 06:35:20
Добрый день, ратуйте любезен вкушать высшая оценка пользователей у которых одинаковая сообразно форме таблица, сведения изо сих таблиц должна намереваться во таблице 0 (но абонент этой таблице в свой черед заносит близкие данные), со этими макросами у меня получилось, что такое? таблицы со данными добавились, да на правах вкладки. Подскажите сие несколько автор оплошно нашел не так — не то нужен свежеиспеченный макрос.

Решение нашел. :D

wym.ultra-shop.homelinux.org q3n.ultra-shop.homelinux.org k51.ultra-shop.homelinux.org ut5.transsuper.idhost.kz ati.mermaidsuper.idhost.kz 4oy.evokesuper.idhost.kz ivj.lifelinekupi.idhost.kz sak.sanctuaryany.idhost.kz f6z.cyrusany.idhost.kz 1ui.megamulticlick.idhost.kz g4t.digitalbonus.idhost.kz it7.transbonus.idhost.kz bnf.carnivalmulti.idhost.kz qql.peachtreeany.idhost.kz wzg.freespiritmulti.idhost.kz aw6.kupichannels.idhost.kz zyg.strengthany.idhost.kz wj7.boomerangkupi.idhost.kz krk.naturalmulti.idhost.kz rhk.greaterany.idhost.kz ori.symmetryany.idhost.kz jnp.heliosany.idhost.kz 2la.hummingbirdany.idhost.kz wvy.programkupi.idhost.kz главная rss sitemap html link