Note: The other languages of the website are Google-translated. Back to English

Excel에서 모든 폴더와 하위 폴더를 나열하는 방법은 무엇입니까?

지정된 디렉토리의 모든 폴더와 하위 폴더를 워크 시트에 나열하는이 문제를 겪은 적이 있습니까? Excel에서는 특정 디렉터리에있는 모든 폴더의 이름을 한 번에 가져 오는 빠르고 편리한 방법이 없습니다. 작업을 처리하기 위해이 기사가 도움이 될 수 있습니다.

VBA 코드로 모든 폴더 및 하위 폴더 나열

Office 탭 Office에서 탭 편집 및 찾아보기를 활성화하고 작업을 훨씬 쉽게 ...
Excel용 Kutools는 대부분의 문제를 해결하고 생산성을 80% 증가시킵니다.
  • 무엇이든 재사용 : 가장 많이 사용되거나 복잡한 수식, 차트 및 기타 항목을 즐겨 찾기에 추가하고 나중에 빠르게 재사용 할 수 있습니다.
  • 20 개 이상의 텍스트 기능 : 텍스트 문자열에서 숫자 추출; 텍스트의 일부 추출 또는 제거 숫자와 통화를 영어 단어로 변환합니다.
  • 병합 도구: 여러 통합 문서와 시트를 하나로; 데이터 손실없이 여러 셀 / 행 / 열 병합; 중복 행과 합계를 병합합니다.
  • 분할 도구: 값을 기준으로 데이터를 여러 시트로 분할합니다. 하나의 통합 문서에서 여러 Excel, PDF 또는 CSV 파일로; 한 열에서 여러 열로.
  • 붙여 넣기 건너 뛰기 숨겨진 / 필터링 된 행; 수와 합계 배경색 별; 개인화 된 이메일을 여러 수신자에게 대량으로 보냅니다.
  • 슈퍼 필터 : 고급 필터 구성표를 만들고 모든 시트에 적용하십시오. 종류 주, 일, 빈도 등으로; 필터 굵게, 수식, 주석으로 ...
  • 300개 이상의 강력한 기능; Office 2007-2021 및 365에서 작동합니다. 모든 언어를 지원합니다. 기업 또는 조직에서 쉽게 배포할 수 있습니다.

화살표 블루 오른쪽 거품 VBA 코드로 모든 폴더 및 하위 폴더 나열

지정된 디렉토리에서 모든 폴더 이름을 얻으려면 다음 VBA 코드가 도움이 될 수 있습니다.

1. 누르고 ALT + F11 키가 열립니다. Microsoft Visual Basic for Applications 창.

2. 딸깍 하는 소리 끼워 넣다 > 모듈을 클릭하고 다음 코드를 모듈 창.

VBA 코드 : 모든 폴더 및 하위 폴더 이름 나열

Sub FolderNames()
'Update 20141027
Application.ScreenUpdating = False
Dim xPath As String
Dim xWs As Worksheet
Dim fso As Object, j As Long, folder1 As Object
With Application.FileDialog(msoFileDialogFolderPicker)
    .Title = "Choose the folder"
    .Show
End With
On Error Resume Next
xPath = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1) & "\"
Application.Workbooks.Add
Set xWs = Application.ActiveSheet
xWs.Cells(1, 1).Value = xPath
xWs.Cells(2, 1).Resize(1, 5).Value = Array("Path", "Dir", "Name", "Date Created", "Date Last Modified")
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder1 = fso.getFolder(xPath)
getSubFolder folder1
xWs.Cells(2, 1).Resize(1, 5).Interior.Color = 65535
xWs.Cells(2, 1).Resize(1, 5).EntireColumn.AutoFit
Application.ScreenUpdating = True
End Sub
Sub getSubFolder(ByRef prntfld As Object)
Dim SubFolder As Object
Dim subfld As Object
Dim xRow As Long
For Each SubFolder In prntfld.SubFolders
    xRow = Range("A1").End(xlDown).Row + 1
    Cells(xRow, 1).Resize(1, 5).Value = Array(SubFolder.Path, Left(SubFolder.Path, InStrRev(SubFolder.Path, "\")), SubFolder.Name, SubFolder.DateCreated, SubFolder.DateLastModified)
Next SubFolder
For Each subfld In prntfld.SubFolders
    getSubFolder subfld
Next subfld
End Sub

3. 그런 다음 F5 이 코드를 실행하는 키와 폴더 선택 창이 나타나면 폴더와 하위 폴더 이름을 나열 할 디렉토리를 선택해야합니다. 스크린 샷을 참조하십시오.

문서 목록 폴더 이름-1

4. 딸깍 하는 소리 OK, 새 통합 문서에서 폴더 및 하위 폴더 경로, 디렉터리, 이름, 만든 날짜 및 마지막 수정 날짜를 얻을 수 있습니다. 스크린 샷을 참조하십시오.

문서 목록 폴더 이름-1


관련 기사 :

디렉터리의 파일을 Excel의 워크 시트에 나열하는 방법은 무엇입니까?


최고의 사무 생산성 도구

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

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

Office Tab은 Office에 탭 인터페이스를 제공하여 작업을 훨씬 쉽게 만듭니다.

  • Word, Excel, PowerPoint에서 탭 편집 및 읽기 사용, Publisher, Access, Visio 및 Project.
  • 새 창이 아닌 동일한 창의 새 탭에서 여러 문서를 열고 만듭니다.
  • 생산성을 50% 높이고 매일 수백 번의 마우스 클릭을 줄입니다!
officetab 하단
코멘트 (18)
아직 평가가 없습니다. 가장 먼저 평가하세요!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
감사합니다. cmd 프롬프트를 사용하여 내 폴더와 함께 txt를 만든 다음 Excel에 복사했지만 이제는 쉽게 작업할 수 있습니다. :)
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
폴더에 대한 링크도 생성해야 하는 경우 코딩에서 무엇을 수정해야 하며 버튼을 생성하고 동일한 코딩을 링크할 수 없는 경우 매크로를 실행하는 방법을 모르는 사용자에게 유용할 것입니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
나는 당신이 요청한 것을 정확히 수행했습니다. 월시트에 회사 로고를 배치한 다음 마우스 오른쪽 버튼을 클릭하고 매크로(위 코드)를 할당했습니다. 사용 방법 사용 설명서를 삽입할 수도 있습니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
이 코드는 진정으로 하루를 구했습니다. 공유해 주셔서 감사합니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요, 방금 지시를 따랐는데 F5 키를 눌러 실행하면 오류가 발생합니다. 아래 오류는 "Dim xW As Worksheet"를 강조 표시합니다. 사용할 수 있는 업데이트된 코드가 있습니까? 컴파일 오류: 사용자 정의 유형이 정의되지 않았습니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
[인용]안녕하세요, 지시를 따랐는데 F5 키를 눌러 실행하면 오류가 발생합니다. 아래 오류는 "Dim xW As Worksheet"를 강조 표시합니다. 사용할 수 있는 업데이트된 코드가 있습니까? 컴파일 오류: 사용자 정의 유형이 정의되지 않았습니다.캐럴린[/인용] Kutools 추가 기능 또는 MS Excel VBA 편집기를 사용하고 있습니까? 추가 기능을 사용하지 않기 때문에 오류를 복제할 수 없습니다. MS VBA 편집기를 사용하면 오류 없이 작동합니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
이 코드를 실행하면 작동하지만 내가 선택한 폴더 옆에 있는 첫 번째 폴더만 표시됩니다. 예를 들어, 코드를 실행할 때 "C:\Users\Johnson\Music"을 선택합니다(참고: 내 음악 폴더 안에 70개의 폴더가 있습니다). 코드가 실행되면 첫 번째 폴더만 표시한 다음 그 안에 있는 모든 폴더를 나열합니다. 폴더. Music 폴더 안의 모든 폴더를 나열하고 싶습니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
나는 다른 사람들과 함께 있습니다. 그것은 어느 정도 효과가 있습니다.

나에게 그 요점은 새로운 s/s를 생성하고 내가 표시한 폴더(셀 A1)에 대한 세부 정보, 2행에 노란색으로 강조 표시된 막대, 제목 뒤에 아무것도 표시되지 않는다는 것입니다!

내가 보고 있는 폴더는 하위 폴더(즉, 데이터 파일이 존재하지 않음)를 제외하고 비어 있고 하위 폴더가 전혀 나타나지 않습니다.

누구든지 하위 폴더와 해당 파일을 나열하는 데 도움을 줄 수 있습니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
크기를 추가하도록 수정했습니다.



하위 폴더 이름()
'업데이트 20141027
Application.ScreenUpdating = False
Dim xPath를 문자열로
Dim xW를 워크시트로
Dim fso As Object, j As Long, folder1 As Object
Application.FileDialog(msoFileDialogFolderPicker) 사용
.Title = "폴더 선택"
.보여 주다

오류에 대한 다음 재개
xPath = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1) & "\"
응용 프로그램.통합 문서.추가
xWs = Application.ActiveSheet 설정
xWs.Cells(1, 1).값 = xPath
xWs.Cells(2, 1).Resize(1, 6).Value = Array("경로", "Dir", "이름", "만든 날짜", "마지막으로 수정한 날짜","크기")
fso = CreateObject ( "Scripting.FileSystemObject") 설정
폴더 설정 = fso.getFolder(xPath)
getSubFolder 폴더1
xWs.Cells(2, 1).Resize(1, 6).Interior.Color = 65535
xWs.Cells(2, 1).Resize(1, 6).EntireColumn.AutoFit
Application.ScreenUpdating = True
최종 하위
하위 getSubFolder(객체로 ByRef prntfld)
개체로 Dim 하위 폴더
개체로 희미한 하위 필드
길이만큼 xRow 희미하게 만들기
prntfld.SubFolders의 각 하위 폴더에 대해
xRow = Range("A1").End(xlDown).Row + 1
Cells(xRow, 1).Resize(1, 6).Value = Array(SubFolder.Path, Left(SubFolder.Path, InStrRev(SubFolder.Path, "\")), SubFolder.Name, SubFolder.DateCreated, SubFolder. DateLastModified, SubFolder.Size)
다음 하위 폴더
prntfld.SubFolders의 각 하위 필드에 대해
getSubFolder 하위 필드
다음 하위 필드
최종 하위
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
SubFolder.Size 함수를 포함하면 스크립트는 더 이상 모든 하위 폴더를 나열하지 않고 첫 번째 수준만 나열합니다.
크기를 포함하고 모든 하위 폴더를 나열하려면 어떻게 해야 합니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요. 제가 찾기 힘든 코드를 도와주세요.

다음은 코드에 대한 요구 사항입니다.



1. VBA는 모든 폴더와 하위 폴더를 통과해야 합니다.
모든 유형의 파일을 확인하십시오. 사용자는 다음에 대한 경로만 제공해야 합니다.
상위 폴더. 그런 다음 코드는 모든 폴더와 하위 폴더를 확인해야 합니다.
상위 폴더 내.



2. 파일을 확인한 후 코드는 모든 파일을 압축해야 합니다.
3개월 이상 접속하지 않은 것. 접속 기간은
필요한 경우 미래에 변경할 수 있어야 합니다. 그것은해야
필요한 경우 1개월 또는 5개월로 변경할 수 있습니다.



3. 파일을 압축한 후 코드를 삭제해야 합니다.
압축된 원본 파일.



4. 압축파일은 같은 경로에 저장해야 합니다.
원본 파일.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
훌륭한 도구! 오랜 연구 끝에 이 정확한 장난감을 찾았습니다 :)
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
내가 필요로 하는 것, 작동하는 방법에 대한 완벽하게 명확한 지침. 정말 감사합니다
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
정말 감사합니다!, 매우 유용합니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
이것은 효과가 있었고 어떻게... 감사합니다. 한 가지만 추가하면 됩니다. 3단계에서 한 단계씩 실행을 클릭한 다음 폴더를 선택하는 데 F5 키만 작동했습니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
이 유용한 코드에 대해 대단히 감사합니다. 동일한 통합 문서에서 새 통합 문서가 아닌 결과를 저장할 수 있습니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
감사합니다. 이것이 바로 고객의 폴더를 기록하는 데 필요한 것입니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
수고 많으셨습니다.. 많은 도움이 되었습니다. 감사합니다.
아직 코멘트가 없습니다
여러분의 의견을 남겨
게스트로 게시
×
이 게시물 평가 :
0   등장 인물
추천 위치

Follow Us

저작권 © 2009 - WWW.extendoffice.com. | 판권 소유. 에 의해 구동 ExtendOffice. | | 사이트 맵
Microsoft 및 Office 로고는 미국 및 / 또는 기타 국가에서 Microsoft Corporation의 상표 또는 등록 상표입니다.
Sectigo SSL로 보호