Как быстро открыть все файлы 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. Нажмите OK, и все книги в указанной папке будут открыты.

Перечислите все имена файлов одной конкретной папки с помощью Kutools для Excel

Помимо открытия файлов в папке, пробовали ли вы когда-нибудь перечислить все имена файлов одной конкретной папки? С помощью утилиты Filename List из Kutools для Excel вы можете быстро перечислить все типы или один конкретный тип файлов в одной папке.

1. Щелкните Kutools Plus > Импорт и экспорт > Список имен файлов. См. скриншот:

2. В Списке имен файлов диалоговом окне выберите папку, из которой вы хотите перечислить файлы, укажите тип файлов, которые вы хотите перечислить, а затем укажите единицу измерения размера файла по мере необходимости. Если хотите, вы можете создать гиперссылки на имена файлов, которые будут перечислены. См. скриншот:

3. Нажмите Okи все файлы в указанной папке будут перечислены на новом листе активной книги. См. скриншот:

Демонстрация: Перечисление всех имен файлов папки с помощью Kutools для Excel