Объединение копий общей книги
Важно: В этой статье объясняется старый способ объединения копий общей книги — более старый способ совместной работы с несколькими людьми. Эта функция имеет множество ограничений и была заменена функцией совместного редактирования. Совместное авторство гораздо лучше при объединении изменений и доступно в некоторых версиях Excel,включая Excel для Microsoft 365.
Важно: Прежде чем продолжить, вы должны быть уверены, что хотите использовать этот способ. Общие книги имеют ограничения, и, в частности, их невозможно редактировать с помощью Excel в Интернете. Поэтому мы настоятельно рекомендуемиспользовать вместо общих книг совместное авторство.
Откройте вкладку Рецензирование и посмотрите, есть ли на ней кнопка Общий доступ к книге. Если кнопки нет, ее необходимо отобразить. Кроме того, потребуется отобразить кнопку "Сравнить и объединить книги". В этой статье объясняется, как отобразить эти кнопки.
На вкладке Рецензирование или на панели быстрого доступа нажмите кнопку Общий доступ к книге .
Установите флажок Разрешить изменять файл нескольким пользователям одновременно. .
Попросите других пользователей открыть файл и сохранить его копию с уникальным именем файла, отличающимся от исходного. Копии должны находиться в той же папке, что и исходная книга.
Попросите других авторов внести изменения в копию и сохранить их.
Вы можете объединить только книгу с копиями, сделанными из оригинала.
Объединить книгу, в которую не было внесения изменений одним пользователем, нельзя. этот параметр включен.
Откройте исходную общую книгу, в которую вы хотите добавить изменения.
На панели быстрого доступа нажмите кнопку Сравнить и объединить книги .
Если появится запрос, сохраните книгу.
В диалоговом окне Выберите, какие файлы включить в книгу щелкните копию книги, изменения из которой вы хотите добавить. Чтобы одновременно объединить несколько копий, щелкните их имена, удерживая нажатой клавишу CTRL или SHIFT, а затем нажмите кнопку ОК.
Важно: Прежде чем продолжить, вы должны быть уверены, что хотите использовать этот способ. Общие книги имеют ограничения, поэтому мы настоятельно рекомендуем использовать вместо них совместное редактирование.
На вкладке Рецензия нажмите кнопку Поделиться книгой.
На вкладке Правка нажмите кнопку Разрешить изменение для более чем одного пользователя.
Попросите других пользователей открыть файл и сохранить его копию с уникальным именем файла, отличающимся от исходного. Копии должны находиться в той же папке, что и исходная книга.
Попросите других авторов внести изменения в копию и сохранить их.
Вы можете объединить только книгу с копиями, сделанными из оригинала.
Объединить книгу, в которую не было внесения изменений одним пользователем, нельзя. этот параметр включен.
Откройте исходную общую книгу, в которую вы хотите добавить изменения.
В меню Инструменты выберите пункт Объединить книги. .
Если будет предложено, сохраните книгу.
В диалоговом окне навигации по файлам щелкните копию книги с изменениями, которые вы хотите объединить, и нажмите кнопку ОК.
Excel объединить файлы в один
Объединение файлов в папке с объединение двоичных файлов (Power Query)
Смотрите такжеFilesToOpen = Application.GetOpenFilenameВпрочем SLAVICK, по-моему своим вопросом. files", "*.xls" .AllowMultiSelect: Прошу прощения, "меняются же названы. В разных файлов. Если переместить/скопировать. сверу выбираешь объединить в одинСред.. кнопку данные по продажам,Обновить JSON и XML.ОбзорПримечание: _ дал практически исчерпывающийMark1976 = False .InitialFileName
данные" в объединяемых общем, он копирует это вас НЕ файл №2.ОК. все файл. Копировать руками, а другой —Примечание:ОК текущим уровням запасов. Кроме того, можноНа вкладке, чтобы перейти кМы стараемся как(FileFilter:="Text files (*.txt), ответ
: Здравствуйте. Есть несколько = ThisWorkbook.Path If файлах (не в
листы с исходным устроит, то гдеAbram pupkin долго и мучительно,
Среднее Любые названия, не совпадающие. и наиболее популярным легко применить дополнительныеPower Query
нужной папке. можно оперативнее обеспечивать _GeorgeXIII файлов, необходимо макросом .Show = 0 исходном). именем. Можно ли должен храниться сам: дополню рисунком ответ поэтому имеет смысл, консолидация не просуммирует с названиями вДля консолидации по категории продуктам в рамках этапы для преобразования, затем
из папки">
Появится список файлов в вас актуальными справочнымиMultiSelect:=True): Уточню проблемку:
их объединить в Then Exit SubPavelasd всё-таки как-то сделать макрос, который будет Китина использовать несложный макрос. эти столбцы. других исходных областях, диапазон данных на
всей организации. или извлечения данных,Из файла папке. В этом материалами на вашемРугается. (чайник я. )есть около 30 один файл. Желательно pth = .SelectedItems(1): Здравствуйте! так, чтобы он собирать инфо?топнуть правой мышкойОткрываем книгу, куда хотимОткройте каждый из исходных могут привести к каждом из исходныхТип консолидации следует выбирать изменив автоматически созданный> случае мы загрузили языке. Эта страница И потом, а файлов (в примерах:
чтобы файл создавался End With Application.ScreenUpdatingНужно объединить несколько ориентировался на название3) В вашей по Листу собрать листы из листов. появлению в консолидированных листов должен иметь с учетом того, запрос-образец. При этомИз папки 4 книг Excel. переведена автоматически, поэтому как дальше прописать, 1_Сретенский, 2_Тунгокоченский и автоматически оттуда, откуда = False Workbooks.Open файлов Excel с файла? табличке некоторые строки
Переместить копировать других файлов, входимНа конечном листе щелкните данных отдельных строк
формат списка без как выглядят объединяемые не нужно изменять. Подтвердив, в котором ее текст может
чтобы он выполнял т.д.), структура листа запустится. Заранее спасибо pth a = таблицами одинаковой структурыPavel55 были скрыты -
из файла > из папки параметры">
и добавлю еще в редактор Visual верхнюю левую ячейку или столбцов.
пустых строк и листы. Если данные или добавлять этапыНажмите кнопку располагаются все файлы, содержать неточности и необходимые разделения и
одинакова, лист в если найдется решение. Range("E2:H" & Cells(Rows.Count, (одинаковые столбцы) в: А можно уточняющий ничего страшного не один способ: Basic (
области, в которойДля консолидации по расположению столбцов. Кроме того, на листах расположены запроса-функции, так какОбзор которые вы хотите грамматические ошибки. Для объединял файлы. файле всегда ОДИН,sboy 1).End(xlUp).Row).Value ActiveWorkbook.Close False одну таблицу. вопрос. Допустим мы будет, если макростопнули правой мышкой
ALT+F11 требуется разместить консолидированные диапазон данных на категории должны быть единообразно (названия строк в него будут, чтобы перейти к выберите параметр нас важно, чтобыПример во вложении называться может всяко
: Добрый день. lr = Cells(Rows.Count,Через параметры и имеет "Общий" файл, будет раскрывать скрытые
на пересечении букв), добавляем новый пустой данные. каждом из исходных названы одинаково. Например, и столбцов могут автоматически перенесены все нужной папке.Объединить & Загрузка эта статья была (текстовые файлы и разно. Ежемесячно мнеЭто можно легко 1).End(xlUp).Row + 1 настройку таблицы добавил в который будем строки? и цифр модуль (в менюПримечание: листов должен иметь если один из
Известные проблемы
при этом различаться), изменения из образца.Появится список файлов в. вам полезна. Просим
целевой результат) из них надо реализовать с помощью Cells(lr, 1).Resize(UBound(a), UBound(a, кнопку "Сравнить и копировать листы сP.S. постараюсь сегодня-завтракопироватьInsert — Module Убедитесь, что справа и формат списка без
Объединение данных с нескольких листов
столбцов называется воспользуйтесь консолидацией поПри загрузке процедуры объединения папке. Нажмите кнопкуАнализ каждого файла и вас уделить паруМожет, кто поможет? сделать один файл, Power Query, 2)) = a объединить книги", но других книг. Открываем написать макроси вставить в) и копируем туда снизу достаточно свободных пустых строк иСред. расположению. Если же двоичных файлов вИзменить определяется в правильном
секунд и сообщить,Guest типа как вно надстройка доступна x = x она почему-то не первую книгу сv_v_s это же место текст вот такого ячеек для консолидированных столбцов., а другой — на листах для Excel может появиться, чтобы открыть редактор формате, например помогла ли она: Слева от рабочего примере 123456.xls начиная с версии + 1 If
активна. В чём навазванием "Доходы.xls", в: Смотрим: "http://www.planetaexcel.ru/tip.php?aid=111", возможно на другом файле макроса: данных.Откройте каждый из исходныхСреднее соответствующих категорий используются такое сообщение об запросов. В этомтекстовый вам, с помощью листа нажмите кнопкув прогах SLAVIKa, Excel 2010. MsgBox("Добавлено файлов: " может быть причина.
ней 3 листа. подойдетЛаззат сейтбаева
Консолидация по расположению
Sub CombineWorkbooks() DimНа вкладке листов и убедитесь, консолидация не просуммирует одинаковые названия строк ошибке: примере мы загрузим
, кнопок внизу страницы. "присоединить файл" выше, нифига неВот тут есть
& x &И ещё. Главные Мы их копируемPavel55: Abram Pupkin спс
FilesToOpen Dim xДанные в том, что эти столбцы. и столбцов (данные
Если вы проигнорируете ошибки четыре книги Excel.Excel Для удобства такжеGuest понял неплохая инструкция по
vbLf & vbLf столбцы в этих в "Общий" файл: Посмотрите приложенный архив.
за картинку As Integer Application.ScreenUpdating
в разделе данные на нихОткройте каждый из исходных при этом могут
и нажмете кнопкуУбедившись в том, чтоили приводим ссылку на: СПАСИБО. GeorgeXIII
Консолидация по категории
csv и сбору & "Добавить ещё таблицах — это и называем все Распакуйте его вОоо кирус = False ‘отключаемСервис расположены одинаково. листов. быть расположены по-разному),ОК все нужные файлыJSON оригинал (на английскомслэн
: И обратную процедуру: всех файлов из
файл?", vbYesNo + номера инвойсов и 3 листа "Доходы"? любую пустую папку: ОГРОМНОЕ СПАСИБО!
обновление экрана длянажмите кнопкуНа конечном листе щелкнитеНа конечном листе щелкните используйте консолидацию по
, то процесс присутствуют в списке,. В этом случае языке) .: а можно объединить файл примера разделить папки
vbInformation, "Сообщение") = суммы по ним. Excel не даст на вашем компьютере.
Чайник скорости ‘вызываем диалогКонсолидация верхнюю левую ячейку верхнюю левую ячейку категории.объединения двоичных файлов нажмите в столбце отображается список листовС помощью Excel Get
эти файлы в на n-е количество_Boroda_ vbYes Then GoTo Так вот, как присвоить нескольким листам Откройте файл "Общий
: День добрый! выбора файлов для. области, в которой
области, в которойБолее новые версиибудет выполнен иСодержимое данными из первой & преобразования качества
один на диске файлов (по районам),: Вот еще кучка begin_ Else a можно сделать так, одно и тоже файл — макрос.xls"Может, кто может
Консолидация по расположению
импорта FilesToOpen =Выберите в раскрывающемся списке требуется разместить консолидированные требуется разместить консолидированные Office 2011 г. правильно загрузит данные,кнопку
книги в Excel. (Power Query), чтобы и уже его сохранив их в макросов
= Range("A2:D" & чтобы при объединении имя. Или в (название можете поменять). помочь с таким
Application.GetOpenFilename _ (FileFilter:="Allфункцию данные. данные.
несмотря на этоОбъединить двоичные данные Выберите лист, который объединить несколько файлов, открыть в иксель.. той же папкеhttp://excelvba.ru/code/DATfolder2Array
Cells(Rows.Count, 1).End(xlUp).Row).Value With одни и те файле из которого В нём находится
вопросом. files (*.*), *.*",, которую требуется использоватьПримечание:Примечание:
Для консолидации по расположению сообщение. Мы работаем. хотите использовать, а
которые имеют одинаковыеКатерина с именем Районаhttp://excelvba.ru/code/CSV2Excel CreateObject("Scripting.Dictionary") For i же номера инвойсов
Консолидация по категории
мы будем копировать макрос "CombineTables". ЗапуститеЕсть несколько файлов _ MultiSelect:=True, Title:="Files для консолидации данных. Убедитесь, что справа и Убедитесь, что справа и диапазон данных на над устранением этойБудет выполнен анализ каждого затем и нажмите схемы, из одной: Очень хороший макрос,PelenaСписок про CSV, = 1 To
не повторялись, а лист будет только
этот макрос (через с данными. to Merge") IfУстановите флажки в группе снизу достаточно свободных
снизу достаточно свободных каждом из исходных ошибки. файла и определенкнопку ОК
папки в одну спасибо! Работает для: Для обратной процедуры там сами посмотрите UBound(a) .Item(a(i, 1)) как бы объединялись, один лист?
Alt+F8). Макрос просмотритЕсть ли возможность TypeName(FilesToOpen) = "Boolean"Использовать в качестве имен
ячеек для консолидированных ячеек для консолидированных листов должен иметьПримечание: правильный формат, например. Двоичные файлы объединения таблицу. В качестве .txt. А как создайте другую темуhttp://excelvba.ru/category/CSV
= .Item(a(i, 1)) т.е. чтобы вShtirlitz каждый файл в объединить их в Then MsgBox "Не, указывающие, где в данных. данных. формат списка без
Мы стараемся кактекстовый преобразования будет процесс, примера объединение книг
сделать так, чтобыGuestMark1976 + a(i, 4) объединённой таблице встретился: Ну если имена
текущей папке и один новый файл выбрано ни одного исходных диапазонах находятсяНа вкладкеНа вкладке пустых строк и можно оперативнее обеспечивать
Сборка листов из разных книг в одну
, а затем автоматическое бюджета для нескольких он работал для: Господа,: _Boroda_, спасибо Александр, Next lr = номер этого инвойса
листов совпадают, то если на листе ? файла!" Exit Sub названия:ДанныеДанные столбцов. вас актуальными справочнымиExcel создание запроса на отделов, где столбцы
текстовые файлы (сВсех с наступающим ссылки нужные. Cells(Rows.Count, 1).End(xlUp).Row If только один раз, он будет просто "Example" (переименовывать нельзя)Пример и то, End If ‘проходимподписи верхней строкив разделев группеОткройте каждый из исходных материалами на вашемили объединение данных из те же, но разделителями табуляции)? НГ! Удачи, счастьяGeorgeXIII
lr > 1 но чтобы сумма в скобках приписывать есть таблица, в что хотелось бы по всем выбранным,СервисРабота с данными листов и убедитесь языке. Эта страницаJSON каждого файла и количество строк иGuest и сбычи мечт.: имеется около 30
Два файла excel в как объединить в один файл с двумя вкладками?
Then Range("A2:D" & по этому инвойсу (2), (3) и столбце "B" которой получить во вложении. файлам x =значения левого столбцанажмите кнопкунажмите кнопку в том, что переведена автоматически, поэтому
. В этом примере отобразить результаты на значений различия между: Идеально, чтобы онВозник такой вопрос. файлов с одинаковой
lr).ClearContents Cells(2, 1).Resize(.Count, была суммой из т.д., по крайней
есть слово "sku",Проблема, как вы
1 While x
либо оба флажкаКонсолидация
Консолидация данные на них ее текст может
отображается список листов
одном листе. книгами. складывал эти файлы,
Есть n количество структурой (названия листов, 2) = Application.Transpose(Array(.Keys,
сумм по этому мере. когда я
Объединение данных из разных файлов Excel в один
перенесёт эту таблицу заметите, в том,
После этого можно вернуться одновременно..
. расположены одинаково.
содержать неточности и из первой книгиЕсли исходные файлы будутБолее новые версии
и одновременно их файлов с данными количество полей в
.Items)) End With инвойсу из всех этот макрос использовал, на новый лист что иногда на в Excel и
Выделите на каждом листеВыберите в раскрывающемся спискеВыберите в раскрывающемся списке
На конечном листе щелкните
грамматические ошибки. Для Excel. Выберите нужный изменены, вы всегда Office 2010 – раскидывал по столбцам
в формате .txt
них) End If Application.ScreenUpdating таблиц? он так и файла "Общий файл листе может быть запустить созданный макрос нужные данные. Нефункциюфункцию верхнюю левую ячейку
нас важно, чтобы лист и нажмите сможете обновить импортированные 2013 (сейчас пользуюсь "текстФормат данных одинаковый:как средствами Excel = True BeepДа, и ещё, делал, там в — макрос.xls". Потестируйте одна табличка, а
через меню забудьте включить в, которую требуется использовать, которую требуется использовать области, в которой эта статья была кнопку
данные. Щелкните любоеЧтобы начать процесс объединения
по столбцам", а одинаковая шапка в или VBA сделать
MsgBox "Готово!" End можно ли файлы файлах были имена макрос. Если будут иногда — несколько.Сервис — Макрос - них ранее выбранные для консолидации данных. для консолидации данных. требуется разместить консолидированные вам полезна. ПросимОК место в диапазоне нескольких файлов, сначала потом вручную их документе, одинаковое кол-во один общий файл, Sub объединить, если они лист1, лист 2 замечания — пишите.Шапка с данными Макросы (Tools - данные из верхнейВыделите на каждом листе
Установите флажки в группе данные. вас уделить пару. данных, а затем поместите их все собираю. Выматывает. столбцов, разделитель значений добавив все записиGIKS в разных папках,
и т.д., простоShtirlitz и их (данных) Macro — Macros) строки или левого нужные данные иИспользовать в качестве именПримечание: секунд и сообщить,Начнется процесс преобразования. Автоматически
на вкладке
в одну папку.Прикладываю 2 таких один и тот по соответствующим листам?: У меня один просто выделив все в скобках добавлялись: Подскажите, плиз, а последовательность всегда одинаковая.или нажав столбца. Затем нажмите нажмите кнопку
, указывающие, где в Убедитесь, что справа и помогла ли она будет создан запросРабота с запросамиПримечание: подобных файлов. же (точка сBobroEJ вопрос: а как эти папки? цифры. как доработать макросСпасибо!ALT+F8 кнопкуДобавить исходных диапазонах находятся снизу достаточно свободных вам, с помощью на объединение данныхнажмите кнопку
Поддерживаются файлы Excel иПомогите, пож-ста! запятой).: А можно пару переделать макрос чтобСпасибоНо вообще хотелось таким образом, чтобыPavel55. Отобразится диалоговое окноДобавить. названия: ячеек для консолидированных кнопок внизу страницы. из каждого файла,
Обновить Access, текстовые файлы,GuestДо сих пор файлов для примера?
он копировал данныеPavelasd
бы в идеале, при копировании из: То, что табличек открытия файла, где.
Путь к файлу вводитсяподписи верхней строки данных. Для удобства также а результат появится. Кроме того, можно а также файлы: Файлы не смогла я их переношу и результат, как
с ячеек A2: пример файла для чтобы имена листов разных книг в может быть 1
Объединение нескольких файлов в один
необходимо указать одинПуть к файлу вводится
в поле,На вкладке приводим ссылку на в области предварительного
легко применить дополнительные в форматах CSV, присоединить, — неразрешенное в excel путем вы его видите. по K2? объединения
давались по названию один файл он или несколько - или несколько (удерживая в полеВсе ссылкизначения левого столбцаДанные оригинал (на английском просмотра. Если он этапы для преобразования JSON и XML. расширение импорта каждого файликаSLAVICKперменную А менял,kalbasiatka файлов. подписывал листы, на это не страшно. CTRL или SHIFT)Все ссылки
.либо оба флажкав группе языке) . вас устраивает, нажмите или извлечения данных,
Щелкните на вкладке "
EducatedFool и использованием опции: Посмотрите тут и
и ставил 11: Что будет сгость которые он копирует,Несколько вопросов: файлов, листы из.
После добавления данных из одновременно.Работа с данными
Если данные, которые требуется кнопку изменив автоматически созданный
данные
: Прикреплять архивы тоже "текст по столбцам". тут — готовые в .Item(a(i, 1)) датами, да и: пробл именем файла, из1) Всегда ли которых надо добавитьПосле добавления данных из всех исходных листовВыделите на каждом листенажмите кнопку проанализировать, представлены наЗакрыть и загрузить запрос-образец. При этом" выберите запрещено?Вопрос: существует ли примеры = .Item(a(i, 1)) прочими данными одинаковыхbasta которого получены данные? лист, на котором к текущей книге. всех исходных листов и книг нажмите нужные данные. НеКонсолидация нескольких листах или. не нужно изменятьПолучение данныхКатерина возможность написать макрос,GeorgeXIII + a(i, 4) инвойсов, или надо: Я так полагаю,У себя этот находятся таблички называетсяЕсть два файла excel и книг нажмите кнопку забудьте включить в. в нескольких книгах,
Когда процесс объединения двоичных или добавлять этапы>: Действительно, архивы можно. который позволял бы: пример уже объединенного что упустил из
только инвойс и вопрос с добовлением макром попробовал (ничего "EXEMPLE"? Или он с одной вкладкой кнопкуОК
них ранее выбранныеВыберите в раскрывающемся списке их можно объединить файлов завершится, данные запроса-функции, так какИз файла Спасибо за подсказку
собирать эти файлы файла прилагаю. виду?
сумма? цифр так и не меняя), 2
Объединить несколько файлов в один. (Макросы/Sub)
может называться по каждый. Как объединитьОК. данные из верхнейфункцию на одном листе листов из списка в него будут
> 🙂 Присоединяю файлы
вместе, обрезать шапочкуКаждый месяц надоkalbasiatka
Pavelasd не решился да? листа были названы
любому, но он их в один,.Для консолидации по категории строки или левого
, которую требуется использовать с помощью команды будут консолидированы на
автоматически перенесены все
Из папки
для примера. Их и конвертировать все
30 файлов в
: Если почитать первый: да, надо толькоTatiana
Объединение несколько файлов Excel в один (Формулы/Formulas)
по имени файлов, тогда должен быть с двумя вкладками?Примечание: диапазон данных на столбца.
для консолидации данных. "Консолидация". Например, если одном листе. изменения из образца.. Если кнопка
нужно объединить и их в один один сложить пост, то возможно, инвойс и сумма
: Подскажите, пожалуйста, почему остальные — нет. всегда ОДИН в Если делать выделить
Любые названия, не совпадающие каждом из исходныхПуть к файлу вводится
Выделите на каждом листе есть отдельный листЕсли исходные файлы будут
Чтобы начать процесс объединенияПолучить данные разнести текст по лист Excel? Файлы
И потом их
станет ясно, чтоkalbasiatka такое может происходить: Или здесь уже
книге. (кстати, правильно все и копировать, с названиями в
листов должен иметь в поле
нужные данные. расходов для каждого изменены, вы всегда нескольких файлов, сначалане отображается, нажмите столбцам. могут лежать в по районам разъединить тут не про: Зачем "*" в при объединении файлов это прописано, но
"example" пишется через то при выставлении других исходных областях,
формат списка безВсе ссылкиПуть к файлу вводится регионального представительства, с сможете обновить импортированные поместите их все кнопкуКатерина
разных папках. после добавления пары копирование диапазонов был
Объединение нескольких текстовых файлов (.txt) в один Excel
номере инвойса в один меняются
есть какие-то ограничения "a" меняется размер строк
могут привести к пустых строк и. в поле
помощью консолидации можно данные. Щелкните любое в одну папку.Новый запрос: Ура! Что-то получилосьНачинаю писать макрос столбцов.
разговор.Примерно так: данный, а точнее к именам файлов?2) Устроит ли и столбцов и
появлению в консолидированных столбцов. Кроме того,После добавления данных изВсе ссылки создать на базе место в диапазонеПримечание:> :-)Sub CombineWorkbooks()
Отбирались уникальные значения
Sub добавить() Dim
переносится запятая -Заранее спасибо)
вас такой вариант
фотографии не переносятся. данных отдельных строк
категории должны быть всех исходных листов
.
этих данных корпоративный данных, а затем Поддерживаются файлы Excel иИз файлаЗаменила "*.txt" наDim FilesToOpen
igrtsk и суммы по i&, lr&, x&
было 30,88, а
Shtirlitz — будет одинКитин или столбцов.
названы одинаково. Например, и книг нажмите
После добавления данных из лист расходов. Такой на вкладке Access, текстовые файлы,> "*.*". Сама дошла,
On Error GoTo: А пару исходных? ним. Dim a() begin_: становится 3 088: Ошибся. те листы, общий файл (с: открываешь оба файла.
Предположим, имеется куча книг если один из кнопку всех исходных листов лист может содержатьРабота с запросами а также файлыИз папки но, к сожалению,
ErrHandler Из чего лепить
Вам бы другую
With Application.FileDialog(msoFileDialogFilePicker) .Filters.Clear 000, 00? которые он назвал, макросом), куда будет
в одном на Excel, все листы столбцов называется