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