1. FAQ
  2. 엑셀(Excel)
  3. AfterEffects
  4. Premiere
  5. Photoshop
  6. ETC

이 게시판은 아별닷컴 회원만 질문을 올릴 수 있습니다. 회원에게 주어지는 특권인셈이지요. 회원이 아닌 분들은 열람만 가능합니다.

특정폴더 파일 실행

VBA 조회 수 3958 추천 수 0 2012.11.22 16:43:15

 

첨부된 예제의 매크로는 인터넷 검색 중 찾은 코드로써, 조금 수정하였습니다.

매크로를 실행하면 폴더 선택 창이 나타나면서 특정 폴더를 선택하고 확인을 누르면 하위폴더를 포함한 모든

엑셀 파일이 실행됩니다. 그런데, 숨겨진 파일까지도 실행이 되는데요.

숨긴파일을 제외하고 실행되게끔 하려면 어떻게 수정되어야 하는지요?

딴에는 코드 중 주석처리된 것처럼 하면 될까 싶었는데. 그게 아니네요. ㅠ,ㅠ


댓글 '4'

profile

[레벨:30]아별

2012.11.23 01:02:27
*.130.73.75

고수가 되고파님..


예전에 하셨던 질문을 다시 하셨네요..

잘 이해가 안되시면 다시 물어보시지 그러셨어요..

다시 말씀드리자면.. 숨김파일을 찾고 싶으시면.. GetAttr함수를 사용하시면 됩니다.

http://www.abyul.com/zbxe/111698


    For Each fileName In fldName.Files
        If InStr(fileName, ".xls") Then
            '### 바래 아랫줄 코드는 Select Case filename.attributes 하셔도 됩니다.
            Select Case GetAttr(fileName)
            '### 숨긴 파일 속성이 있으면 기본 속성에 +2해주면 됩니다.
            '### 기본 파일 속성이 0 또는 32이므로.. 2 또는 34는 숨긴 파일입니다.
            '### 단순히 숨기것 뿐만 아니라 숨겨있고, 보호되어 있으면 거기에 +1을 더한 값을 갖습니다.
            '### 그래서 3과 35인지도 체크를 하는 것입니다.

            Case 2, 34, 3, 35
            Case Else
                ActiveCell.Offset(i).Value = fileName
                i = i + 1
            End Select
        End If
    Next fileName


첨부파일을 참고하세요..

다운받기 : 특정폴더모든파일실행-4.xlsm

 

참고로..

참고하신 Scripting.FileSystemObject 개체에는 Attributes라는 속성이 있습니다.

파일의 속성을 나타내는 것이지요..

그래서 GetAttr()함수를 사용하지 않고..

Select Case filename.attributes  라고 써도 되는 것입니다.

 

부디.. 도움이 되셨기를..

 

abyulTools_0000366-1.jpg

첨부

[레벨:4]고수가되고파

2012.11.23 08:43:44
*.104.208.234

궁금한게 많아 한 사이트에 많은 질문을 하면 경우가 아닌 것 같아서 다른 사이트와 분산해서 질문을 올리는데요..

답변 받은 내용을 이리저리 생각해서 해봣는데조 안돼서 여기에 올리게 되었는데, 이게 중복이었나 보네요.

죄송;;. 앞으로는 확인하고 올릴께요. 아휴~ 창피해라~~

 

ps)선언영역에서 변수를 사용하였는데, 특별한 이유가 있는지요?

 

profile

[레벨:30]아별

2012.11.23 11:33:16
*.104.126.21



고수가되고파님..

공부를 열심히 하시는 모습이 보기 좋습니다.

 

답변을 얻으셨으면 그에 대한 피드백도 중요합니다.

그러면서 저도 배우거든요.. 아.. 이렇게 설명하면 이해를 잘 못하시는구나.. 라든가..

이렇게 설명드리면 좋아하시는구나.. 이런 것들요..

 

이미 드린 답변을 같은 내용으로 다시 질문하신다는 것은..

제 답변을 무시하시는거라고 밖에 생각이 안되네요..

솔직히 기분이 썩 좋지는 않습니다.

 

온라인의 경우..

오프라인 보다 서로의 감정을 상하게 하기 쉽습니다.

상대방의 표정이나 제스쳐를 볼 수 없는 상태에서 오로지 텍스트로만 커뮤니케이션하니까요..

조금만 더 주의를 기울인다면 모두가 즐겁고 행복한 온라인 커뮤니티가 될 것 같습니다.

 

감사합니다.

 

ps. 사용하신 프로시저가.. 재귀호출 방식을 사용하기 때문에 외부에 변수를 설정한 것입니다.

      내부에 변수를 설정하면.. 서브폴더 파일을 검색할때마다

     변수가 계속 초기화 되기때문에 같은 셀에 반복해서 파일이름을 집어넣을겁니다.

 

Private Function eachFolder(mainFolder As String)
    '### 실행 내용..
    For Each subFolder In fldName.SubFolders
        '### 이 부분이 재귀호출에 해당하죠..
        '### 자기 자신(eachFolder)을 다시 호출하는 겁니다.

        eachFolder subFolder.Path
    Next subFolder
End Function

 

[레벨:4]고수가되고파

2012.11.23 18:17:37
*.104.208.234

정말 죄송합니다. 꾸벅~

앞으로 주의하겠습니다.

문서 첨부 제한 : 0Byte/ 2.00MB
파일 제한 크기 : 2.00MB (허용 확장자 : *.*)
List of Articles
번호 제목 글쓴이 날짜 조회 수sort
공지 공지 [공지] 아별닷컴의 엑셀 질문방 폐쇄합니다. 카페 질문방 이용하세요.. imagefile [레벨:30]아별 2015-04-23 44510
442 VBA vba 방향키 질문입니다 [4] [레벨:4]기능인 2013-07-11 4093
441 아별님 질문이 있습니다. [2] 흑천황 2009-07-16 4091
440 엑셀일반 질문이 있습니다 셀수정시간을 표시 해주는..방법??? [4] [레벨:2]큰아빠에요 2013-02-09 4088
439 엑셀일반 빈셀 색채우기 [1] [레벨:0]캠핑투 2014-02-21 4056
438 개체 라이브러리가 잘못되었거나.. [1] [레벨:3]베드로시안 2011-02-22 4052
437 함수와 수식이 적용안되는데 왜 그런거죠? file [2] [레벨:3]유령 2010-09-10 4051
436 SUMIF 해당조건에 맞는 월사용액 구하기 file [2] [레벨:4]성투은자 2013-04-29 4049
435 엑셀에서 컴퓨터시간 자동변경하기 [2] [레벨:1]사랑 2010-12-16 4015
434 상업송장 엑셀로 작성하는 부분 file [5] [레벨:5]정화 2011-05-27 4012
433 완전 초보자가 볼수있는 책 [1] [레벨:1]오늬맘 2009-07-08 4010
432 VBA 아별님 안녕하세요 file [레벨:2]북곰 2014-07-09 3994
431 엑셀 쏄 합치기에 대한 간단한? 질문 입니다. file [1] [레벨:1]Sudd 2011-03-19 3992
430 피벗테이블 엑셀 문의 _ 교육 이수 현황 피벗테이블로 요약하기 file [1] [레벨:1]박주연 2013-01-21 3985
429 VBA vba 등록질문하겟습니다. file [6] [레벨:4]신강현 2013-02-02 3976
428 엑셀수식 (1년 전 당월~올해 전월 사용량) 합계의 월평균 구하기 file [3] [레벨:4]성투은자 2013-03-04 3975
427 차트 시작일과 종료일만으로 자동 일정 그래프 작성하기 file [1] [레벨:1]질베르토 2013-04-15 3967
426 엑셀일반 빠른실행도구모음 자동숨김 해제 imagefile [2] [레벨:2]데피 2014-06-16 3961
» VBA 특정폴더 파일 실행 file [4] [레벨:4]고수가되고파 2012-11-22 3958
424 엑셀일반 엑셀 파일 열림 지연현상 [1] [레벨:4]쟈니 2012-04-06 3948
423 VBA .Find 랜덤 컨틀로바질문입니다.. [3] [레벨:4]신강현 2013-01-21 3932