Как импортировать несколько имен файлов в ячейки в Excel?
Предположим, у вас есть папка с сотнями файлов, и теперь вы хотите импортировать эти имена файлов в ячейки рабочего листа. Копирование и вставка одного за другим займет много времени, в этой статье я расскажу о некоторых быстрых приемах, которые помогут вам импортировать несколько имен файлов из папки в рабочий лист.
Импортируйте несколько имен файлов в ячейки листа с кодом VBA
Импортируйте несколько имен файлов в ячейки рабочего листа с помощью Kutools for Excel
Импортируйте несколько имен файлов в ячейки листа с кодом VBA
Следующий код VBA может помочь вам импортировать имена файлов, расширения файлов и имя папки в ячейки рабочего листа, выполните следующие действия:
1. Запустите новый рабочий лист, в который вы хотите импортировать имена файлов.
2. Удерживайте ALT + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.
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, Затем нажмите OK кнопку, и вы получите следующий результат:
Внимание: Если в вашей конкретной папке есть подпапки, имена файлов в подпапках не будут импортированы.
Импортируйте несколько имен файлов в ячейки рабочего листа с помощью Kutools for Excel
Если вам нужно импортировать имена файлов как в папку, так и во вложенные папки, не беспокойтесь, Kutools for ExcelАвтора Список имен файлов утилиту, вы можете легко импортировать все имена файлов в определенной папке, включая подпапки.
Kutools for Excel : с более чем 300 удобными надстройками Excel, бесплатно и без ограничений в течение 30 дней. |
После установки Kutools for Excel, пожалуйста, сделайте следующее:
1. Нажмите Кутулс Плюс> Импорт Экспорт > Список имен файлов, см. снимок экрана:
2. В Список имен файлов диалоговом окне выполните следующие операции:
(1.) Щелкните кнопка для выбора папки с файлами, которые вы хотите импортировать;
(2.) Проверить Включить файлы в подкаталоги импортировать имена файлов вложенных папок;
(3.) Укажите тип файлов, которые вы хотите импортировать, в Тип файлов раздел;
(4.) Выберите единицу размера файла для отображения из Единица размера файла раздел;
(5.) Если вы хотите добавить гиперссылки на имена файлов и папки, установите флажок Создать гиперссылки опцию.
3. После завершения настроек нажмите OK кнопку, и имена файлов в папке и подпапках импортируются в новый рабочий лист, как показано на следующем снимке экрана:
Советы: Если вы просто хотите импортировать файлы одного указанного типа из определенной папки, вы можете проверить Указывать вариант в Список имен файлов диалоговое окно и введите в него расширение файла, тогда он будет импортировать только имена файлов указанного типа как из папки, так и из подпапок.
Нажмите, чтобы узнать больше об этой функции списка имен файлов…
Загрузите бесплатную пробную версию Kutools for Excel прямо сейчас!
Демо: импортируйте несколько имен файлов в ячейки рабочего листа с помощью Kutools for Excel
Статьи по теме:
Как перечислить все файлы в папке и подпапках на листе?
Как перечислить все имена файлов в папке и создать для них гиперссылки в Excel?
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!