Как импортировать несколько текстовых файлов на несколько листов?
Предположим, что в папке вашего компьютера есть несколько текстовых файлов, теперь вы хотите импортировать эти текстовые файлы в книгу Excel и поместить каждый текстовый файл на отдельные листы. Копирование и вставка каждого текстового файла в рабочий лист по одному будет тратить много времени, здесь я могу рассказать о некоторых трюках, которые помогут вам решить эту проблему.
Импортируйте несколько текстовых файлов на отдельные листы с кодом VBA
Разделите книгу на несколько отдельных файлов text / pdf / csv / xlsx с помощью Kutools for Excel
Импортируйте несколько текстовых файлов на отдельные листы с кодом VBA
Следующий код VBA может помочь вам сразу импортировать каждый текстовый файл на отдельные листы в новой книге. Сделайте следующее:
1. Удерживайте ALT + F11 ключи в Excel, чтобы открыть Microsoft Visual Basic для приложений окно.
2. Нажмите Вставить > Модулии вставьте следующий код в Модули Окно.
Код 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. Наконец, вы можете сохранить новую книгу по мере необходимости.
Разделите книгу на несколько отдельных файлов text / pdf / csv / xlsx с помощью Kutools for Excel
Иногда вам может потребоваться выполнить некоторые операции, противоположные вышеуказанной задаче, то есть вам нужно разделить книгу на отдельные текстовые файлы. Kutools for ExcelАвтора Разделить книгу Утилита поможет вам быстро и легко решить эту задачу.
Kutools for Excel : с более чем 300 удобными надстройками Excel, бесплатно и без ограничений в течение 30 дней. |
После установки Kutools for Excel, пожалуйста, сделайте следующее :( Скачать бесплатно Kutools for Excel прямо сейчас! )
1. Активируйте книгу, которую вы хотите разделить на несколько текстовых файлов.
2. Нажмите Предприятие > Workbook > Разделить книгу, см. снимок экрана:
3. В Разделить книгу диалоговое окно:
(1.) Отметьте листы, которые вы хотите разделить.
(2.) Проверить Укажите формат сохранения, затем выберите формат файла, который хотите сохранить, например, вы можете выбрать текст, CSV, PDF, XLSX or XLS формат файла, как вам нужно.
(3.) Затем щелкните Split В следующем окне запроса укажите папку для вывода отдельных файлов.
4. Затем нажмите OK Кнопка, и выбранные вами листы будут разделены и сохранены в нужной папке в нужном вам формате.
Скачать бесплатно Kutools for Excel прямо сейчас!
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!