Как импортировать несколько текстовых файлов на разные листы?
Предположим, в папке на вашем компьютере находится несколько текстовых файлов, и вы хотите импортировать их в рабочую книгу Excel, разместив каждый файл на отдельном листе. Копировать и вставлять каждый текстовый файл по отдельности — занятие утомительное и долгое. Ниже я расскажу о нескольких эффективных приёмах, которые помогут вам решить эту задачу быстро и без лишних усилий.
Импорт нескольких Текстовый файл на отдельные рабочие листы с помощью кода VBA
Импорт нескольких Текстовый файл на отдельные рабочие листы с помощью кода VBA
Следующий код VBA позволит вам мгновенно импортировать каждый текстовый файл на отдельные листы в рамках одной новой рабочей книги. Выполните следующие действия:
1. Удерживая нажатыми клавиши ALT + F11 в Excel, вы откроете окно Microsoft Visual Basic for Applications.
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. Наконец, вы можете сохранить новую рабочую книгу именно так, как вам нужно.
Разделение книги на несколько отдельных файлов формата TXT / PDF / CSV / XLSX с помощью Kutools для Excel
Иногда может понадобиться выполнить операцию, обратную описанной выше, — разделить одну книгу на отдельные текстовые файлы. Функция Разделить книгу из Kutools для Excel позволит быстро и легко решить эту задачу.
После установки Kutools для Excelвыполните следующие действия:
1. Активируйте книгу, которую нужно разделить на несколько текстовых файлов.
2. Нажмите Enterprise > Книга > Разделить книгу (см. скриншот).
3. В диалоговом окне Разделить книгу:
(1.) Отметьте листы, которые необходимо разделить.
(2.) Установите флажок Указать формат сохранения, затем выберите нужный тип файла — например, txt, csv, pdf, xlsx или xls — в зависимости от ваших требований.
(3.) Затем нажмите кнопку Разделить, а в появившемся окне укажите папку для сохранения отдельных файлов.
 |  |  |
4. После этого нажмите кнопку ОК, и выбранные листы будут разделены и сохранены в указанной папке в требуемом формате.
Kutools для Excel — включает более 300 незаменимых инструментов для Excel. Работайте в Excel быстрее, проще и эффективнее.Скачать сейчас!
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек