Як імпортувати кілька імен файлів у комірки в Excel?

Припустимо, у вас є папка з сотнями файлів, і тепер ви хочете імпортувати ці імена файлів у комірки робочого аркуша. Копіювання та вставка одного за одним витратить багато часу, у цій статті я розповім про декілька швидких прийомів, які допоможуть вам імпортувати кілька імен файлів з папки на робочий аркуш.

Імпортуйте кілька імен файлів у комірки робочого аркуша з кодом VBA

Імпортуйте кілька імен файлів у комірки робочого аркуша за допомогою Kutools для Excel

Імпортуйте кілька імен файлів у комірки робочого аркуша з кодом VBA

Наступний код VBA може допомогти вам імпортувати імена файлів, розширення файлів та ім’я папки в комірки робочого аркуша. Будь ласка, виконайте такі дії:

1. Запустіть новий аркуш, до якого потрібно імпортувати імена файлів.

2. Утримуйте клавішу ALT + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.

3. Клацання Insert > Модуліта вставте наступний код у Модулі Вікно

Код 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, будь ласка, виконайте наступне:

1. Клацання Kutools Plus> Імпорт-експорт > Список імен файлів, див. скріншот:

2, в Список імен файлів у діалоговому вікні виконайте такі операції:

(1.) Клацніть кнопка для вибору папки з файлами, які потрібно імпортувати;

(2.) Перевірте Включити файли в підкаталоги імпортувати імена файлів вкладених папок;

(3.) Укажіть тип файлів, які потрібно імпортувати, у розділі Тип файлів розділ;

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

(5.) Якщо ви хочете гіперпосилати імена файлів та папок, перевірте Створюйте гіперпосилання варіант.

3. Закінчивши налаштування, натисніть OK , а імена файлів у папці та підпапках імпортуються на новий аркуш, як показано на наступному знімку екрана:

Tips : Якщо ви просто хочете імпортувати імена файлів одного вказаного типу з певної папки, ви можете перевірити Вказувати опція в Список імен файлів діалогове вікно та введіть у нього розширення файлу, тоді воно імпортуватиме лише вказані імена файлів типу як з папки, так і з папок.

Натисніть, щоб дізнатися більше про цю функцію списку імен файлів…

Завантажте та безкоштовну пробну версію Kutools для Excel зараз!

Демонстрація: Імпортуйте кілька імен файлів у комірки робочого аркуша за допомогою Kutools для Excel

Статті по темі:

Як перерахувати всі файли в папці та підпапках на робочий аркуш?

Як перерахувати всі імена файлів у папці та створити для них гіперпосилання в Excel?

---

Найкращі інструменти для підвищення продуктивності офісу

Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%

• Повторне використання: Швидко вставте складні формули, діаграми і все, що ви використовували раніше; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
• Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
• Об’єднати клітинки / рядки / стовпці без втрати даних; Вміст розділених комірок; Об'єднати повторювані рядки / стовпці... Запобігання дублюючим клітинам; Порівняйте діапазони...
• Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
• Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
• Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
• Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
• Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
• Понад 300 потужних функцій. Підтримує Office / Excel 2007-2021 і 365. Підтримує всі мови. Легке розгортання на вашому підприємстві чи в організації. 30-денна безкоштовна пробна версія повних функцій. 60-денна гарантія повернення грошей.

Детальніше ... Завантажити безкоштовно... Придбати ... 

---

Вкладка Office забезпечує інтерфейс з вкладками для Office і значно спрощує вашу роботу

• Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
• Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
• Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!

Детальніше ... Завантажити безкоштовно... Придбати ...