[VBA/엑셀] 폴더 내 파일리스트 작성 메크로

 

 

안녕하세요, 구칠씀입니다

 

 

 

오오랜만에 코딩 공부를 했어요..

최근에 머리를 쓰는 일은 정말 손에 꼽는...

어떻게 하면 꾸준히 동기부여가 될까요

 

 

 

제가 하는 업무 중 하나가,

거래처로부터 받은 파일을 사이트에 등록하는 건데요.

파일 누락 없이 등록해야 하는데, 양이 많을 때는 누락 검수 과정이 길어요.

그 과정을 단축하기에 효과적인 효자 메크로입니다!

 

 

 

 폴더 내 파일리스트 만들어주는 메크로

---

Dim Row As Integer
 
Sub FList_MST()
 
    Call setting
    
    Dim F_Dlg As FileDialog
    Dim FS As Scripting.FileSystemObject
    Dim F_Info As Folder
    
    Set F_Dlg = Application.FileDialog(msoFileDialogFolderPicker)
    F_Dlg.Show
    
    Row = 2
    Set FS = New Scripting.FileSystemObject
    Set F_Info = FS.GetFolder(F_Dlg.SelectedItems(1))
    Call Folder_List(F_Info)
    
    'split버튼만들기
    Call split버튼추가
    
End Sub
 
Sub setting()
    
    Sheets.Add
    
    ActiveSheet.Name = "폴더내리스트(전체)" & "_" & Date
    ActiveSheet.Tab.Color = 65535
        
    
    Range("A1") = "폴더명"
    Range("B1") = "파일명"
    Range("C1") = "파일Type"
    
    Range("a1").CurrentRegion.Select
    
    With Selection
        .Font.Bold = True
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
    End With
    
End Sub
 
Sub Folder_List(F_Info As Folder)
 
    Dim SFList, SFListUp As Folder
 
    Call File_List(F_Info)
    Set SFList = F_Info.SubFolders
    
    For Each SFListUp In SFList
        Call Folder_List(SFListUp)
    Next SFListUp
    
End Sub
 
Sub File_List(F_Info As Folder)
 
    Dim FileList, FileListUp As File
 
    Set FileList = F_Info.Files
    
    For Each FileListUp In FileList
      Range("a" & Row).Value = F_Info.Name
      Range("b" & Row).Value = FileListUp.Name
      Range("c" & Row).Value = FileListUp.Type
      Row = Row + 1
    Next FileListUp
      
End Sub
 

.

.

.

🤖
간단하게 설명드리겠습니다!
👉 선택을 폴더의 모든 파일 리스트를 작성해 주는 메크로입니다.
👉 1. 파일위치, 2. 파일명, 3. 파일 속성을 출력합니다.
👉 메크로를 실행하면 폴더 위치를 묻는 파일창이 뜹니다. 폴더 선택해 주면 끝

.

.

.

---

 

 

작명 센스가 부족해서 저렇게 지었지만

지혜로우신 방문자님들은

찰떡같이 검색해서 찾아주시리라 저는 믿습니다🙏

 

 

 

💖💖💖💖💖

필요하신 분들은 유용하게 사용해 주시되

댓글, 하트 눌러주시면

감사드리겠습니다!!!

💖💖💖💖💖

 

 

 

궁금하신 것 있으면 댓글 달아주셔요!

아는 한에 다 알려드리겠습니다

 

 

또 공부해서 돌아오겠습니다!