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

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

특정폴더 파일 실행

VBA 조회 수 3973 추천 수 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 44891
542 엑셀수식 사용자목록 필요여부 file [2] [레벨:4]성투은자 2013-02-04 3118
541 VBA vba 행 삽입 file [2] [레벨:4]고수가되고파 2012-10-10 3120
540 엑셀수식 match 함수 #N/A 오류 file [2] [레벨:4]성투은자 2014-02-17 3123
539 아별툴관련질문 설치시 오류 질문드립니다. [4] [레벨:1]pritsno2 2013-06-28 3126
538 엑셀수식 자동계산 질문입니다._세금계산서 자리수 & 숫자 한글 표시 file [4] [레벨:5]정화 2011-09-14 3127
537 추가기능(AddIns) 사용자지정 메뉴 아이콘 크기 크게 가능 한가요? [4] [레벨:5]맑은이슬 2013-03-15 3134
536 SUMPRODUCT 이런 다중조건도 가능할까요? file [4] [레벨:2]진주22 2013-04-04 3142
535 엑셀일반 칸에 맞게 붙여넣기 하는법이 궁금해요! imagefile [1] [레벨:1]냠냠이 2015-01-04 3144
534 엑셀수식 엑셀 함수관련해서 질문드려요 file [레벨:4]요셉 2014-11-04 3148
533 VBA 오늘은 간단한 것 질문할께요 _ VBE 모듈, 유저폼 내보내기(Export) 방법 [4] [레벨:3]엑셀대단해 2012-03-05 3159
532 엑셀일반 부분합 질문이요 file [1] [레벨:4]요셉 2013-08-01 3163
531 VBA 사진 삽입 file [3] [레벨:1]비베초보 2013-12-16 3168
530 드롭다운 메뉴를 만들고 싶습니다 file [4] [레벨:2]파란달 2011-07-21 3180
529 엑셀수식 이름 범위를 여러열에 걸쳐 지정 후 조건문 수식 만들기 file [1] [레벨:4]성투은자 2013-02-06 3188
528 엑셀수식 분포도 그래프 [1] [레벨:5]눈물바다 2012-09-05 3189
527 엑셀수식 엑셀 수식 질문드려요~ _ 여러 행 단위로 정렬하기, 사용자 지정 목록으로 정렬하기.. file [2] [레벨:4]요셉 2014-02-13 3190
526 엑셀일반 기초질문 3개 드립니다. 감사합니다. file [3] [레벨:1]Patric Jane 2013-03-13 3193
525 엑셀일반 정렬해서 평균을구하고 차이 여쭤봅니다. file [5] [레벨:4]우보천리 2011-09-30 3194
524 피벗테이블 피벗에서 중복값을 하나의 숫자로 판단하여 표기하는 방법 file [3] [레벨:1]삽질대마왕 2014-07-25 3200
523 VBA ^^ 또다른 질문입니다. _ 한 시트에서 다른 시트로 데이터를 순차적으로 붙여넣기 file [1] [레벨:2]광택입니다 2011-11-15 3210