나눔터  
  HOME > 나눔터 > 묻고답하기 > 엑셀
엑셀
엑셀에 대한 질문과 답변을 올려주세요. 단, 취지에 맞지 않는 글은 운영자가 삭제합니다.
 "000 님, 도와주세요", "부탁 드립니다.", "급합니다!" 등과 같이 막연한 제목을 달지 말아주세요.
[필독] 빠르고 정확한 답변을 얻는 16가지 Tip !
[필독] 저작권법 개정에 따른 이용안내
작성자:  

 참서리 (k5953)

추천:  2
파일:     get_pdf_file_names.xlsm (744KB) 조회:  1231
제목:   [RE]지정폴더내의 pdf파일만 파일명을 엑셀에 리스트하기?
     
  Option Explicit

'-----------------------------
Sub get_pdf_files()
'-----------------------------

    Dim sFilter As String: sFilter = "D:\pdf\*.pdf"
    Dim sFile As String
    Dim oDic As Scripting.Dictionary: Set oDic = CreateObject("Scripting.dictionary")
    Dim sKey As String
    
    sFile = VBA.Dir(sFilter)
    
    '----------------------
    Do Until sFile = ""
    '----------------------
    
        sKey = Split(sFile, "_")(0)
        
        '-----------------------
        If oDic.Exists(sKey) Then
        '-----------------------
             oDic.Item(sKey) = oDic.Item(sKey) & "/" & Replace(sFile, ".pdf", "")
        Else
        
            oDic.Add sKey, Replace(sFile, ".pdf", "")
            
        End If
        
        sFile = Dir
        
        Debug.Print sFile
        
    '-----------------------
    Loop
    '-----------------------
        
    Dim v As Variant
    Dim rngX As Range
    Set rngX = Range("E4")
    Dim vResult As Variant
    
    '-----------------------
    For Each v In oDic.Keys
    '-----------------------
        rngX.Value = v
        vResult = Split(oDic.Item(v), "/")
        rngX.Offset(0, 1).Resize(1, UBound(vResult, 1) + 1).Value = vResult
        
        Set rngX = rngX.Offset(1)
        
    Next

End Sub
 
[불량 게시물 신고]  
참서리여기 자세히 설명되어 있습니다.
https://youtu.be/kCd5zoKxUf0
04-13 (04:01)
삭제 ■신고
터버기감사합니다.04-14 (17:49)
삭제 ■신고
        
  

작성일 : 2019-04-13(03:59)
최종수정일 : 2019-04-13(03:59)
 


 ◎ 관련글

  제 목   작성자   날짜
지정폴더내의 pdf파일만 파일명을 엑셀에 리스트하기? 터버기 2019-04-11
[RE]지정폴더내의 pdf파일만 파일명을 엑셀에 리스트하기? 참서리 2019-04-13