Как импортировать несколько имен файлов в ячейки Excel?

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

Импорт нескольких имен файлов в ячейки рабочего листа с помощью кода VBA

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

Импорт нескольких имен файлов в ячейки рабочего листа с помощью кода VBA

Следующий код VBA поможет вам импортировать имена файлов, расширения файлов и имя папки в ячейки рабочего листа. Пожалуйста, выполните следующие шаги:

1. Откройте новый рабочий лист, куда вы хотите импортировать имена файлов.

2. Удерживайте клавиши ALT + F11, чтобы открыть окно Microsoft Visual Basic for Applications.

3. Нажмите Вставить > Модуль и вставьте следующий код в окно Модуля.

Код VBA: Импорт нескольких имен файлов в ячейки рабочего листа

Sub GetFileList()
'updateby Extendoffice
    Dim xFSO As Object
    Dim xFolder As Object
    Dim xFile As Object
    Dim xFiDialog As FileDialog
    Dim xPath As String
    Dim i As Integer
    Set xFiDialog = Application.FileDialog(msoFileDialogFolderPicker)
    If xFiDialog.Show = -1 Then
        xPath = xFiDialog.SelectedItems(1)
    End If
    Set xFiDialog = Nothing
    If xPath = "" Then Exit Sub
    Set xFSO = CreateObject("Scripting.FileSystemObject")
    Set xFolder = xFSO.GetFolder(xPath)
    ActiveSheet.Cells(1, 1) = "Folder name"
    ActiveSheet.Cells(1, 2) = "File name"
    ActiveSheet.Cells(1, 3) = "File extension"
    i = 1
    For Each xFile In xFolder.Files
        i = i + 1
        ActiveSheet.Cells(i, 1) = xPath
        ActiveSheet.Cells(i, 2) = Left(xFile.Name, InStrRev(xFile.Name, ".") - 1)
        ActiveSheet.Cells(i, 3) = Mid(xFile.Name, InStrRev(xFile.Name, ".") + 1)
    Next
End Sub

4. Затем нажмите клавишу F5 для выполнения этого кода, и в появившемся окне Обзор выберите папку, из которой вы хотите импортировать имена файлов, см. скриншот:

5. Затем нажмите кнопку ОК, и вы получите следующий результат:

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

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

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

После установки Kutools для Excel выполните следующие действия:

1. Нажмите Kutools Plus > Импорт и Экспорт > Filename List, см. скриншот:

2. В диалоговом окне Filename List выполните следующие операции:

(1.) Нажмите кнопку для выбора папки с файлами, которые вы хотите импортировать;

(2.) Установите флажок Включить файлы в подкаталогах для импорта имен файлов из подпапок;

(3.) Укажите тип файлов, которые вы хотите импортировать, в разделе Тип файла;

(4.) Выберите единицу измерения размера файла, которую вы хотите отобразить, в разделе Единица измерения размера файла;

(5.) Если вы хотите создать гиперссылки для имен файлов и папок, установите флажок Создать гиперссылки.

3. После завершения настройки нажмите кнопку ОК, и имена файлов как из папки, так и из подпапок будут импортированы в новый рабочий лист, как показано на следующем скриншоте:

Советы: Если вы хотите импортировать только определенный тип имен файлов из конкретной папки, вы можете установить флажок Указать в диалоговом окне Filename List и ввести расширение файла. Тогда он будет импортировать только указанный тип имен файлов как из папки, так и из подпапок.

Скачайте и попробуйте бесплатно Kutools для Excel прямо сейчас!

Связанные статьи:

Как перечислить все файлы в папке и подпапках в рабочий лист?

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