Як імпортувати кілька текстових файлів з папки на один аркуш?
Наприклад, тут у вас є папка з кількома текстовими файлами, і ви хочете імпортувати ці текстові файли в один робочий аркуш, як показано нижче. Замість того, щоб копіювати текстові файли по одному, чи існують хитрощі для швидкого імпорту текстових файлів з однієї папки на один аркуш?
Імпортуйте кілька текстових файлів з однієї папки на один аркуш за допомогою VBA
Імпортуйте текстовий файл до активної клітинки за допомогою Kutools для Excel
Імпортуйте кілька текстових файлів з однієї папки на один аркуш за допомогою VBA
Ось код VBA може допомогти вам імпортувати всі текстові файли з однієї конкретної папки на новий аркуш.
1. Увімкніть книгу, до якої потрібно імпортувати текстові файли, та натисніть Alt + F11 клавіші для ввімкнення Microsoft Visual Basic для додатків вікна.
2. клацання Insert > Модулі, скопіюйте та вставте нижче код 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 для Excel
Якщо ви хочете імпортувати один текстовий файл до певної комірки або діапазону, ви можете подати заявку Kutools для ExcelАвтора Вставити файл у курсор утиліта
Kutools для Excel, з більш ніж 300 зручні функції, полегшує вам роботу. | ||
після безкоштовна установка Kutools для Excel, виконайте наведені нижче дії.
1. Виділіть комірку, до якої потрібно імпортувати текстовий файл, і натисніть Kutools Plus > Імпорт-експорт > Вставити файл у курсор. Дивіться знімок екрана:
2. Потім з’явиться діалогове вікно, натисніть перегорнути щоб відобразити Виберіть файл щоб вставити в діалогове вікно положення курсора комірки, виберіть наступний Текстові файли зі спадного списку, а потім виберіть текстовий файл, який потрібно імпортувати. Дивіться знімок екрана:
3. клацання відкритий > Ok, а вказаний текстовий файл було вставлено в позицію курсора, див. знімок екрана:
Імпорт / вставка текстового файлу біля курсору
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!