![[Vba 기초] 30강. Application.FileDialog( 파일 목록 가져오기)](https://i.ytimg.com/vi/LEuizZ-MUto/hqdefault.jpg)
콘텐츠
Microsoft Excel은 표 형식의 데이터, 계산 및 정보 관리 만이 아닙니다. 어떤 열정적 인 사용자라도 Excel을 폴더 관리, 파일 구성 및 작업 추적을위한 강력한 도구로 사용할 수 있습니다. VBA FileDialog 개체를 사용하는 매크로를 만들어 디렉터리를 빠르게 스캔하고 워크 시트에 내용을 나열 할 수 있습니다. 실행 후,이 매크로는 사용자에게 폴더 선택을 요구하고, 나중에 단일 열에 내용의 이름을 나열합니다.
지침
-
Microsoft Excel을 시작하십시오. "CTRL + O"를 누르고 통합 문서를 선택한 다음 "열기"를 클릭하십시오. 대신 새 통합 문서를 만들려면 "CTRL + N"을 누릅니다.
-
매크로 대화 상자를 열려면 "Alt + F8"키를 누릅니다. 매크로 이름 상자에 "GetFolderContents"를 입력하고 "만들기"를 클릭하십시오.
-
VBA 편집기에서 다음 코드를 입력하십시오.
Sub GetFolderContents () Dim xDir, xFilename, f, fso 개체 설정 fso = CreateObject ( "Scripting.FileSystemObject")와 Application.FileDialog (msoFileDialogFolderPicker) .InitialFileName = ThisWorkbook.Path & "".Title = "폴더를 선택하십시오. .AllowMultiSelect = False .Show에서 목록 파일 ".SelectedItems.Count <> 0 Then xDir = .SelectedItems (1) &" "End If If로 끝내기 (MsgBox (프롬프트 : ="하위 폴더의 이름을 포함 하시겠습니까? ?, _ Buttons : = vbYesNo, Title : = "하위 폴더 포함") = vbYes) 그런 다음 GoTo ListFolders GoTo ListFiles GoTo ListFiles End If ListFolders : For Each f fso.GetFolder (xDir) .SubFolders ActiveCell.Value = ". .FileName ActiveCell.Offset (1, 0) .Select 다음 f ListFiles : For Each f fso.GetFolder (xDir) .Files ActiveCell.Value = f.Name ActiveCell.Offset (1, 0) .Select 다음 f Set fso = Nothing End Sub
-
"Alt + Q"를 눌러 VBA 편집기를 닫고 통합 문서로 돌아갑니다.
매크로 만들기
-
시트 셀을 선택하십시오. "ALT + I"및 "C"키를 눌러 빈 열을 만듭니다. 새 열의 첫 번째 셀을 선택하십시오. 대신 새 워크 시트에 목록을 표시하려면 "SHIFT + F11"을 누르십시오.
-
매크로 대화 상자를 열려면 "Alt + F8"키를 누릅니다. "GetFolderContents"를 선택하고 "실행"을 클릭하십시오.
-
내용을 나열 할 폴더 또는 디렉토리를 선택하십시오. "확인"을 클릭하십시오.
-
매크로로 하위 폴더의 이름을 나열하려면 "예"를 클릭하고, 파일 만 나열하려면 "아니오"를 클릭하십시오. Excel에서 선택한 열의 내용으로 새 열을 채울 때까지 기다립니다.
매크로 사용
공지 사항
- 기본적으로 매크로는 Microsoft Excel에서 사용할 수 없습니다. 활성화하려면 Microsoft Office 단추를 클릭 한 다음 "Excel 옵션"으로 이동하십시오. "개발자 탭 표시"가 선택되어 있는지 확인하십시오. "보안 센터"로 이동 한 다음 "보안 센터 설정"을 클릭하십시오. "매크로 설정"으로 이동 한 다음 "모든 매크로 사용"을 선택하십시오. 두 창에서 모두 "확인"을 클릭하고 열려있는 작업 폴더를 모두 저장 한 다음 Excel을 다시 시작하십시오.
