여러 텍스트 파일을 여러 시트로 가져오는 방법은 무엇입니까?

컴퓨터의 폴더에 여러 텍스트 파일이 있다고 가정해 봅시다. 이제 이러한 텍스트 파일을 Excel 워크북으로 가져오고, 각 텍스트 파일을 별도의 시트에 배치하려고 합니다. 각 텍스트 파일을 하나씩 수작업으로 복사하고 붙여넣는 것은 많은 시간이 소요됩니다. 여기에서는 이 문제를 해결하기 위한 몇 가지 팁을 소개하겠습니다.

VBA 코드를 사용하여 여러 텍스트 파일을 별도의 시트로 가져오기

Kutools for Excel을 사용하여 워크북을 여러 개의 별도 텍스트 / pdf / csv / xlsx 파일로 분할하기

VBA 코드를 사용하여 여러 텍스트 파일을 별도의 시트로 가져오기

다음 VBA 코드는 새 워크북 내에서 각 텍스트 파일을 별도의 시트로 한 번에 가져오는 데 도움이 될 수 있습니다. 아래 단계를 따라 주세요:

1. Excel에서 ALT + F11 키를 눌러 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. 마지막으로 필요에 따라 새 워크북을 저장할 수 있습니다.

Kutools for Excel을 사용하여 워크북을 여러 개의 별도 텍스트 / pdf / csv / xlsx 파일로 분할하기

때로는 위 작업과 반대되는 작업을 수행해야 할 수도 있습니다. 즉, 워크북을 별도의 텍스트 파일로 분할해야 하는 경우입니다. Kutools for Excel의 워크북 분리 기능은 이 작업을 빠르고 쉽게 해결하는 데 도움이 됩니다.

Kutools for Excel 설치 후, 다음과 같이 진행하세요:

1. 분할하려는 워크북을 활성화합니다.

2. 기업 > 워크북 > 워크북 분리 를 클릭하세요. 스크린샷을 참조하세요:

3. 워크북 분리 대화 상자에서:

(1.) 분할하려는 시트를 선택하세요.

(2.) 저장 형식 지정 옵션을 선택한 후 원하는 파일 형식을 선택하세요. 예를 들어, txt, csv, pdf, xlsx 또는 xls 파일 형식을 필요에 따라 선택할 수 있습니다.

(3.) 그런 다음 분할 버튼을 클릭하고, 다음 프롬프트 상자에서 분리된 파일을 출력할 폴더를 지정하세요.

4. 그런 다음 확인 버튼을 클릭하면 선택한 시트가 분할되어 원하는 형식으로 지정된 폴더에 저장됩니다.