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

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

특정폴더 파일 실행

VBA 조회 수 3934 추천 수 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
번호 제목 글쓴이 날짜 조회 수
공지 공지 [공지] 아별닷컴의 엑셀 질문방 폐쇄합니다. 카페 질문방 이용하세요.. imagefile [레벨:30]아별 2015-04-23 42863
13 VBA ^^ 또다른 질문입니다. _ 한 시트에서 다른 시트로 데이터를 순차적으로 붙여넣기 file [1] [레벨:2]광택입니다 2011-11-15 3166
12 VBA SUMPRODUCT 질문 !! [1] [레벨:2]광택입니다 2011-11-01 3216
11 VBA 두번째 질문 file [1] [레벨:2]광택입니다 2011-10-21 2959
10 VBA 도와 주세요. file [1] [레벨:2]광택입니다 2011-10-21 3375
9 VBA 매크로.. [1] [레벨:2]광택입니다 2011-10-18 3008
8 VBA 한셀안의 서식을 다르게 지정할 수 있는 방법 없을까요? file [5] [레벨:4]부루끄 2011-09-28 6075
7 VBA 현재 선택 된 셀을 기준으로 같은방식의 연산결과 값을 산출하는 법 file [1] [레벨:4]부루끄 2011-07-26 4082
6 VBA VBA로 정렬하는 법 문의 file [6] [레벨:4]부루끄 2011-07-21 6091
5 VBA 수식이 입력된 셀은 자동으로 색상이 들어가게 하는 방법 [5] [레벨:4]부루끄 2011-07-15 4571
4 VBA 엑셀 열 추가 _ 엑셀의 마지막 셀 재 인식시키는 팁 ActiveSheet.UsedRange.Select imagefile [1] [레벨:5]눈물바다 2009-08-27 10096
3 VBA .Find 재고 입고월 분석(vba) file [3] [레벨:1]럽웨어 2009-07-24 7800
2 VBA .Find ListBox1 에 추가가 되지를 않습니다. file [3] [레벨:1]사오정원조 2009-07-03 6816
1 VBA .Find 매크로 질문입니다.~ [2] [레벨:1]카멜 2009-07-02 6824