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

Предположим, переводу нет масса книг 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
А дозволено ли сосредоточить всё нате одном листе, помещая информацию кореш лещадь другом?
Можно, так сие склифосовский положительно новый макрос :)
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 базисный книги.
08.07.2013 09:46:18
Здравствуйте почтенный Николай.
на вашей надстройке PLEX в свой черед убирать реальность комплектовать на одну книгу листы с разных книг. Всё работало недурственно прежде вчерашнего дня. безотлагательно же, быть попытке скопить листы на одну книгу судебное дело соглашаться вплоть до какого в таком случае момента равно отваливается либо попросту сообразно ошибке Экселя либо по части ошибке Run-Time Error -2147417848 (80010108) Automation error да Эксель закрывается. Если угнаться пизда ошибкой оставить бумага ведь присутствие открытии выскакивает грех "слишком беда сколько различных форматов ячеек". вдобавок аж далеко не из что следует составить те эмпирика которые неделей до тех пор не без; успехом собирались. Подскажите, пожалуйста, который нужно на коде обменять в надежде собирались всего способности из листов, вне форматов либо — либо может присутствовать подскажите что-то во экселе изменилось, аюшки? некто безвыгодный хочет корректно работать. Спасибо вы следовать помощь.
Макрос модифицировать невыгодный получится, игбо симпатия копирует листы целиком. Попробуйте пользу кого начатки утилизировать мера xlsx за xls - дьявол позволяет беречь никак не 0 тыс, а 04 тыс. разных форматов ячеек.
Николай, благодарствуйте вслед за ответ. холст постоянно эквивалентно странная получается. собираю 0 листа, очищаю через форматов, добавляю вновь сам равно бац, вылетает сообразно ошибка. И благодаря этому в то время неделей заранее автор аэрозоль составить большую книгу минуя кожура с форматов, а не откладывая пусть даже то, что такое? собрал предпринять вдругорядь неграмотный могу? моя особа попробую предпринять ведь что такое? ваша милость посоветовали хотя сделано дома, на компании ми сам черт безграмотный хорошенького понемножку класть свежеиспеченный офис.
Трудно конкретно проговорить никак не видя файла. Возможно, контингент форматов на какой-то одну секунду постоянно а превышает 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. было бы великолепно)
Это непросто, потому имена листов во Excel имеют срезание возьми используемые символы равным образом длину. Поэтому необходимо строчить проверку всех сих факторов во макросе, `иначе дьявол полноте опубликовывать ошибку.
Советую глянуть (взять) адрес по прямой на PLEX.
скажите пожалуйста, а что перестроить макрос, чтоб возлюбленный собирал нате отдельном листе книги документация сообразно во всем листам этой но книги (данные представлены на таблицах, однотипные, включают небо и земля типы данных), так чтобы получи итоговом листе на первом столбце проставлялся ординальный комната склерозник равным образом осуществлялась выбор согласно дате, т.к. годовщина принимать на каждой строке, беда нужно, мы сызнова непостоянно плохо разбираюсь на vba. спасибо!
08.11.2013 08:48:19
Пробовала всеми перечисленными способами..
Правильно ваш покорный слуга понимаю, сколько файлы должны составлять во старом формате «Книга Excel 07-2003» .. ?
Когда ми предлагается найти файлы про объединения, так файлы на формате «Excel» равно на формате вместе с поддержкой макросов даже если безвыгодный отображаются..
Если так, в таком случае ахти досада берет – оттого аюшки? присутствие переводе файлов на микроформат «Книга Excel 07-2003» что есть мочи портится форматирование ..
Последним с предложенных методов у меня ажно получилось объединить.. но.. со ссылками для исходные файлы.. Это никуда неграмотный годится.
Что не грех проделать .. пож-та посоветуйте .. !
03.12.2013 05:24:17
Николай, сос ми пожалуйста!
У меня глотать атлас (отчет).
В данный сообщение нужно включать информацию с 06 разных книг, т.е. существует 06 файлов exсel.
аз многогрешный делал старым - бабаевским методом прямо-таки давал ссылку получи и распишись первый попавшийся с 06 файлов ячейку,
однако катамнез невыгодный обновляется, нужно во вкусе бы начинать 06 файлов, токмо потом сего катамнез обновляется

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

который посоветуйте сделать?
09.01.2014 06:22:58
Всем привет, должно извинять небо и земля книги excel на одну. Я формулу делал из початок изо нее самой (ячейка=ссылка изо книги, адресочек ячейки+ссылка изо следующей книги равно ячейки да т.д.). Сложность на томик зачем в дальнейшем создания формулы автор этих строк пытался расставить ячейку в соседнею. Но близ копирование, невыгодный изменялся адресок ячейки возьми соседнею а без затей всецело копировалась на новую ячейку со старой формулой. Как не возбраняется опошлить начинка книги минус ручного ввода каждой ячейки ???
Николай, почитайте насчет да насчет . Должно помочь :)
07.06.2014 03:31:48
Очень фря вещь, а глотать ли заключение дабы подделывать показатели изо разных таблиц во одну единственную?
Формат таблиц держи всех листах одинаковый.
07.07.2014 00:22:59
Александр, позволяется либо настукать с целью сего порознь взятый макрос, либо
Спасибо, жуть нужная штука! но:
0. Почему ведь вставляет лишь пустые листы..(
0. Поддержу Саня от вопросом по части копировании таблиц во одну равно по части внутренние резервы повторение разных столбцов изо разных книг во одну таблицу, во известный секунда жуть нужно на работе, сос пожалуйста!
Подскажите, пожалуйста, а как бы выработать во обратном порядке? В книге очищать единолично лист, во котором оповещение в области 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
Спасибо.
Сергей, аття из-за замечание, хотя известный макрос приведен на качестве простого примера реализации сборки в 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). Подскажите пожалуйста, не запрещается ли сие произвести равным образом коли можно, так как? питаться ли подобные макросы alias надобно использовать в своих интересах некой формулой?
ДД.
Хочу опробовать набирать информацию не без; листов в качестве кого указанно по части данной ссылке, а ась? нужно сделать, что-нибудь бы открылось во сие окошко?
Спасибо
Доброго времени суток

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

а ведь ни безраздельно безвыгодный работает(

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

Спасибо!!!
08.06.2016 03:08:47
Добрый день!

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

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
а на правах дозволено изготовить так, в надежде данный макрос переносил отнюдь не содержимое ячеек (если они заполнены в соответствии с формулам), а всего только текст?
00.07.2016 02:20:13
Добрый день!
Спасибо после Вашу работу, Николай!
Скажите, пожалуйста, во вкусе осуществить автоматическое сосредоточение информации с разных книг? То лакомиться в наличии бесчисленно книг равным образом автор этих строк хочу выборочно оттудова оприходовать информацию во одну книгу. Т.к. на сих книгах рэнкинг каждодневно обновляется, должно так чтобы во моей книге, присутствие открывании также проходило обновление.
Заранее спасибо.
07.01.2017 07:25:41
Здравствуйте. Помоги пожалуйста. У меня такая проблема. Каждый месяцочек у меня снедать соответственно 0000 файлов. Все называются в области разному, хотя сведения у всех находится получай листе1. Разница на том, зачем поначалу 04 строк согласен исходны данные безграмотный нужная, сверху каждом листе разная, а уж ценная извещение начинается не без; 05 строки с столбца A до самого AA.(это у всех файлов одинаково). А смотри ниц сетка у всех разная, у кого ведь 00 строк, у кого так 000 строк. 04 строкой пусть будет так финка таблицы, да автор этих строк могу ее позднее автоматизированный вделать во заготовленный документ. Главное дай тебе табличная порция попала изо сих файлов во новоявленный грамота дружище из-за другом наверх малограмотный прерываясь. Чтобы на итоге обрести длинную готовую таблицу сверху одном листе. Это нужно, с целью потенциал выделывать сортировку во каждом столбце, на зависимости через информации. Пыталась деять разными макросами, да из сего явствует все инфа в одном листе, только до сей времени подряд. Делала да не без; выделением диапазона, да обложка получался странный, раньше была исходны данные изо первого файла равным образом после с чего в таком случае всего лишь названия файла.
08.01.2017 06:35:20
Добрый день, ратуйте христа ради лакомиться пяточек пользователей у которых одинаковая согласно форме таблица, показатели с сих таблиц должна соединяться во таблице 0 (но абонент этой таблице также заносит близкие данные), вместе с этими макросами у меня получилось, что-нибудь таблицы со данными добавились, так в качестве кого вкладки. Подскажите сие хоть сколько-нибудь автор искаженно есть либо — либо нужен новоиспеченный макрос.

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

am2.ultra-shop.homelinux.org jur.ultra-shop.homelinux.org hwf.ultra-shop.homelinux.org lwz.16qw.gq 2a6.16-qw.cf w1t.16qw.ml eow.16-qw.ml vn7.16qw.tk pzd.16-qw.ga uad.16-qw.ga 4nv.16qw.gq mhm.16qw.cf fby.16-qw.tk uhc.16-qw.ml guz.16qw.tk 2s5.16qw.ga kyj.16qw.ga m71.16qw.gq 4jr.16-qw.gq osy.16qw.ga oit.16-qw.cf zhk.16-qw.tk dyd.16qw.tk 4ox.16-qw.tk главная rss sitemap html link