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

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

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

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

Импорт нескольких текстовых файлов в отдельные листы с помощью кода 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. В конце вы можете сохранить новую книгу по мере необходимости.

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

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

После установки Kutools для Excel выполните следующие действия:

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

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

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

(1.) Установите флажок напротив листов, которые вы хотите разделить.

(2.) Установите флажок Указать формат сохранения, затем выберите формат файла, который вы хотите сохранить, например, вы можете выбрать формат txt, csv, pdf, xlsx или xls в зависимости от ваших потребностей.

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

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