파일패스의 확장자를 얻는 매크로 코드

파일패스의 확장자를 얻는 매크로 코드

A열에 파일패스를 쓰고, B열에서 ctrl+k키 눌러서 실행한다.

Sub Macro1()
‘
‘ Macro1 Macro
‘
‘ 바로 가기 키: Ctrl+k
‘

Dim str
Dim dotPos

str = ActiveCell.Offset(0, -1).Value
dotPos = InStr(1, str, “.”)
‘MsgBox (dotPos)

If dotPos > 0 Then
    ActiveCell.Offset(0, 0).Value = Right(str, Len(str) – dotPos + 1)
Else
    ActiveCell.Offset(0, 0).Value = “없음”
End If

ActiveCell.Offset(1, 0).Select

End Sub