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

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

특정폴더 내에 여러 개의  하위폴더가 있고, 각 하위폴더 내에 여러 개의 또다른 하위폴더가 있는 구조일때,

각 폴더 안에 있는 모든 엑셀 파일을 실행하려면 생노가다인데요.

매크로를 실행하면 폴더 선택 대화상자가 뜨면서 사용자가 특정폴더를 선택하면

하위폴더까지 순환하면서 모든 엑셀파일이 실행되도록 하려고 합니다.(숨긴파일은 실행되면 안되구요) 

참고가 될만한 코드가 있는지요?


댓글 '2'

profile

[레벨:30]아별

2012.10.19 10:44:34
*.104.126.21

안녕하세요?

광택입니다님이 질문하신 내용과 유사하네요..

 

아래 답변을 참고하여 만들어보세요..

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

 

소스 중에 아래의 코드가 "사과"나 "배"를 포함하는 파일만 링크를 거는 코드인데요..

If InStr(strFile, Range("D3")) > 0 Then
     ActiveSheet.Hyperlinks.Add Anchor:=rngTarget.Offset(r, 0), Address:=Path & strFile, TextToDisplay:=Path & strFile
     r = r + 1
End If

 

이 조건문을 수정하시면 숨김파일이 아닌 파일만 대상으로 특정 작업을 할 수 있습니다.

숨김파일인지 검사하는 로직은 GetAttr함수를 사용하시면 됩니다.

(해당 파일을 열때는 Workbooks.Open("파일경로") 로 여시면 되구요..)

 

해당 파일이 일반 파일인 경우.. 0 또는 32 값을 리턴합니다.

? GetAttr("C:\abyul.com\Trash\abyul.com_Brush_Copy.abr")

 

만약 읽기 전용 속성이 있으면.. 기본 파일 값에 1을 더한 값을 갖습니다. (1 또는 33이 됩니다.)

숨김 속성만 있다면.. 기본 값에 2를 더한 값을 갖지요.. (2 또는 34가 됩니다.)

읽기 전용 속성과 숨김 속성 둘다 있다면.. 기본 값에 1+2한 3을 더한 값을 갖습니다. (3또는 35값이 되겠지요..)

 

VBA창에서 GetAttr()함수를 입력하고 F1을 누르면 되움말을 볼 수 있습니다.

 

도움이 되셨기를..

 

GetAttr 함수

참고 예제 제품별 정보

파일, 디렉터리나 폴더 속성을 나타내는 Integer를 반환합니다.

구문

GetAttr(pathname)

필수적인 요소인 pathname 인수는 파일 이름을 지정하는 문자식입니다. 이 pathname에는 디렉터리나 폴더, 드라이브가 포함될 수 있습니다.

반환값

GetAttr 함수가 반환한 값은 다음 속성값들의 합입니다.

상수 설명
vbNormal 0 일반적인 파일
vbReadOnly 1 읽기 전용
vbHidden 2 숨김
vbSystem 4 시스템 파일 매킨토시에서는 사용할 수 없습니다.
vbDirectory 16 디렉터리나 폴더
vbArchive 32 마지막 백업 후에 파일이 변경되었습니다. 매킨토시에서는 사용할 수 없습니다.
vbAlias 64 지정된 파일 이름이 별칭입니다. 매킨토시에서만 사용할 수 있습니다.


메모 이러한 상수들은 Visual Basic에 의해 지정됩니다. 코드에서 이 이름을 실제 값 대신 사용할 수 있습니다.

참고

어떤 속성이 설정되었는지 결정하기 위해서는 And 연산자를 사용하여 GetAttr 함수가 반환한 값과 원하는 개개의 파일 속성값을 비트 비교합니다. 결과가 0이 아니면 명명된 파일에 그 속성이 설정된 것입니다. 예를 들면 문서 속성이 설정되지 않았다면 다음 And 식의 반환값은 0이 됩니다.

Result = GetAttr(FName) And vbArchive

백업 속성이 설정되어 있다면 0이 아닌 값을 반환합니다.

 

 

 

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

2012.10.19 13:28:20
*.104.208.234

감사합니다.^^

살펴보겠습니다.

문서 첨부 제한 : 0Byte/ 2.00MB
파일 제한 크기 : 2.00MB (허용 확장자 : *.*)
List of Articles
번호 제목 글쓴이 날짜 조회 수sort
공지 공지 [공지] 아별닷컴의 엑셀 질문방 폐쇄합니다. 카페 질문방 이용하세요.. imagefile [레벨:30]아별 2015-04-23 67295
602 엑셀수식 특정 범위에서 값이 있는 부분의 같은 열에 있는 값을 반환 file [레벨:1]cyee7 2014-03-25 3412
601 엑셀일반 중복값제거 file [1] [레벨:4]요셉 2013-10-25 3415
600 도형회전각도 메크로 조정 [3] [레벨:6]ryanoh 2010-11-22 3425
599 엑셀수식 중복함수 질문합니다(sumif) [2] [레벨:5]눈물바다 2013-08-21 3435
598 엑셀2007 자동필터 문의 imagefile [2] [레벨:2]도시남자 2011-06-27 3436
597 엑셀일반 그래프작성 file [1] [레벨:0]핑크푸우 2013-02-08 3438
596 추가기능(AddIns) 사용자지정 메뉴 아이콘 크기 크게 가능 한가요? [4] [레벨:5]맑은이슬 2013-03-15 3438
595 추가기능(AddIns) 매크로 다른 파일에서 편하게 불러쓰는 법 [2] [레벨:6]파이스 2012-02-15 3441
594 엑셀수식 엑셀 작업 중, 질문사항! - 다중 조건의 합계 산출 방법(SUMIFS,SUMPRODUCT) [2] [레벨:4]나카타 2011-12-08 3453
593 엑셀일반 원하는 열만 추출할수 없나요?? imagefile [1] [레벨:1]wooljima0 2012-06-07 3456
592 엑셀버그 엑셀이 이상합니다.ㅜㅜ imagefile [1] [레벨:1]여엉 2013-01-29 3458
591 엑셀일반 특정 조건에 맞는 행(또는 열) 삭제 방법 궁금해요~ [2] [레벨:3]jmsynn 2012-08-07 3459
590 몇 가지 질문입니다~! (회계표시형식, 셀맞춤-세로로 가운데 등) [3] [레벨:2]여우래비 2011-02-16 3463
589 VLookup 서로 다른 표기의 값 비교 [1] [레벨:1]KOohy 2013-08-16 3467
588 VBA ^^ 또다른 질문입니다. _ 한 시트에서 다른 시트로 데이터를 순차적으로 붙여넣기 file [1] [레벨:2]광택입니다 2011-11-15 3470
587 엑셀수식 분포도 그래프 [1] [레벨:5]눈물바다 2012-09-05 3478
586 엑셀수식 날짜 함수 file [1] [레벨:5]눈물바다 2014-05-15 3484
585 VBA 숫자 문자 비교검색 file [2] [레벨:4]열심회원 2013-09-02 3490
584 엑셀일반 신입 주제에 질문 먼저라 죄송합니다 ㅠㅠ file [3] [레벨:1]에봉이 2011-12-09 3491
583 VBA 오늘은 간단한 것 질문할께요 _ VBE 모듈, 유저폼 내보내기(Export) 방법 [4] [레벨:3]엑셀대단해 2012-03-05 3499