Как импортировать несколько текстовых файлов на несколько листов?

Предположим, что в папке вашего компьютера есть несколько текстовых файлов, теперь вы хотите импортировать эти текстовые файлы в книгу 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, пожалуйста, сделайте следующее :( Скачать бесплатно Kutools for Excel прямо сейчас! )

1. Активируйте книгу, которую вы хотите разделить на несколько текстовых файлов.

2. Нажмите Предприятие > Workbook > Разделить книгу, см. снимок экрана:

3. В Разделить книгу диалоговое окно:

(1.) Отметьте листы, которые вы хотите разделить.

(2.) Проверить Укажите формат сохранения, затем выберите формат файла, который хотите сохранить, например, вы можете выбрать текст, CSV, PDF, XLSX or XLS формат файла, как вам нужно.

(3.) Затем щелкните Трещина В следующем окне запроса укажите папку для вывода отдельных файлов.

4. Затем нажмите OK Кнопка, и выбранные вами листы будут разделены и сохранены в нужной папке в нужном вам формате.

Скачать бесплатно Kutools for Excel прямо сейчас!

---

Лучшие инструменты для работы в офисе

Kutools for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%

• Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма ...
• Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
• Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы... Предотвращение дублирования ячеек; Сравнить диапазоны...
• Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
• Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
• Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии...
• Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом ...
• Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
• Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.

Больше информации... Скачать бесплатно... Покупка ... 

---

Вкладка Office: интерфейс с вкладками в Office и упрощение работы

• Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
• Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
• Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!

Больше информации... Скачать бесплатно... Покупка ...