Note: The other languages of the website are Google-translated. Back to English

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

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

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

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.) Затем щелкните Трещина В следующем окне запроса укажите папку для вывода отдельных файлов.

Диалоговое окно разделения книги надстроек Excel 2 надстройки Excel выберите расположение

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

отдельные файлы надстроек Excel

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


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

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

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

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

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
офисный дно
Сортировать комментарии по
Комментарии (9)
Оценок пока нет. Оцените первым!
Этот комментарий был сведен к минимуму модератором на сайте
Я использовал следующий код, но пробел не разделял. Повернулся Tab:=True, Space:=True, но это не сработало. Мой формат файла Txt: ALUMINI16MAYFUT 09-05-2016 10:00:00 106.0000 106.0000 105.2000 105.3500 104 Есть решение?
Этот комментарий был сведен к минимуму модератором на сайте
Код для «Импорт нескольких текстовых файлов на отдельные листы с кодом VBA» работает для меня, НО обрезает данные каждой ячейки по 255 символов. Я думаю, что по умолчанию используются данные ячейки GeneralFormat, но мне нужно, чтобы это был TextFormat. К сожалению, я не могу понять, как настроить код, чтобы исправить это.
Этот комментарий был сведен к минимуму модератором на сайте
Можно ли последовательно открывать несколько файлов txt на одном листе?
Этот комментарий был сведен к минимуму модератором на сайте
Спасибо за этот очень полезный код. У меня есть вопрос. Что я могу изменить, чтобы преобразовать тип данных из общего в текстовый, поскольку в настоящее время он импортирует данные только в общий формат.
Этот комментарий был сведен к минимуму модератором на сайте
Как изменить этот макрос для отображения текстового файла, сохраненного как UTF-8 или, другими словами, с использованием платформы = 65001, спасибо
Этот комментарий был сведен к минимуму модератором на сайте
Спасибо за этот код, он отлично работает.. Я хочу объединить все выбранные листы в один лист, возможно ли это..
Этот комментарий был сведен к минимуму модератором на сайте
спасибо, сработало несколько текстовых файлов для разных кодов листов!
Этот комментарий был сведен к минимуму модератором на сайте
Этот код помог мне решить мою проблему, спасибо за код.
Этот комментарий был сведен к минимуму модератором на сайте
Что мне нужно изменить в коде, чтобы он не открывал их в новой книге?
Здесь еще нет комментариев
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0   Характеристики
Предлагаемые места

Подписывайтесь на Нас

Copyright © 2009 - www.extendoffice.ком. | Все права защищены. Питаться от ExtendOffice, | Карта сайта
Microsoft и логотип Office являются товарными знаками или зарегистрированными товарными знаками Microsoft Corporation в США и / или других странах.
Защищено Sectigo SSL