Instr関数・InstrRev関数は文字列を検索する。ファイルパス取得に威力

Sub InStr関数サンプル1()

    Dim TestSent As String
    Dim SeaWord As String
    Dim CoNo As Long
    
        TestSent = Range("C2")
        SeaWord = Range("C3")
        'Instr関数で存在を検索する
        CoNo = InStr(TestSent, SeaWord)
        If CoNo <> 0 Then
            MsgBox True & " 検索ワード " & SeaWord & _
                      " は文章内にあります。"
        Else
            MsgBox False & " 検索ワード " & SeaWord & _
                       " は文章内にありません。"
        End If
End Sub

Sub InstrRev関数サンプル2()

    Dim MyPass As String, Fname As String
    Dim n As Long
    
        MyPass = "C:\Users\owner\Documents\sample.xlsx"
        
        '文字列の右から数えて最初の「\」の位置を調べる
        n = InStrRev(MyPass, "\")
        'Len関数で文字列の全体の文字数を数えている
        'Right関数で文字列の右から必要数の文字を切り取る
        Fname = Right(MyPass, Len(MyPass) - n)
        
        MsgBox "ファイル名は　" & Fname
End Sub

Sub InStr関数サンプル2()

    Dim MyPass As String, Fname As String
    Dim n As Long
    
        MyPass = "C:\Users\owner\Documents\sample.xlsx"
        'MyPassの中に「\」記号が無くなるまでループします
        Do Until InStr(MyPass, "\") = 0
            n = InStr(MyPass, "\")
　　　　 'Mid関数で文字列の左からn+1の位置から末まで切り取る
            MyPass = Mid(MyPass, n + 1)
        Loop

    MsgBox "ファイル名は　" & MyPass
End Sub

Sub InStr関数サンプル3()

    Dim MyPassD As String, MyPass As String
    Dim No() As Long
    Dim n As Long, p As Long, r As Long
    Dim kazu As String
    
        MyPassD = "C:\Users\owner\Documents\sample.xlsx"
        MyPass = "C:\Users\owner\Documents\sample.xlsx"
    '「\」記号が全部でいくつあるかを計算します
        p = Len(MyPass) - Len(Replace(MyPass, "\", ""))
    '配列変数を再定義します
        ReDim No(p)
        r = 0
        For n = 1 To p
    '「\」記号がいくつ目にあるかを調べます
            r = InStr(MyPass, "\")
            
            If r = 0 Then
                Exit For
            Else
    '「\」が見つかった位置の文字数を配列の要素として代入します
                No(n) = r
    '次の「\」を見つけるために文字列を修正します。
                MyPass = Mid(MyPass, r + 1)
                kazu = kazu & No(n) & ","
            End If
        Next n
      
        MsgBox "この絶対パスは、" & vbCrLf & _
　　　　　　　　"￥記号は " & kazu & "番目にあります" & vbCrLf & _
　　　　　　　　Left(MyPassD, No(1) - 2) & vbCrLf & _
　　　　　　　　Mid(MyPassD, No(1) + 1, No(2) - 1) & vbCrLf & _
　　　　　　　　Mid(MyPassD, No(1) + No(2) + 1, No(3) - 1) & vbCrLf & _
　　　　　　　　Mid(MyPassD, No(1) + No(2) + No(3) + 1, _
　　　　　　　　　　　　　　　　　　　　　　　　　No(4) - 1) & vbCrLf & _
　　　　　　　　Right(MyPassD, Len(MyPassD) - No(1) - No(2) _
　　　　　　　　　　　　　　　　　　　　　　- No(3) - No(4)) & vbCrLf & _
　　　　　　　　"のフォルダ・ファイル構成になっています。"

End Sub