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