[VBA] 폴더속 파일 이동하기(feat. 니꾸)

https://blog.naver.com/rosa0189/60169623064

(1323) 이름 일치하는 파일만 폴더에서 이동하기 (엑셀 VBA 매크로)

  오늘은 본인의 온라인 스승이신 엑사남님 외에 또한분 니꾸님의 블로글에서 글을 발췌하여 편집하여 작성하였다. VBA를 처음 시작할때 정말 도움이 많이 된거 같다. 선배 VBA맨들이 왜 이런 축약어를 사용하였는지 또는 외계어 같은 이 기호들은 어떤의미가 있는지를 알고 싶을 때 구글에서 찾게 되면 니꾸님의 블로그가 꼭 한번은 검색이 될 정도로 다양하고 깊은 니꾸님만의 고민이 녹아있는 글들을 보게된다. 

 

  VBA를 하나도 모를때 본인이 엑셀을 잘한다는 이유로 어마어마한 일이 주어진 적이 있었다. 많은 회원들의 서류를 pdf로 인쇄하여 하나의 폴더에 옮긴 후 그것을 어떠한 기준으로 분류하여 각 폴더에 맞게 파일들을 재 분류해야 하는 일이 있었는데 그것을 손으로 하기에는 가당치 않은 일이기에 혹시나 하고 구글링을 하였을 때 이것또한 VBA로 가능하다는 니꾸님의 글 하나에 희망의 눈물을 쏟아냈던거 같다. 

 

  지금 보면 코드 자체는 너무나 간단하다.

1. 파일다이얼로그 열고

2. 폴더 선택하고 폴더 선택된것을 경로에 담고 / 선택안하면 종료

3. 그걸 루프로 돌면서 작자가 원하는 다음 작업을 변형하면 된다. 

 

그냥 그당시에는 엑셀은 그냥 계산만 하는거...

VBA는 그 계산을 좀더 편하게 도와주는거 정도만 생각했던거 같다.

 

이렇게 VBA가 전방위적으로 사용이 가능한지는 진짜 꿈에도 생각 못했으며, 니꾸님의 저 글하나가 본인이 VBA를 무한이 사랑하는 계기가 된거 같다.

이번에 작성한 코드는 니꾸님의 코드를 변형하였다.

1. 폴더를 선택하고

2. 거기서 리스트를 뽑아서 출력하고

3. 리스트 전부를 이동시킬지 아님 일부를 수정하여 수정된 내용만 이동시킬지를 선택할 수 있다.

 

여기서 좀 더 나아가 매크로버튼의 텍스트를 변형하는 코드를 넣어서 시각적으로나 코드적으로 최적화를 이뤄보았다.

 

폴더나 파일관련해서는 루틴이 있기 때문에 몇번하다보면 이 규칙성에 녹아들게 될것이다...그때까지 화이팅

 

파일이동(21.12.28).xlsm

0.02MB