VBA - 폴더 목록을 Excel 범위로 가져 오기

Question

현재 현재 작업 디렉토리에있는 "시뮬레이션"폴더 내에있는 여러 하위 폴더에서 파일을 가져 오는 매크로 작업을하고 있습니다. 내가 가지고있는 코드는 파일 목록을 Excel로 가져 오는 마지막 단계를 제외하고 필요한 모든 작업을 수행하고 있습니다. 그때 다른에서이 파일을 열

> dir /b > foldernames.txt 

창을 능가하고 나의 현재의 엑셀 통합 문서로 범위를 복사

현재, 나는 cmd를 줄을 사용하여 내가 손으로 만든 파일을 읽고 매크로를 가지고있다. 이것은 이것을하는 천천히, 둥근 방식처럼 보이며이를 피할 수있는 매크로 솔루션을 찾고 있습니다.

Dim Fold As Folder 
Dim FS As FileSystemObject 

는 내가 해봤 구문의 대부분은 이후 2007과 호환되지 않습니다 의심 :

내가 좋아하는 일을 사용하여 코드 조합의 숫자를 시도했습니다. 이 응용 프로그램에 도움이되는 특정 기능이 있습니까? 코드를 작성할 필요가 없으며 적용 가능한 기능에 대한 제안만으로도 그 기능을 사용할 수 있습니다.

Answer 1

우리는

Sub RunDir() 
    x = Shell("cmd.exe /c dir /b > C:\TestFolder\foldernames.txt", 1) 
    Close #1 
    Open "C:\TestFolder\foldernames.txt" For Input As #1 
    j = 1 
    Do While Not EOF(1) 
      Line Input #1, TextLine 
      Cells(j, 1) = TextLine 
      j = j + 1 
     Loop 
    Close #1 
End Sub 

내가 디렉터리의 대상으로 TestFolder을 사용 쉘을 통해 CMD 명령을 실행 .............. 자신을 선택