右側からスペースがあるところまで抜き出したい

Question

こんにちわ
初心者ですが、Excelでマクロを書いています。

テキストファイルから行を取得し右から、スペースのある部分まで抜き出して、
抜き出した文字の前後のスペースを削除し、文字を出力させたいです。

Sub Run()
    Dim OpenFileName As String
    'ファイルを開くダイアログ
    ChDir ThisWorkbook.Path & "\"
    OpenFileName = Application.GetOpenFilename("テキストファイル,*.txt")
    
    If OpenFileName <> "False" Then
        Open OpenFileName For Input As #1
    'Else
    End If
    
    Dim line1 As String
    Dim line2 As String
    
    '2行読み込み
    Line Input #1, line1
    Line Input #1, line2
    
    '2行目
    Dim staff As String
    Dim namae As String
    line2 = RTrim(line2)
    staff = Right(line2, InStrRev(line2, " ") - 1)
　　namae = Trim(staff)
    
    Debug.Print , namae;
    
    Close
    End Sub

2行目のもともとの文字列は
東京　000002　　2018/08/01　　山田 太郎
といった具合です。
わかりづらいので半角スペースをで表現すると
東京000002**2018/08/01*****山田＊太郎*
のようなイメージです。（＊は全角スペース）
要はこの「山田　太郎」を抜き出したいです。
ループさせる予定なので名前は山田太郎固定ではないです。

line3 = RTrim(line3)←右側のスペースを削除して
staff = Right(line3, InStrRev(line3, " ") - 1)←右から最初のスペースがあるところまでを取得

　　namae = Trim(staff)←前後の余計な文字を削除

と考えていますが、これを実行すると必要以上の文字が取得されてしまいます。
考え方がおかしいのでしょうか？

よろしくお願いします。

追記
staff = MID(line3, InStrRev(line3, " ") + 1)
でうまくできました。ありがとうございました。

Answer 1

InstrRev関数は見つかった文字の「先頭からの位置」を返します。

Right関数には「末尾からの文字数」を指定します。

指定方法が違うため、意図した範囲が取得できていないと思われます。

今回であればMid 関数を使用すると、簡単に意図した範囲の文字を取得できるはずです。

Comments

[pro-poke5]

InstrRev関数hは右から何番目を返すのではなく先頭の左から何番目を取得するのですね、勘違いしていました。