Совет. Другие языки - Google-Translated. Вы можете посетить English версия этой ссылки.
Войти
x
or
x
x
Регистрация
x

or

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

Предположим, что есть несколько текстовых файлов в папке вашего компьютера, теперь вы хотите импортировать эти текстовые файлы в книгу Excel и поместить каждый текстовый файл в отдельные рабочие листы. Копирование и вставка каждого текстового файла на рабочий лист один за другим будет тратить много времени, здесь я могу поговорить о некоторых трюках для вас, чтобы решить эту проблему.

Импортировать несколько текстовых файлов для разделения листов с кодом VBA

Разделите книгу на несколько отдельных файлов text / pdf / csv / xlsx с помощью Kutools for Excel


Объединение / импорт нескольких листов в один рабочий лист или книгу:
В вашей повседневной работе объединение нескольких рабочих листов или рабочих книг в один рабочий лист или книгу может быть огромной и головной работой. Но если у вас есть Kutools for Excel, с его мощной утилитой - Сочетать, вы можете быстро объединить несколько рабочих листов, книг в один рабочий лист или книгу.
doc объединяет несколько листов

arrow синий правый пузырь Импортировать несколько текстовых файлов для разделения листов с кодом VBA


Следующий код VBA может помочь вам импортировать каждый текстовый файл на отдельные листы в новой книге одновременно, пожалуйста, сделайте следующее:

1, Удерживайте ALT + F11 ключей в Excel, чтобы открыть Microsoft Visual Basic для приложений окна.

2. Щелчок Вставить > модуль, и вставьте следующий код в модуль Окно.

Код VBA: импортировать несколько текстовых файлов для разделения рабочих листов:

Sub CombineTextFiles()
'updateby Extendoffice 20151015
    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, Наконец, вы можете сохранить новую книгу по своему усмотрению.


arrow синий правый пузырь Разделите книгу на несколько отдельных файлов text / pdf / csv / xlsx с помощью Kutools for Excel

Иногда вам может потребоваться выполнить некоторые противоположные операции над задачей, то есть вам нужно разделить книгу на отдельные текстовые файлы. Kutools for ExcelАвтора Сплит-книга утилита поможет вам быстро и легко решить эту задачу.

Kutools for Excel : с более чем 300 удобными надстройками Excel, бесплатно попробовать без ограничений в 60-дни.

После установки Kutools for Excel, сделайте следующее :( Скачать Kutools для Excel сейчас! )

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

2. Щелчок Предприятие > Workbook > Сплит-книга, см. снимок экрана:

Превосходная надстройка

3. В Сплит-книга диалоговое окно:

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

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

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

диалоговое окно с диалоговыми окнами Excel  2 excel add-ins выбрать местоположение

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

специальные файлы excel add-ins

Скачать Kutools для Excel сейчас!


  • Супер Формула Бар (легко редактировать несколько строк текста и формул); Макет чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы и хранение данных; Содержание сплит-клеток; Объедините дублирующиеся строки и сумму / среднее... предотвратить повторяющиеся клетки; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выберите пустые строки (все ячейки пусты); Супер найти и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения формулы ссылки; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Любимые и быстро вставляемые формулы, Диапазоны, графики и рисунки; Шифрование ячеек с паролем; Создать список рассылки и отправлять электронные письма ...
  • Извлечение текстаДобавить текст, Удалить по позиции, Удалить пространство; Создание и печать промежуточных итогов подкачки; Преобразование содержимого ячеек и комментариев...
  • Суперфильтр (сохранить и применить схемы фильтров к другим листам); Расширенный поиск по месяцам / неделям / дням, частоте и более; Специальный фильтр жирным шрифтом, курсивом ...
  • Объединить рабочие тетради и рабочие листы; Объединение таблиц на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Работает с Office 2007-2019 и 365 и поддерживает все языки. Это легко развернуть в вашей компании. Полнофункциональная 60-дневная бесплатная пробная версия.
вкладка kte 201905
  • Включить редактирование и чтение с вкладками в Word, Excel, PowerPoint, Издатель, Доступ, Visio и Проект.
  • Открывайте и создавайте несколько документов в новых вкладках одного и того же окна, а не в новых окнах.
  • Увеличивает вашу производительность на 50% и уменьшает сотни щелчков мышью для вас каждый день!
нижняя часть офиса
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Thuva · 2 years ago
    thank you , multiple text files to different worksheets code worked!
  • To post as a guest, your comment is unpublished.
    pinky · 2 years ago
    Thanks for this code this is working great.. i want to merge all the selected sheet into a single sheet is that possible..
  • To post as a guest, your comment is unpublished.
    Raul · 2 years ago
    How do I change this macros to display text file saved as UTF-8 or in other words using Platform = 65001, Thanks
  • To post as a guest, your comment is unpublished.
    Vaibhav · 2 years ago
    Thanks for this very useful code. I have a question though. What I can change to convert the datatype from General to Text as currently it only imports data into General format.
  • To post as a guest, your comment is unpublished.
    G · 2 years ago
    Is it possible to open Sequencially multiple txt files in a single sheet ?
  • To post as a guest, your comment is unpublished.
    A · 2 years ago
    The code for "Import multiple text files to separate worksheets with VBA code" works for me, BUT cuts off the data of each cell at 255 characters. I think it is defaulting to GeneralFormat cell data, but I need it to be TextFormat. Unfortunately I cannot figure out how to adjust the code to fix this.
  • To post as a guest, your comment is unpublished.
    Pradip · 3 years ago
    I used Following code But Space Didn't Delimit.
    Turned Tab:=True, Space:=True, but it didn't work.
    My Txt file format is-
    ALUMINI16MAYFUT 09-05-2016 10:00:00 106.0000 106.0000 105.2000 105.3500 104

    Any Solution?