Как быстро открыть все файлы Excel из папки?
В этой статье я представляю макрос, который открывает все книги из указанной папки.
Открытие всех книг в папке с помощью VBA
Список всех имён файлов из одной конкретной папки с помощью Kutools для Excel 
Открытие всех книг в папке с помощью VBA
1. Нажмите Alt + F11, чтобы открыть окно Microsoft Visual Basic for Applications.
2. Щёлкните Вставка > Модуль и вставьте приведённый ниже код в скрипт.
VBA: Открытие всех Файлы Excel в папке
Sub OpenFiles()
'UpdateByExtendoffice20160623
Dim xStrPath As String
Dim xFileDialog As FileDialog
Dim xFile As String
On Error Resume Next
Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
xFileDialog.AllowMultiSelect = False
xFileDialog.Title = "Select a folder [Kutools for Excel]"
If xFileDialog.Show = -1 Then
xStrPath = xFileDialog.SelectedItems(1)
End If
If xStrPath = "" Then Exit Sub
xFile = Dir(xStrPath & "\*.xlsx")
Do While xFile <> ""
Workbooks.Open xStrPath & "\" & xFile
xFile = Dir
Loop
End Sub
3. Нажмите клавишу F5, после чего откроется диалоговое окно для выбора папки, из которой вы хотите открыть все книги. См. снимок экрана:
4. Нажмите кнопку ОК, и все книги из указанной папки откроются.
Список всех имён файлов из одной конкретной папки с помощью Kutools для Excel
Помимо открытия файлов из папки, пробовали ли вы когда-нибудь составить список всех имён файлов в определённой папке? С помощью функции Kutools для Excel — Список имён файлов — вы можете быстро получить список всех файлов или только файлов определённого типа в папке.
1. Щёлкните KUTOOLS PLUS > Импорт/экспорт > Список имен файлов. См. снимок экрана:
2. В диалоговом окне Список имен файлов укажите папку, из которой нужно получить список файлов, выберите тип файлов в поле «Тип файла», которые требуется перечислить, а также при необходимости задайте единицу измерения для «Размер файла». При желании вы можете добавить префикс «Создать гиперссылку» к именам файлов, которые будут отображены в списке. См. снимок экрана:
3. Нажмите кнопку ОК — и все файлы из указанной папки появятся на новом листе текущей книги. См. снимок экрана:
Демонстрация: получение списка всех имён файлов из папки с помощью Kutools для Excel
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек