팁 : 다른 언어는 Google 번역입니다. 방문하실 수 있습니다. English 이 링크의 버전.
로그인
x
or
x
x
회원가입
x

or

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

컴퓨터의 폴더에 텍스트 파일이 여러 개 있다고 가정하면 이러한 텍스트 파일을 Excel 통합 문서로 가져 와서 각 텍스트 파일을 별도의 워크 시트에 넣을 수 있습니다. 각 텍스트 파일을 하나씩 복사하여 워크 시트에 붙여 넣으면 많은 시간을 낭비하게됩니다. 여기에서이 문제를 해결하기위한 몇 가지 트릭에 대해 이야기 할 수 있습니다.

여러 개의 텍스트 파일을 가져와 VBA 코드로 워크 시트를 구분합니다.

Excel 용 Kutools를 사용하여 통합 문서를 여러 텍스트 / pdf / csv / xlsx 파일로 분할


여러 워크 시트를 하나의 워크 시트 또는 워크 북으로 결합 / 가져 오기 :
일상 업무에서 여러 워크 시트 또는 워크 북을 하나의 워크 시트 또는 워크 북으로 결합하는 것은 거칠고 두려운 작업 일 수 있습니다. 그러나, 만약 당신이 Excel 용 Kutools, 그것의 강력한 유틸리티 - 결합여러 워크 시트, 워크 북을 하나의 워크 시트 또는 워크 북으로 신속하게 결합 할 수 있습니다.
doc 여러 워크 시트 결합

화살표 오른쪽 파란색 거품 여러 개의 텍스트 파일을 가져와 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. 마침내 새 통합 문서를 필요할 때 저장할 수 있습니다.


화살표 오른쪽 파란색 거품 Excel 용 Kutools를 사용하여 통합 문서를 여러 텍스트 / pdf / csv / xlsx 파일로 분할

때로는 위의 작업과 반대되는 작업을해야 할 수도 있습니다. 즉, 텍스트 파일을 분리하기 위해 통합 문서를 분할해야합니다. Excel 용 Kutools스플릿 통합 문서 유틸리티를 사용하면이 작업을 쉽고 빠르게 해결할 수 있습니다.

Excel 용 Kutools : 300 이상의 편리한 Excel 추가 기능으로 60 일 동안 아무런 제한없이 시도 할 수 있습니다..

설치 후 Excel 용 Kutools, 다음과 같이하십시오 :( 무료 다운로드 지금 Excel 용 Kutools! )

1. 여러 텍스트 파일로 분할 할 통합 문서를 활성화하십시오.

2. 딸깍 하는 소리 기업 > 통합 문서 > 스플릿 통합 문서, 스크린 샷보기 :

추가 기능을 통합 문서 통합 기능을 Excel

3. 에서 스플릿 통합 문서 대화 상자 :

(1.) 분할하려는 워크 시트를 확인하십시오.

(2.) 확인 저장 형식 지정, 저장하려는 파일 형식을 선택하십시오. 예를 들어, 다음 중 하나를 선택할 수 있습니다. TXT, csv 파일, PDF, XLSX or XLS 파일 형식을 선택하십시오.

(3.) 그런 다음 스플릿 버튼을 클릭하면 다음 프롬프트 상자에 별도의 파일을 출력 할 폴더를 지정합니다.

추가 기능 분할 통합 문서를 Excel 대화 상자에서 Excel  2 추가 기능 선택 위치를 Excel로

4. 그런 다음 OK 버튼을 클릭하면 선택한 워크 시트가 분할되어 원하는 형식으로 필요한 폴더에 저장됩니다.

추가 기능별 Excel 파일을 Excel

무료 다운로드 지금 Excel 용 Kutools!


Excel 용 Kutools는 대부분의 문제를 해결하고 생산성을 80 % 증가시킵니다.

  • 재사용: 빠르게 삽입 복잡한 수식, 차트 그리고 당신이 전에 사용했던 것; 셀 암호화 비밀번호로; 메일 링리스트 만들기 그리고 이메일을 보내 ...
  • 슈퍼 포뮬러 바 (여러 줄의 텍스트와 수식을 쉽게 편집); 레이아웃 읽기 (많은 셀을 쉽게 읽고 편집); 필터링 된 범위에 붙여 넣기...
  • 셀 / 행 / 열 병합 데이터 손실없이; 분할 셀 내용; 중복 행 / 열 결합... 중복 세포 방지; 범위 비교...
  • 복제 또는 고유를 선택하십시오. 행; 빈 행 선택 (모든 세포는 비어있다); 슈퍼 찾기 및 퍼지 찾기 많은 통합 문서에서; 랜덤 선택 ...
  • 정확한 사본 공식 참조를 변경하지 않는 다중 셀; 참조 자동 작성 여러 장에; 글 머리 기호 삽입, 확인란 등 ...
  • 텍스트 추출, 텍스트 추가, 위치 별 제거, 공간 제거; 페이징 소계 생성 및 인쇄; 셀 내용과 주석 간 변환...
  • 수퍼 필터 (필터 구성표를 저장하고 다른 시트에 적용); 고급 정렬 월 / 주 / 일별, 빈도 등; 특수 필터 대담하고 기울임 꼴로
  • 통합 문서와 WorkSheets 결합; 키 열을 기준으로 테이블 병합 데이터를 여러 시트로 분할; 일괄 변환 xls, xlsx 및 PDF...
  • 300 이상의 강력한 기능. Office / Excel 2007-2019 및 365를 지원합니다. 모든 언어를 지원합니다. 기업이나 조직에 쉽게 배포 할 수 있습니다. 30 일 무료 평가판 전체 기능.
kte 탭 201905

Office 탭 Office에 탭 인터페이스를 제공하여 작업을 훨씬 쉽게

  • 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?