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

or

Excel에서 텍스트 파일을 Excel에서 원본 이름으로 별도의 시트로 가져 오는 방법은 무엇입니까?

Excel에서 텍스트 파일을 Excel의 파일 이름과 함께 별도의 시트로 가져 오려고 시도한 적이 있습니까? 이 기사에서는 한 폴더의 텍스트 파일을 이름이있는 Excel로 신속하게 가져올 수있는 VBA 코드를 소개합니다.
doc 원래 이름으로 텍스트 가져 오기 1

이름이있는 텍스트 파일을 Excel로 가져 오기

Excel에서 여러 워크 시트를 별도의 통합 문서로 빠르게 분할

Microsoft Excel에서이 통합 문서를 복사하여 새 통합 문서에 붙여 넣어 하나의 통합 문서에서 워크 시트를 새 Excel 파일로 저장하거나 분할 할 수 있습니다. 커다란 통합 문서의 각 시트 / 워크 시트를 별도의 Excel, txt, csv, pdf 파일로 분할하려는 경우 골칫거리입니다. 하지만 함께 Excel 용 Kutools스플릿 통합 문서 유틸리티를 사용하면 신속하게 처리 할 수 ​​있습니다. 60 일 무료 평가판을 보려면 클릭하십시오!
문서 분할 통합 문서 1
Excel 용 Kutools : 200 이상의 편리한 Excel 추가 기능으로 60 일 동안 아무런 제한없이 사용해보십시오.

이름이있는 텍스트 파일을 Excel로 가져 오기

1. 엑셀 사용, 누르기 Alt + F11 활성화 할 키 응용 프로그램 용 Microsoft Visual Basic 창을 클릭 한 다음 끼워 넣다 > 모듈.
doc 원래 이름으로 텍스트 가져 오기 2

2. 코드 아래에 복사하여 붙여 넣기 모듈 스크립트.

VBA : 이름 가진 텍스트 파일 가져 오기

Sub LoadPipeDelimitedFiles () 'UpdatebyExtendoffice20181010 Dim xStrPath As String Dim xFileDialog as FileDialog Dim xFile As String Dim xCount As Long Dim xWS 워크 시트 On Error GoTo ErrHandler Set xFileDialog = 응용 프로그램 파일 (msoFileDialogFolderPicker) xFileDialog.AllowMultiSelect = False xFileDialog.Title = "선택 xstrPath = xFileDialog.SelectedItems (1) End If If xStrPath = ""Exit Sub Application.ScreenUpdating = False xFile = Dir (xStrPath & "\ *. txt ") xCount = xCount + 1 Set xWS = Sheets (xCount) xWS.Select xWS.Name ="TEXT "& 왼쪽 (xFile, Len (xFile) - 1) With ActiveSheet.QueryTables.Add (" = "a" "& xCount .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting ="AEX " True .RefreshOnFileOpen = False .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = 진정한 .AdjustColumnWidth = 진정한 .RefreshPeriod = 4 .TextFilePromptOnRefresh = 거짓 .TextFilePlatform = 1 .TextFileStartRow = 0 .TextFileParseType = xlDelimited .TextFileTextQualifier = xlTextQualifierDoubleQuote .TextFileConsecutiveDelimiter = 거짓 .TextFileTabDelimiter = 거짓 .TextFileSemicolonDelimiter = 거짓 .TextFileCommaDelimiter = 거짓 .TextFileSpaceDelimiter = 거짓. TextFileOtherDelimiter = "|" .TextFileColumnDataTypes = 배열 ​​(437, 1, 1) .TextFileTrailingMinusNumbers = True. 새로 고침 BackgroundQuery : = 거짓 xFile = 루프로 끝내기 Application.ScreenUpdating = True Exit Sub ErrHandler : MsgBox "no files txt", "Excel 용 Kutools"End 보결

3. 프레스 F5 코드를 실행하려면 Excel에서 가져올 텍스트 파일이 들어있는 폴더를 선택하십시오. 폴더 선택 대화.
doc 원래 이름으로 텍스트 가져 오기 3

4. 클릭 OK폴더의 텍스트 파일을 Excel에서 자신의 이름이있는 낱장으로 가져 왔습니다.


여러 개의 Word 문서 / Excel 통합 문서를 Firefox, Chrome, 인터넷으로 탐색하고 편집 할 수 있습니다. 10을 탐색하십시오!

Firefox / Chrome / IE에서 여러 웹 페이지를보고 익숙한 탭을 쉽게 클릭하여 전환 할 수 있습니다. 여기에서 Office Tab은 하나의 Word 창이나 Excel 창에서 여러 Word 문서 또는 Excel 통합 문서를 탐색하고 해당 탭을 클릭하여 쉽게 전환 할 수있는 유사한 처리를 지원합니다.
Office 탭 무료 평가판을 보려면 클릭하십시오!

하나의 창에서 여러 단어 문서를 Firefox로 탐색

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.

Be the first to comment.