엑셀 시트에 폴더를 연결하십시오.

Question

저는 열렬한 영화 수집가이며, 1000 장의 영화를 소장하고 있습니다.

내가 일반적으로하는 것은 다운로드하고 볼 영화 목록이있는 메모장입니다. 다운로드 한 모든 영화를 "Movies"라는 폴더에 보관하고 영화를 본 후 "Watched Movies"라는 다른 폴더로 옮깁니다.

이제는 각 폴더에있는 영화 목록을 보여주는 시트가있는 Excel 파일이 필요합니다. 또한 "Movie"폴더에 영화를 올릴 때마다 엑셀 시트가 해당 파일/폴더 이름을 표시해야하며 "감시 된 영화"폴더로 이동할 때마다 마찬가지로 Excel 자체 만 업데이트하면됩니다.

이것이 여러분 중 일부를위한 케이크 조각이라고 확신합니다.

도움을 주시면 감사하겠습니다. 당신은 당신이 실제로 찾는 것은 어려운 일이 아니라 프로그래밍 지식의 비트가 필요, 당신은 VBA 매크로를 사용해야합니다,이 작업을 수행 할 좋아

Answer 1

보다도, J.V을 주셔서 감사합니다.

1 단계 당신은 당신이 2010 here 어떻게되어 사용하는 경우, 엑셀에서 개발자 리본을 추가해야합니다.

Visual Basic에 개발자 탭을 클릭 2 단계
과는 VB 인터페이스를 엽니 다, 나는 당신에게 스크립트를 제공 할 것입니다하지만 당신은 '마이크로 소프트 스크립팅 런타임'참조를 추가해야합니다.

3 단계
•은 Visual Basic 선택 도구에 - 가능한 참조 목록 상자 • 드롭 다운 메뉴
에서 참조
가 • 마이크로 소프트 런타임 스크립팅 '옆의 체크 확인란을 선택 표시됩니다 '전체 이름과 Scrrun.dll에 파일의 경로 •
OK (확인) 버튼을 목록 상자 아래
• 클릭을 표시됩니다

4 단계

셀렉에서 ThisWorkbook 다음 코드에

Sub ViewFiles() 
    theRow = 3 
    Call ShowFiles(Range("A1"), True) 
End Sub 

Sub ShowFiles(path, subfolders) 
    Set obj = New Scripting.FileSystemObject 
    Set Source = obj.GetFolder(path) 
    On Error Resume Next 
    For Each file In Source.Files 
     theCol = 2 
     Cells(theRow, theCol).Value = file.path 
     theCol = theCol + 1 
     Cells(theRow, theCol).Value = file.Name 
     theCol = theCol + 1 
     Cells(theRow, theCol).Value = file.Size 
     theCol = theCol + 1 
     theRow = theRow + 1 
    Next 
    If subfolders Then 
    For Each subFolder In Source.subfolders 
     Call ShowFiles(subFolder.path, True) 
    Next 
    End If 
End Sub 

5 단계
을 붙여 사용하면, 다음 ALT + F8을 눌러보고 매크로가 ViewFiles이라는 실행하려는 경로를 붙여 셀 A1 통합 문서를 모든 파일로 업데이트합니다.

그것은 다음과 비슷한 모습이 될 것입니다

가 당신을 위해 일을 알려줘!