Как импортировать несколько текстовых файлов из папки на один лист?
Предположим, у вас есть сценарий, в котором требуется объединить данные для отчётности или анализа, и вы получаете информацию в виде нескольких текстовых файлов, сохранённых в одной папке. Ручное копирование и вставка содержимого каждого текстового файла на один лист может занять очень много времени и привести к ошибкам — особенно если файлов много или они регулярно обновляются. К счастью, существуют эффективные способы автоматического импорта и объединения этих текстовых файлов на одном листе Excel. В этой статье представлены практические методы выполнения этой задачи, обеспечивающие точность и значительную экономию ручного труда. Эти методы подходят для множества реальных ситуаций: например, для объединения результатов опросов, импорта журнальных данных или сбора фрагментированных текстовых выгрузок из различных источников в единый набор данных.
Ниже представлены несколько способов быстрого импорта нескольких текстовых файлов из папки в Excel. Каждый метод сопровождается пошаговыми инструкциями, полезными советами и примечаниями, которые помогут избежать распространённых ошибок.
Импорт нескольких Текстовый файл из одной папки на один лист с помощью VBA
Импорт Текстовый файл в активную ячейку с помощью Kutools для Excel 
Импорт нескольких Текстовый файл из одной папки на один лист с помощью VBA
Один из самых эффективных способов импортировать все текстовые файлы из определённой папки в Excel — использовать макрос VBA. Это решение идеально подходит, если вы регулярно выполняете такую операцию или стремитесь автоматизировать повторяющиеся задачи без установки дополнительных надстроек. Оно позволяет быстро обрабатывать большое количество файлов и сводит ручное вмешательство к минимуму. Однако для работы с VBA необходимо включить макросы — что может быть ограничено в некоторых средах — а также иметь базовое представление о редакторе Visual Basic for Applications.
Перед началом рекомендуем создать резервную копию книги — операции с макросами отменить будет непросто. Убедитесь, что ваши текстовые файлы имеют единый формат: нестандартная структура может потребовать ручной очистки после импорта.
1. Откройте книгу, в которую нужно импортировать текстовый файл, и нажмите Alt + F11, чтобы открыть окно Microsoft Visual Basic for Applications.
2. В редакторе VBA выберите Вставка > Модуль, затем скопируйте и вставьте следующий код VBA в окно модуля:
VBA: Импорт нескольких Текстовый файл из одной папки на один лист
Sub Test()
'UpdatebyExtendoffice
Dim xWb As Workbook
Dim xToBook As Workbook
Dim xStrPath As String
Dim xFileDialog As FileDialog
Dim xFile As String
Dim xFiles As New Collection
Dim I As Long
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
If Right(xStrPath, 1) <> "\" Then xStrPath = xStrPath & "\"
xFile = Dir(xStrPath & "*.txt")
If xFile = "" Then
MsgBox "No files found", vbInformation, "Kutools for Excel"
Exit Sub
End If
Do While xFile <> ""
xFiles.Add xFile, xFile
xFile = Dir()
Loop
Set xToBook = ThisWorkbook
If xFiles.Count > 0 Then
For I = 1 To xFiles.Count
Set xWb = Workbooks.Open(xStrPath & xFiles.Item(I))
xWb.Worksheets(1).Copy after:=xToBook.Sheets(xToBook.Sheets.Count)
On Error Resume Next
ActiveSheet.Name = xWb.Name
On Error GoTo 0
xWb.Close False
Next
End If
End Sub3. Нажмите F5, когда курсор находится внутри кода, чтобы запустить его. После этого появится диалоговое окно с предложением выбрать папку, содержащую нужный вам текстовый файл. См. снимок экрана:
4. Нажмите ОК. Макрос импортирует каждый текстовый файл как отдельный лист в вашу текущую книгу. Обратите внимание: если файлы объёмные или их много, процесс может занять некоторое время. Проверьте результат:
Совет: если ваши текстовые файлы содержат заголовки или определённые разделители, возможно, потребуется адаптировать код VBA под структуру ваших данных. В случае возникновения ошибок убедитесь, что путь к файлу и тип файла указаны верно, а также что ни один из текстовых файлов не открыт в другой программе на вашем компьютере. При наличии файлов с одинаковыми именами возможны конфликты при присвоении имён листам.
Импорт Текстовый файл в активную ячейку с помощью Kutools для Excel
Если вам нужно вставить содержимое всего одного текстового файла в определённое место на листе, Kutools для Excel предлагает интуитивно понятное решение через свою утилиту Вставить файл в текущую позицию. Это особенно полезно при объединении фрагментов выбранных данных или импорте справочных заметок прямо в заданные ячейки или диапазоны. В отличие от решений на основе VBA, Kutools не требует написания кода и предоставляет удобный интерфейс для импорта текстового файла в любую целевую ячейку.
После бесплатной установкиKutools для Excel выполните следующие действия:
1. Щелкните, чтобы выбрать ячейку, в которую нужно импортировать содержимое текстового файла, затем перейдите в меню KUTOOLS PLUS > Импорт/Экспорт > Вставить файл в текущую позицию. См. снимок экрана:
2. Появится диалоговое окно. Нажмите Обзор, чтобы открыть диалог выбора файла. В раскрывающемся списке «Тип файла» выберите Текстовый файл и найдите нужный вам текстовый файл. См. снимок экрана:
3. Нажмите Открыть, а затем ОК. Содержимое выбранного вами текстового файла будет вставлено в выбранную ячейку. См. снимок экрана:
Примечание: текстовое содержимое импортируется в выбранную ячейку с максимально возможным сохранением исходного форматирования. Для наилучшего результата убедитесь, что целевая ячейка достаточно велика для корректного отображения или разворачивания импортированных данных. Чтобы импортировать несколько файлов одновременно, используйте эту функцию многократно или объедините её с пакетными инструментами Kutools.
Итог: для простого или разового импорта отдельных файлов Kutools предоставляет удобные инструменты прямо на листе, тогда как VBA идеально подходит пользователям, которым нужна расширенная настройка или пакетная обработка без использования надстроек.
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек