Как да импортирате няколко текстови файла от папка в един работен лист?
Например, тук имате папка с множество текстови файлове, това, което искате да направите, е да импортирате тези текстови файлове в един работен лист, както е показано на екранната снимка по-долу. Вместо да копирате текстовите файлове един по един, има ли някакви трикове за бързо импортиране на текстовите файлове от една папка в един лист?
Импортирайте множество текстови файлове от една папка в един лист с VBA
Импортирайте текстов файл в активната клетка с Kutools за 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 за Excel
Ако искате да импортирате един текстов файл в конкретна клетка или диапазон, можете да кандидатствате Kutools за ExcelЕ Вмъкване на файл в курсора полезност.
Kutools за Excel, с повече от 300 удобни функции, прави работата ви по-лесна. | ||
След безплатно инсталиране Kutools за Excel, моля, направете следното:
1. Изберете клетка, в която искате да импортирате текстовия файл, и щракнете Kutools плюс > Внос износ > Вмъкване на файл в курсора. Вижте екранна снимка:
2. След това се появява диалогов прозорец, щракнете паса за показване на Изберете файл за вмъкване в диалоговия прозорец за позиция на курсора на клетката, след това изберете Текстови файлове от падащия списък и след това изберете текстовия файл, който искате да импортирате. Вижте екранна снимка:
3. кликване отворено > Okи посоченият текстов файл е вмъкнат в позицията на курсора, вижте екранната снимка:
Импортиране/вмъкване на текстов файл при курсора
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!