Как да импортирам множество текстови файлове в няколко листа?
Да предположим, че има няколко текстови файла в папка на вашия компютър, сега искате да импортирате тези текстови файлове в работна книга на Excel и да поставите всеки текстов файл в отделни работни листове. Копирането и поставянето на всеки текстов файл в работния лист един по един ще загуби много време, тук мога да говоря за някои трикове за решаване на този проблем.
Импортирайте множество текстови файлове в отделни работни листове с VBA код
Разделете работна книга на множество отделни текстови / pdf / csv / xlsx файлове с Kutools за Excel
Импортирайте множество текстови файлове в отделни работни листове с VBA код
Следният VBA код може да ви помогне да импортирате всеки текстов файл наведнъж в отделни листове в нова работна книга, моля, направете следното:
1. Задръжте натиснат ALT + F11 клавиши в Excel, за да отворите Microsoft Visual Basic за приложения прозорец.
2. Щракнете Поставете > Модулии поставете следния код в Модули Window.
VBA код: Импортирайте множество текстови файлове в отделни работни листове:
Sub CombineTextFiles()
'updateby Extendoffice
Dim xFilesToOpen As Variant
Dim I As Integer
Dim xWb As Workbook
Dim xTempWb As Workbook
Dim xDelimiter As String
Dim xScreen As Boolean
On Error GoTo ErrHandler
xScreen = Application.ScreenUpdating
Application.ScreenUpdating = False
xDelimiter = "|"
xFilesToOpen = Application.GetOpenFilename("Text Files (*.txt), *.txt", , "Kutools for Excel", , True)
If TypeName(xFilesToOpen) = "Boolean" Then
MsgBox "No files were selected", , "Kutools for Excel"
GoTo ExitHandler
End If
I = 1
Set xTempWb = Workbooks.Open(xFilesToOpen(I))
xTempWb.Sheets(1).Copy
Set xWb = Application.ActiveWorkbook
xTempWb.Close False
xWb.Worksheets(I).Columns("A:A").TextToColumns _
Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, _
Tab:=False, Semicolon:=False, _
Comma:=False, Space:=False, _
Other:=True, OtherChar:="|"
Do While I < UBound(xFilesToOpen)
I = I + 1
Set xTempWb = Workbooks.Open(xFilesToOpen(I))
With xWb
xTempWb.Sheets(1).Move after:=.Sheets(.Sheets.Count)
.Worksheets(I).Columns("A:A").TextToColumns _
Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, _
Tab:=False, Semicolon:=False, _
Comma:=False, Space:=False, _
Other:=True, OtherChar:=xDelimiter
End With
Loop
ExitHandler:
Application.ScreenUpdating = xScreen
Set xWb = Nothing
Set xTempWb = Nothing
Exit Sub
ErrHandler:
MsgBox Err.Description, , "Kutools for Excel"
Resume ExitHandler
End Sub
3. След като поставите горния код, натиснете F5 за да изпълните този код и в изскачащия прозорец, моля, посочете папката, която съдържа текстовите файлове, отидете в папката, за да изберете текстовите файлове, които искате да импортирате в работните листове, вижте екранната снимка:
4, След това кликнете отворено всички избрани текстови файлове са импортирани в нова работна книга и всеки файл се намира в един работен лист поотделно.
5. Най-накрая можете да запазите новата работна книга, както ви е необходима.
Разделете работна книга на множество отделни текстови / pdf / csv / xlsx файлове с Kutools за Excel
Понякога може да се наложи да извършите някои противоположни операции на горната задача, тоест трябва да разделите работна книга на отделни текстови файлове. Kutools за ExcelЕ Разделена работна книга помощната програма може да ви помогне да решите тази задача бързо и лесно.
| Kutools за Excel : с повече от 300 удобни добавки за Excel, безплатни за изпробване без ограничение за 30 дни. |
След инсталиране Kutools за Excel, моля, направете следното:( Безплатно изтегляне Kutools за Excel сега! )
1. Активирайте работната книга, която искате да разделите на множество текстови файлове.
2. Щракнете Enterprise > Workbook > Разделена работна книга, вижте екранна снимка:
3. В Разделена работна книга диалогов прозорец:
(1.) Поставете отметка на работните листове, които искате да разделите.
(2.) Проверка Посочете формат за запазване, след това изберете файловия формат, който искате да запазите, например можете да изберете TXT, CSV, PDF, XLSX or XLS файлов формат, както ви е необходим.
(3.) След това щракнете разцепен бутон, в следното поле за подкана посочете папка за извеждане на отделните файлове.
 |
 |
 |
4, След това кликнете OK и избраните от вас работни листове ще бъдат разделени и записани в желаната от вас папка с необходимия ви формат.
Безплатно изтегляне Kutools за Excel сега!
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!
