vbaツール

セールからパスを開く

Sub openfloud()

    Dim addressStr As String

    addressStr = Application.Selection.Address

    Dim fso As FileSystemObject

    Set fso = New FileSystemObject
    
    addressStrArr = Strings.Split(addressStr, ":")
    
    If UBound(addressStrArr) <> 0 Then
        MsgBox "セールを選択してください。"
    ElseIf fso.FolderExists(Range(addressStr)) Then
    
        Shell "cmd.exe /c explorer.exe " & Range(addressStr)
    
    End If
    

End Sub