컴퓨터/엑셀

엑셀 VBA "파일이름 가져오기"

풍경소리^^ 2017. 9. 16. 07:30

http://kin.naver.com/qna/detail.nhn?d1id=1&dirId=102020101&docId=138927088&qb=7YyM7J287J2066aE6rCA7KC47Jik6riw&enc=utf8§ion=kin&rank=2&search_sort=0&spq=0&pid=Tkx6qspVuElssaFpCHVssssssCZ-436688&sid=xFQGZVzSHNkkjU%2BLnZoKnA%3D%3D


Dim rng As Range
    For Each rng In Columns("A").SpecialCells(2, 1) 'A열 숫자만 선택
        With rng
        .Offset(, -21) = Mid(ThisWorkbook.Name, 5, 4) '파일이름에서 5번째문자부터4개가져오기

        End With
    Next rng