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

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

안녕하세요 아별님

 

저번에 보내주신 답변을 참고 하기는 하였으나 , 제가 원하던 구조랑 달라서 응용이 어렵네요 ^^.

 

파일명으로 검색을 하고 싶었는데... 폴더명으로 검색이 되니 이해가 잘 안되는거 같아 다시 한번 질문 드립니다.

 

A사과 / B사과 / C사과 / A배 / B배 / C배 라는 엑셀파일이 있을때 제가 사과 라는 단어를 입력하면 ,

 

사과라는 단어가 포함된 엑셀파일만 링크가 걸리는 방법을 알고 싶습니다..

 

 

인터넷에 보니까 제가 원하는 구조로 된 엑셀파일이 있기는 한데... 잠겨 있어서 코드 분석이 힘드네요..

 

^^ 도와 주세요 아별님

 

항상 감사합니다.

 

 


댓글 '1'

profile

[레벨:30]아별

2012.10.08 19:33:14
*.104.126.21

광택입니다님..

안녕하세요?

 

일전에 알려드린 자료를 조금만 수정하면 원하시는 것을 구현하실 수 있었을텐데요..

강좌파일 다운로드 링크 : http://www.iexceller.com/MyXls/Lectures/VisualBasic/VB0056.zip

 

좀 더 공부를 하셔야할 것 같습니다.

 

 

이번에는 그냥 만들어드리지만..

다음부터는.. 이렇게 만들었는데.. 이런 부분이 안된다는 식으로 질문해주시기 바랍니다.

그래야 실력이 향상될 수 있습니다.

 

 

다운받기 : abyul.com_SearchingFiles_20121008-1.zip

 

 

 

'### 재귀호출 함수를 이용하여 하위폴더의 파일까지 검색이 가능한 파일 검색 로직입니다.

'### http://abyul.com/

Option Explicit
Dim r As Long
Dim rngTarget As Range

 

Sub ab_SearchSubFoldersByRecursiveCall3()
    Dim strFolder As String
    strFolder = ThisWorkbook.Path & "\"
    '### 상위 폴더셀에 아무 값도 넣지 않으면 현재 파일이 있는 폴더 하위 폴더 전체를 검색합니다.
    If Range("B3") <> "" Then strFolder = strFolder & Range("B3") & "\"
    '### 하위 폴더셀에 아무 값도 넣지 않으면 2012년 전체를 검색합니다.
    If Range("C3") <> "" And Range("C3") <> "전체" Then strFolder = strFolder & Range("C3") & "\"
    Set rngTarget = Range("B7")
    Range(rngTarget, rngTarget.End(xlDown)).ClearContents
    r = 0
    Call ab_RecursiveCall3(strFolder)
End Sub

  

Sub ab_RecursiveCall3(Path As String)
    Dim i As Integer
    Dim intFolder As Integer
    Dim strFile As String
    Dim strFolder() As String
    Dim strTemp As String
    Dim Msg As String
    Application.DisplayStatusBar = True
    strFile = Dir(Path)
   
    Dim cnt As Long: cnt = 0
    Do While strFile <> ""
        Application.StatusBar = "검색 중... " & Path & strFile
        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
        strFile = Dir()
    Loop
   
    strFile = Dir(Path, vbDirectory)
    Do While strFile <> ""
        If strFile <> "." And strFile <> ".." Then
            If GetAttr(Path & strFile) = vbDirectory Then
                intFolder = intFolder + 1
                ReDim Preserve strFolder(intFolder)
                strFolder(intFolder) = Path & strFile
            End If
        End If
        strFile = Dir()
    Loop
   
    For i = 1 To intFolder
        Call ab_RecursiveCall3(strFolder(i) & "\")
    Next i
    Application.StatusBar = ""
End Sub

 

 

첨부
문서 첨부 제한 : 0Byte/ 2.00MB
파일 제한 크기 : 2.00MB (허용 확장자 : *.*)
List of Articles
번호 제목 글쓴이 날짜 조회 수
공지 공지 [공지] 아별닷컴의 엑셀 질문방 폐쇄합니다. 카페 질문방 이용하세요.. imagefile [레벨:30]아별 2015-04-23 17263
521 엑셀일반 특정열을 밑으로 25칸 내리는 방법이 있나요? file [2] [레벨:0]싸이 2012-10-30 2073
520 피벗테이블 피벗 통합 문의 드려요~~ file [11] [레벨:1]예진 2012-10-27 1712
519 추가기능(AddIns) 아별툴 추가기능 실행시 에러 imagefile [1] [레벨:2]성현아방 2012-10-25 1536
518 SUMPRODUCT SUMPRODUCT file [2] [레벨:0]아민 2012-10-24 1235
517 VBA Excel에서 DLL Load file [2] [레벨:1]와룡 2012-10-23 2000
516 엑셀수식 중복된 행을 묶으면서 값은 합치는 내용 file [1] [레벨:1]여엉 2012-10-19 3023
515 VBA 셀병합 효과 file [2] [레벨:4]고수가되고파 2012-10-19 1348
514 VBA 특정폴더 내 숨기지 않은 파일 모두 열기 [2] [레벨:4]고수가되고파 2012-10-18 2282
513 VBA 인위적 계산 셀 찾기 file [2] [레벨:4]고수가되고파 2012-10-18 1852
512 VBA 사용자 정의 폼 관련 file [2] [레벨:4]고수가되고파 2012-10-16 1589
511 VBA 셀 병합 관련 file [2] [레벨:4]고수가되고파 2012-10-11 1379
510 셀서식(표시형식) 아별님 복사관련해서 문의 사항이 있습니다 [7] [레벨:3]월전천넘 2012-10-10 1173
509 VBA vba 메세지 창 제어 file [4] [레벨:4]고수가되고파 2012-10-10 1356
508 VBA vba 행 삽입 file [2] [레벨:4]고수가되고파 2012-10-10 2163
507 엑셀일반 아별님! 컨트롤 서식 조언 부탁합니다 file [1] [레벨:2]북곰 2012-10-08 1083
506 VBA 액셀 아르바이트 좀 해주세요 [2] [레벨:1]구삼이 2012-10-08 1166
505 엑셀수식 추석은 잘 지내셨는지요 file [1] [레벨:0]아민 2012-10-03 912
» VBA 파일&폴더 엑셀파일명으로 검색하여 링크걸기 file [1] [레벨:2]광택입니다 2012-09-29 2885
503 엑셀일반 안녕하세요 아별님~ [1] [레벨:4]나카타 2012-09-27 936
502 날짜/시간 수식 답변 너무 감사하구요 재문의 드립니다. file [5] [레벨:0]아민 2012-09-27 988