Как открыть список всех документов в excel

Excel works!

Excel работает за вас

Excel works!

Thanks for Visiting

Как найти только что закрытый файл? Как быстро найти и открыть книгу Excel в т.ч. в VBA?

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

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

Как найти и открыть книгу из самой программы? Горячая клавиша

Зачастую пользователи не знают, что открыть книгу можно и не сворачивая Excel. Перейдите в меню файл (круглая кнопка в левом верхнем углу) — нажмите Открыть и выберите необходимую папку:

Так же работает горячая клавиша Ctrl+O .

Как найти и открыть недавно закрытую книгу Excel?

Если вы забыли куда сохранили только что созданную книгу (у меня так бывает), то найти ее не будет проблемой. Открыть последние используемые файлы можно через панель Последние документы. Опять же откройте меню файл (для версий 2007 и выше) и вы сразу увидите последние используемые вами файлы Excel.

Видите гвоздики справа? Вы можете закрепить какой-то файл при помощи них, и он всегда будет доступен здесь. Удобно, когда вы часто пользуетесь одним и тем же файлом. Просто кликните по гвоздику, и файл закрепится.

При открытии любой книги Excel в разделе Последние документы будет висеть закрепленный таким образом файл.

Список последних файлов будет меняться в зависимости от того, с какими файлами вы работаете. Список файлов состоит 25 элементов, но если зайти «Файл»-«Параметры»-«Дополнительно»-«Экран»-«Число документов в списке последних файлов:», то можно установить свое значение до 50 файлов.

В версиях программы 2013 и выше последние файлы доступны в меню кнопки открыть.

Как открыть уже открытые файлы?

Если у вас множество файлов, то иногда проще их найти при помощи инструментом закладка «Вид» раздел «Окно» инструмент «Перейти в другое окно».

Функция Перейти в другое окно в версии Excel 2016

Как открыть несколько книг рядом?

Если вам необходимо открыть несколько книг или окон рядом, то это тоже несложно. Возможность редактора подробно описана здесь .

Как закрыть или открыть книгу Excel через VBA?

Если у вас больше 15 файлов, которые надо регулярно открывать один за одним, то удобно будет записать макрос для открытия этих книг. Как записать макрос, читайте в отдельной статье .

Вам необходимы отдельные функции для открытия или закрытия Excel через VBA? Например, вам нужно, чтобы файл закрывался после окончания выполнения макроса, используйте такие команды:

Где C:primer.xlsx путь к файлу

Где ClsBK — переменная, которой присваиваем имя открытой книги, а потом закрываем.

Источник

Как открыть несколько файлов excel 2016 в одном окне

Как открыть несколько файлов Excel 2016 в одном окне?

Всё, что Вам нужно сделать – это открыть книгу и нажать команду New Window (Новое окно) на вкладке View (Вид). Вы можете нажать кнопку New Window (Новое окно) несколько раз, чтобы одновременно просматривать столько листов одной и той же рабочей книги, сколько потребуется.

Как объединить несколько файлов Excel в одну книгу?

Чтобы одновременно прокручивать оба листа, нажмите кнопку Синхронная прокрутка в группе окно на вкладке вид . Примечание: Этот параметр доступен, только если включен режим Рядом. Начиная с Excel 2013 книги, которые вы открыли в Excel, больше не отображаются в нескольких окнах книг в одном окне Excel.

Как открыть 2 файла Excel 2010 в разных окнах?

Способ номер один – значок Excel на панели задач

1. Щелкните правой кнопкой мыши по значку Excel на панели задач и выберите Microsoft Excel 2010 (или 2007): Затем перейдите в меню File (Файл) > Open (Открыть) и выберите вашу вторую книгу.
2. Щелкните по значку программы на панели задач, удерживая клавишу Shift.

Как одновременно работать в одном файле Excel 2016?

Откройте книгу Excel и перейдите к вкладке «Рецензирование». В группе «Изменения» нажмите на кнопку «Доступ к книге». В открывшемся диалоговом окне поставьте галочку у опции «Разрешить изменять файл нескольким пользователям одновременно» и нажмите на «ОК».

Как в Excel сделать несколько файлов в одном окне?

Всё, что Вам нужно сделать – это открыть книгу и нажать команду New Window (Новое окно) на вкладке View (Вид). Вы можете нажать кнопку New Window (Новое окно) несколько раз, чтобы одновременно просматривать столько листов одной и той же рабочей книги, сколько потребуется.

Как открыть 2 листа Эксель одновременно?

Одновременный просмотр двух листов в одной книге

1. На вкладке Вид в группе Окно щелкните элемент Новое окно.
2. На вкладке «Вид» в группе «Окно» выберите «Рядом с .
3. В окне каждой книги щелкните лист, который нужно сравнить.
4. Чтобы прокручивать одновременно оба

Как в Excel посмотреть два документа в разных окнах?

Как открыть два документа в разных окнах на одном экране. Разделить экран на области в Excel.

1. После открытия перейдите в панели быстрого доступа на вкладку «Вид».
2. После нажатия на пиктограмму «Упорядочить все» на экране появится окошко с контекстным меню, предлагающим выбор расположения окон:

Как открыть два окна на экране?

Всё просто: нужно нажать сочетание клавиш Win + → (стрелка вправо).

1. Win + вправо — расположить окно в правой части
2. Что получилось
3. Нажмите Win + влево
4. Windows автоматически разделила экран для Word и браузера
5. Половинку разделили на половинку — теперь можно открыть 3 окна!

Как открыть два документа в одном окне?

Просмотр и сравнение документов рядом

1. Откройте оба файла, которые нужно сравнить.
2. На вкладке Вид в группе Окно выберите команду Рядом. Примечания: Чтобы прокручивать одновременно оба документа, в группе Окно на вкладке Вид нажмите кнопку Синхронная прокрутка .

Как открыть два файла Excel 2007 в разных окнах?

Способ 1: панель задач

1. После того, как один документ Эксель уже запущен, наводим курсор на иконку программы, размещенную на Панели задач. …
2. Открывается чистый лист Эксель в отдельном окне. …
3. В запустившемся окне открытия файла переходим в директорию, где расположен нужный документ, выделяем его и жмем на кнопку «Открыть».

Как настроить Excel чтобы открывался в разных окнах?

Как открыть файлы Excel 2010 в отдельных окнах

1. Щелкните правой кнопкой мыши по значку Excel на панели задач и выберите Microsoft Excel 2010 (или 2007): Затем перейдите в меню File (Файл) > Open (Открыть) и выберите вашу вторую книгу.
2. Щелкните по значку программы на панели задач, удерживая клавишу Shift .

Как разделить экран в Excel?

Выделите ячейку под строкой или справа от столбца, по которым следует произвести разделение. На вкладке Вид в группе Окно нажмите кнопку Разделить . Чтобы отменить разделение листа, нажмите кнопку Разделить еще раз.

Как одновременно работать в одном файле Word?

Можно также выбрать элементы Файл > Общий доступ.
…
Поделившись документом, вы можете работать над ним одновременно с другими пользователями.

1. Лучше всего работать вместе в Word в Интернете, чтобы сразу видеть вносимые изменения.
2. В разделе Общий доступ отображаются имена пользователей, которые также редактируют файл.

Как работать в одном документе с двух компьютеров?

Для того, чтобы начать совместную работу с документом, достаточно в документе Microsoft Excel перейти в меню «Рецензирование» – «Доступ к книге» и выбрать «Разрешить изменять файл нескольким пользователям одновременно» (Рис. 1).

Как сделать один файл Excel многопользовательским?

Как сделать совместный доступ к файлу Excel?

1. Переходим на вкладку «Рецензирование». …
2. Управление доступом к файлу – правка. …
3. Переходим к инструменту «Подробнее», чтобы настроить параметры многопользовательского редактирования.
4. Нажимаем ОК. …
5. Открываем меню Microsoft Office.

Два документа в разных окнах на одном экране Excel. Разделить экран на области

Порой при сравнении двух файлов (документов Excel) приходится переключаться между файлами, открытыми в разных окнах. Рассмотрим способ выведения двух окон на одном экране Excel, поскольку переключение между окнами процесс трудозатратный и довольно раздражающий.

Для начала следует открыть оба файла. Названия файлов должны быть разными.

После открытия перейдите в панели быстрого доступа на вкладку «Вид».

Во вкладке «Вид» следует выбрать пиктограмму «Упорядочить все».

После нажатия на пиктограмму «Упорядочить все» на экране появится окошко с контекстным меню, предлагающим выбор расположения окон:

• Расположение «рядом» — размещает окна рядом (столбцами);
• Расположение «сверху вниз» — замещает окна сверху вниз (строками);
• Расположение «слева направо» — размещает окна рядом слева направо;
• Расположение «каскадом» — размещает окна одно на другом каскадом.

После нажатия кнопки «ОК» окна выстроятся в нужном порядке.

Чтобы вернуть окна к обычному виду, то есть каждый файл открыть в отдельном окне, достаточно кликнуть двойным щелчком мыши по верхнему краю окна (рамке окна).

После двойного клика по рамке окна вернутся в прежнее положение.

Источник

Просмотреть все файлы в папке

Иногда необходимо проделать однотипные операции с несколькими файлами, расположенными в одной папке. Можно открывать каждый по очереди:
Workbooks.Open «C:Новая папкаКнига1.xlsx»
Workbooks.Open «C:Новая папкаКнига2.xlsx»
и т.д.
Но если файлов много и все с разными именами, то это не очень практично и совсем лишено гибкости. При помощи Visual Basic for Application можно решить проблему. При этом файлы можно просматривать как в одной папке, так и включая вложенные «подпапки».

• Все файлы в папке
• Все файлы включая подпапки
• Просмотреть все диски

Все файлы в папке
Ниже приведен код, который перебирает все файлы в папке, открывает их и на первом листе каждого файла записывает текст «www.excel-vba.ru» в ячейку A1 :

Sub Get_All_File_from_Folder() Dim sFolder As String, sFiles As String Dim wb As Workbook ‘диалог запроса выбора папки с файлами With Application.FileDialog(msoFileDialogFolderPicker) If .Show = False Then Exit Sub sFolder = .SelectedItems(1) End With sFolder = sFolder & IIf(Right(sFolder, 1) = Application.PathSeparator, «», Application.PathSeparator) ‘отключаем обновление экрана, чтобы наши действия не мелькали Application.ScreenUpdating = False sFiles = Dir(sFolder & «*.xls*») Do While sFiles <> «» ‘открываем книгу Set wb = Application.Workbooks.Open(sFolder & sFiles) ‘действия с файлом ‘Запишем на первый лист книги в ячейку А1 — www.excel-vba.ru wb.Sheets(1).Range(«A1»).Value = «www.excel-vba.ru» ‘Закрываем книгу с сохранением изменений wb.Close True ‘если поставить False — книга будет закрыта без сохранения sFiles = Dir Loop ‘возвращаем ранее отключенное обновление экрана Application.ScreenUpdating = True End Sub

sFiles = Dir(sFolder & «*.xls*») — Строка отвечает за тип перебираемых файлов. В примере будут просмотрены любые файлы Excel. Звездочка на конце означает любой символ или набор символов. Т.е. если указать без неё — «*.xls», то будут просмотрены только файлы с расширением xls, а если указать xlsx — то файлы с расширением xlsx и никакие другие.
Если хотите перебрать файлы других форматов, а не Excel, то просто замените «*.xls» на нужное расширение. Например «*.doc». Также, если хотите собрать только файлы с определенными символами/словами в имени, то можно указать так: sFiles = Dir(sFolder & «*отчет*.xls*») . Будут просмотрены все файлы, содержащие в имени слово «отчет»(например «отчет за июнь.xls», «отчет за июль.xls», «сводный отчет.xls» и т.п.).

Все файлы включая подпапки
В коде выше есть одна проблема: что если необходимо открыть файлы не только в указанной папке, но и во всех её подпапках? В версиях Excel 2003 и младше это решалось с помощью метода .FileSearch , но в старших версиях данный метод по каким-то причинам был заблокирован разработчиками Microsoft. И осталось действовать только через рекурсивный метод перебора папок. Ниже приведен код, который открывает все файлы Excel в указанной папке, включая все подпапки.
Для этого используется встроенная в офис библиотека File System Object :

Option Explicit Dim objFSO As Object, objFolder As Object, objFile As Object Sub Get_All_File_from_SubFolders() Dim sFolder As String With Application.FileDialog(msoFileDialogFolderPicker) If .Show = False Then Exit Sub sFolder = .SelectedItems(1) End With sFolder = sFolder & IIf(Right(sFolder, 1) = Application.PathSeparator, «», Application.PathSeparator) Application.ScreenUpdating = False Set objFSO = CreateObject(«Scripting.FileSystemObject») GetSubFolders sFolder Set objFolder = Nothing Set objFSO = Nothing Application.ScreenUpdating = True End Sub Private Sub GetSubFolders(sPath) Dim sPathSeparator As String, sObjName As String Dim wb As Workbook Set objFolder = objFSO.GetFolder(sPath) For Each objFile In objFolder.Files If Replace(objFile.Name, objFSO.GetBaseName(objFile), «») Like «.xls*» Then ‘открываем книгу Set wb = Application.Workbooks.Open(sPath & objFile.Name) ‘действия с файлом ‘Запишем на первый лист книги в ячейку А1 — www.excel-vba.ru wb.Sheets(1).Range(«A1»).Value = «www.excel-vba.ru» wb.Close True ‘wb.Close False ‘- если в коде надо будет закрывать книгу без сохранения End If Next For Each objFolder In objFolder.SubFolders GetSubFolders objFolder.Path & Application.PathSeparator Next End Sub

Код делает тоже самое, что и первый, но открывает и изменяет ячейку A1 первого листа для всех файлов Excel в выбранной папке и всех её подпапках(включая все вложенные до последнего уровня).

If Replace(objFile.Name, objFSO.GetBaseName(objFile), «») Like «.xls*» Then

Строка отвечает за тип перебираемых файлов. В примере будут просмотрены любые файлы Excel. Звездочка на конце означает любой символ или набор символов. Т.е. если указать без неё — » * .xls» , то будут просмотрены только файлы с расширением xls, а если указать xlsx — то файлы с расширением xlsx и никакие другие.
Если добавить условие: If objFSO.GetBaseName(objFile) Like «*книга*» Then
то будут обработаны файлы, которые в имени содержат слово «книга». При этом регистр букв имеет значение. Т.е. если файл содержит в имени слово «Книга», то он не будет обработан.
Думаю теперь Вы легко сможете проделать необходимые операции с множеством файлов.

Все файлы в папке и подпапках.xls (61,5 KiB, 8 138 скачиваний)

В примере я закомментировал строки, открывающие файл и вносящие изменения в ячейку A1 и заменил это созданием списка имен всех файлов в папках и подпапках. По окончании работы кода имена всех файлов записываются в столбец «А» нового листа(лист создается автоматически). Сделано для того, чтобы при тестировании кода случайно не повредить информацию в файлах.

Просмотреть все файлы на всех дисках
В последнее время участились вопросы как просмотреть еще и все диски на ПК. Ниже выкладываю код, который просматривает все подключенные диски и просматривает все файлы во всех папках дисков:

Sub Get_All_drives() Dim objDrives As Object, objDrive As Object Set objFSO = CreateObject(«Scripting.FileSystemObject») Set objDrives = objFSO.Drives For Each objDrive In objDrives If objDrive.IsReady Then GetSubFolders objDrive.DriveLetter & «:» End If Next objDrive End Sub

Для работы кода необходимо разместить его в том же модуле, что и код просмотра файлов в подпапках. Без него код просмотра дисков работать не будет, т.к. обращается к процедуре GetSubFolders (которая и приведена в коде перебора файлов в подпапках).
Скачать пример:

Все файлы в папке и подпапках.xls (61,5 KiB, 8 138 скачиваний)

В примере код сканирует все диски и выводит в столбец А нового листа(лист создается автоматически) пути ко всем файлам.

Статья помогла? Поделись ссылкой с друзьями!

Источник

В верхнем левом углу окна программы щелкните по кнопке «Office». В меню типичных команд выберите пункт «Параметры Excel». В окне «Параметры Excel» на вкладке «Дополнительно» груп пе «Экран» в пункте «Число документов в списке последних файлов» задайте счетчиком нужное количество документов – от 1 до 50.

Как посмотреть последние файлы с которыми работал?

Чтобы увидеть ее — нажмите сочетание клавиш Win+R, и введите в строку «Открыть» команду shell:recent. ), нажмите правой кнопкой мышки по каталогу «Недавние документы» и выберите функцию «Закрепить на панели быстрого доступа». Теперь, открыв проводник, вы всегда можете найти свои недавние документы (см. скриншот ниже).

Как открыть последние документы в ворде?

Изменение количества файлов, отображаемых в списке последних использованных файлов

1. Откройте вкладку Файл.
2. В группе Справка выберите команду Параметры.
3. Нажмите кнопку Дополнительно.
4. В группе Отображение в списке Число документов в списке последних файлов: выберите необходимое количество отображаемых файлов.

Как найти последние сохраненные файлы?

Нажмите кнопку Пуск и нажмите кнопку Найти. В левом нижнем углу панели Поиска Windows щелкните использовать поиск. В Открывшейся панели выберите все файлы и папки. В поле Папка выберите Мой компьютер и нажмите кнопку Найти.

Как найти сохраненные файлы Excel?

Для этого нужно выполнить следующие действия.

1. Переходим во вкладку «Файл» Excel. Щелкаем по наименованию раздела «Параметры» .
2. Открывается окно параметров Эксель. Переходим в подраздел «Сохранение» . В правой части окна в группе настроек «Сохранение книг» нужно найти параметр «Каталог данных для автовосстановления» .

Как посмотреть последние открытые документы в Windows 7?

Выбираем пункт «Свойства». Откроется окно «Свойства панели задач и меню «Пуск». Открываем вкладку «Меню «Пуск» и нажимаем кнопку «Настроить» (при этом в разделе «Конфиденциальность» снизу должен стоять флажок в чекбоксе «Хранить и отображать список недавно открывавшихся элементов в меню «Пуск» и на панели задач»).

Как посмотреть последние открытые файлы в Windows XP?

На рабочем столе появится ярлык скрытой папки “Недавние документы”. Теперь щелкаем по этой папке правой кнопкой мыши. В появившемся меню наводим указатель мыши на пункт меню “Открыть” и щелкаем по нему левой кнопкой мыши. В окне просмотра “Недавние документы” мы и увидим все свои файлы, которые мы открывали.

Как найти последние документы в Windows 8?

Да, есть способ сделать это: просто откройте диалоговое окно запуска, нажав Win + R и введите « recent ». Там вы можете увидеть ваши последние действия. Примечание . «Недавние места» можно открыть в проводнике Windows в разделе «Избранное».

Где найти сохранённые файлы?

Файлы, которые хранятся на вашем мобильном устройстве, можно будет найти в папке «Загрузки». Подробнее о том, как перенести файлы с компьютера на устройство Android…

Как найти документ который только что закрыл?

Как восстановить несохраненный документ Word

1. Выберите меню «Файл». Далее «Информация». …
2. В выпадающем списке выберите «Восстановить несохраненные документы».
3. Далее вы увидите окно «Открыть», которое отображает список несохраненных документов Word. …
4. Нажмите на «Сохранить как» и сохраните документ Word.

Куда сохраняются документы в Word?

Как и в предыдущих версиях программы, файлы Microsoft Word можно сохранять на компьютере. При желании документ можно сохранить в облачном хранилище OneDrive, а также экспортировать и открывать доступ к документам напрямую из Word. Служба OneDrive прежде называлась SkyDrive.

Как найти временные файлы Excel?

Открывается окно параметров Эксель. Переходим в подраздел «Сохранение». В правой части окна в группе настроек «Сохранение книг» нужно найти параметр «Каталог данных для автовосстановления». Именно тот адрес, который указан в этом поле, указывает на директорию расположения временных файлов.

Как открыть резервную копию Excel?

Восстановление поврежденной книги

1. Выберите Файл > Открыть.
2. Выберите расположение и папку, в которой находится поврежденная книга.
3. Выберите поврежденную книгу в диалоговом окне Открытие документа.
4. Щелкните стрелку рядом с кнопкой Открыть, а затем выберите команду Открыть и восстановить.

Как восстановить Несохраненный документ в Excel?

После настройки автосохранения файлы можно будет восстановить при запуске Microsoft Excel, перейдя во вкладку «Открыть», выбрав пункт «Последние» и «Восстановить несохраненные книги».20 мая 2019 г.

Список файлов в папке

Иногда бывает необходимо заполучить на лист Excel список файлов в заданной папке и ее подпапках. В моей практике такое встречалось неоднократно, например:

• перечислить в приложении к договору на проведение тренинга список файлов из раздаточных материалов для особо щепетильных юристов в некоторых компаниях
• создать список файлов для ТЗ проекта
• сравнить содержимое папок (оригинал и бэкап, например)

Для реализации подобной задачи можно использовать несколько способов.

Способ 1. Скелет из шкафа — функция ФАЙЛЫ

Этот способ использует древнюю функцию ФАЙЛЫ (FILES), оставшуюся в Microsoft Excel с далеких девяностых. Вы не найдете эту функцию в общем списке функций, но для совместимости, она всё ещё остаётся внутри движка Excel, и мы вполне можем её использовать.

Механизм таков:

1. В любую ячейку листа (например, в А1) введём путь к папке, список файлов из которой мы хотим получить.

Обратите внимание, что путь должен оканчиваться шаблоном со звездочками:

• *.* — любые файлы
• *.xlsx — книги Excel (только с расширением xlsx)
• *.xl* — любые файлы Excel
• *отчет* — файлы, содержащие слово отчет в названии

и т.д.

2. Создадим именованный диапазон с помощью вкладки Формулы — далее кнопка Диспетчер имен — Создать (Formulas — Names Manger — Create). В открывшемся окне введем любое имя без пробелов (например Мои_файлы) и в поле диапазона выражение:

=ФАЙЛЫ(Лист1!$A$1)

После нажатия на ОК будет создан именованный диапазон с именем Мои_файлы, где хранится список всех файлов из указанной в А1 папки. Останется их оттуда только извлечь.

3. Чтобы извлечь имена отдельных файлов из созданной переменной, используем функцию ИНДЕКС (INDEX), которая в Excel вытаскивает данные из массива по их номеру:

Если лениво делать отдельный столбец с нумерацией, то можно воспользоваться костылем в виде функции СТРОКИ (ROWS), которая будет подсчитывать количество заполненных строк с начала списка автоматически:

=ИНДЕКС(Мои_файлы; ЧСТРОК($B$3:B3))

Ну, и скрыть ошибки #ССЫЛКА! в конце списка (если вы протягиваете формулу с запасом) можно стандартной функцией ЕСЛИОШИБКА (IFERROR):

=ЕСЛИОШИБКА(ИНДЕКС(Мои_файлы; ЧСТРОК($B$3:B3)); «»)

Важное примечание: формально функция ФАЙЛЫ относится к макро-функциям, поэтому необходимо будет сохранить ваш файл в формате с поддержкой макросов (xlsm или xlsb).

Способ 2. Готовый макрос для ленивых

Если вы знакомы с макросами (не в смысле их программирования, а в смысле копипастинга готовых кодов на VBA), то вам, возможно, отлично зайдёт небольшой макрос, добавляющий в текущую книгу новый пустой лист и выводящий на него список всех файлов с их параметрами из заданной пользователем папки.

Для добавления макроса в вашу книгу нажмите сочетание клавиш Alt+F11, или кнопку Visual Basic на вкладке Разработчик (Developer), в открывшемся окне редактора Visual Basic вставьте новый модуль через меню Insert — Module и скопируйте туда текст этого макроса:

Sub FileList()
    Dim V As String
    Dim BrowseFolder As String
    
    'открываем диалоговое окно выбора папки
    With Application.FileDialog(msoFileDialogFolderPicker)
        .Title = "Выберите папку или диск"
        .Show
        On Error Resume Next
        Err.Clear
        V = .SelectedItems(1)
        If Err.Number <> 0 Then
            MsgBox "Вы ничего не выбрали!"
            Exit Sub
        End If
    End With
    BrowseFolder = CStr(V)
    
    'добавляем лист и выводим на него шапку таблицы
    ActiveWorkbook.Sheets.Add
    With Range("A1:E1")
        .Font.Bold = True
        .Font.Size = 12
    End With
    Range("A1").Value = "Имя файла"
    Range("B1").Value = "Путь"
    Range("C1").Value = "Размер"
    Range("D1").Value = "Дата создания"
    Range("E1").Value = "Дата изменения"
    
    'вызываем процедуру вывода списка файлов
    'измените True на False, если не нужно выводить файлы из вложенных папок
    ListFilesInFolder BrowseFolder, True
End Sub


Private Sub ListFilesInFolder(ByVal SourceFolderName As String, ByVal IncludeSubfolders As Boolean)

    Dim FSO As Object
    Dim SourceFolder As Object
    Dim SubFolder As Object
    Dim FileItem As Object
    Dim r As Long

    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set SourceFolder = FSO.getfolder(SourceFolderName)

    r = Range("A65536").End(xlUp).Row + 1   'находим первую пустую строку
    'выводим данные по файлу
    For Each FileItem In SourceFolder.Files
        Cells(r, 1).Formula = FileItem.Name
        Cells(r, 2).Formula = FileItem.Path
        Cells(r, 3).Formula = FileItem.Size
        Cells(r, 4).Formula = FileItem.DateCreated
        Cells(r, 5).Formula = FileItem.DateLastModified
        r = r + 1
        X = SourceFolder.Path
    Next FileItem
    
    'вызываем процедуру повторно для каждой вложенной папки
    If IncludeSubfolders Then
        For Each SubFolder In SourceFolder.SubFolders
            ListFilesInFolder SubFolder.Path, True
        Next SubFolder
    End If

    Columns("A:E").AutoFit

    Set FileItem = Nothing
    Set SourceFolder = Nothing
    Set FSO = Nothing

End Sub

Для запуска макроса нажмите сочетание клавиш Alt+F8,или кнопку Макросы (Macros) на вкладке Разработчик (Developer), выберите наш макрос FileList и нажмите кнопку Выполнить (Run). В диалоговом окне выберите любую папку или диск и — вуаля!

Если захотите, чтобы вместо пути к файлу в столбце B выводилась живая гиперссылка, то замените 52-ю строку

Cells(r, 2).Formula = FileItem.Path

на

Cells(r, 2).Formula = «=HYPERLINK(«»» & FileItem.Path & «»»)»

Способ 3. Мощь и красота — надстройка Power Query

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

Если у вас Excel 2016 или новее, то Power Query уже встроена в Excel по умолчанию, поэтому просто на вкладке Данные выберите команду Создать запрос / Получить данные — Из файла — Из папки (Create Query / Get Data — From file — From folder). Если у вас Excel 2010-2013, то Power Query нужно будет скачать с сайта Microsoft и установить как отдельную надстройку и она появится у вас в Excel в виде отдельной вкладки Power Query. На ней будет аналогичная кнопка Из файла — Из папки (From file — From folder).

В открывшемся окне нужно будет указать папку, содержимое которой мы хотим получить. После нажатия на ОК Power Query обшарит указанную папку и все вложенные подпапки и выдаст на экран окно с предварительным просмотром результатов:

Если внешний вид списка вас устраивает, то можно смело жать внизу кнопку Загрузить (Load), чтобы залить эти данные на новый лист. Если же хочется дополнительно обработать список (удалить лишние столбцы, отобрать только нужные файлы и т.п.), то нужно выбрать команду Изменить / Преобразовать данные (Edit / Transform Data).

Поверх окна Excel откроется окно редактора Power Query, где мы увидим список всех наших файлов в виде таблицы:

Дальше возможны несколько вариантов:

• Если нужны только файлы определенного типа, то их можно легко отобрать с помощью фильтра по столбцу Extension:

  

• Аналогичным образом фильтрами по столбцам Date accessed, Date modified или Date created можно отобрать файлы за нужный период (например, созданные только за последний месяц и т.п.):

  

• Если нужно получить данные не из всех папок, то фильтруем по столбцу Folder Path, чтобы оставить только те строки, где путь содержит/не содержит нужные имена папок:

  
• Там же можно выполнить сортировку файлов по любому столбцу, если требуется.

После того, как необходимые файлы отобраны, можно смело удалить ненужные столбцы, щелкнув по заголовку столбца правой кнопкой мыши и выбрав команду Удалить (Remove column). Это, кстати, уже никак не повлияет на фильтрацию или сортировку нашего списка:

Если в будущем планируется подсчитывать количество файлов в каждой папке (например, для контроля поступивших заявок или подсчета статистики по заявкам), то имеет смысл дополнительно сделать ещё пару действий:

• Щелкните правой кнопкой мыши по столбцу Folder Path и выберите команду Дублировать столбец (Duplicate Column).
• Выделите скопированный столбец и на вкладке Преобразование (Transform) выберите Разделить столбец — По разделителю (Split Column — By delimiter)

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

Получившиеся столбцы можно переименовать (Диск, Папка1, Папка2 и т.д.), просто щёлкнув дважды по заголовку каждого.

И, наконец, когда список готов, то его можно выгрузить на лист с помощью команды Главная — Закрыть и загрузить — Закрыть и загрузить в… (Home — Close & Load — Close & Load to…):

Дополнительным бонусом можно сделать еще один столбец с функцией ГИПЕРССЫЛКА (HYPERLINK), которая создаст красивые стрелочки-ссылки для моментального перехода к каждому файлу:

Мелочь, а приятно

И вдвойне приятно, что в будущем, при изменении содержимого исходной папки, достаточно будет просто щелкнуть мышью по нашей таблице и выбрать команду Обновить (Refresh) — и Power Query выполнит всю цепочку запрограммированных нами единожды действий уже автоматически, отобразив все изменения в составе папки.

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

• Что такое макрос, куда вставлять код макроса на Visual Basic
• Создание резервных копий ценных файлов
• Что такое Power Query и что можно делать с её помощью

Читайте также: