Left,Mid関数について

Question

aa bbbb.xlsxというブックがありこれをシート名にする時に
bbbbのみシート名にしたいのですがうまいくいきませんので教えてください。
※　aaとbbbbの文字数はブックによって変わりますaaとbbbbの間にはスペースがあります。

sFileBaseName = Mid(sFileBaseName.InStrRev, (""), 5)

Answer 1

Sub sample1()

    Dim sFile, a, b
    sFile = "aa bbbb.xlsx"
    Debug.Print sFile       'aa bbbb.xlsx
    
    a = Left(sFile, InStrRev(sFile, ".") - 1)
    Debug.Print a           'aa bbbb
    
    b = Mid(a, InStrRev(a, " ") + 1)
    Debug.Print b           'bbbb

End Sub

Sub sample2()

    Dim sFile, a, b
    sFile = "aa bbbb.xlsx"
    Debug.Print sFile       'aa bbbb.xlsx
    
    a = Split(sFile, ".")
    Debug.Print a(0)        'aa bbbb
    
    b = Split(a(0), " ")
    Debug.Print b(1)        'bbbb

End Sub

Comments

[退会済みユーザー]

sample1の方を参考に組んだところ成功しましたありがとうございました。

Answer 2

そのブック名を.で分割すればaa bbbbが得られますんで、それをスペースで分割しましょう

Comments

[退会済みユーザー]

回答ありがとうございます。
sFileBaseName = Left(sFile, InStrRev(sFile, ".") - 1) & Mid(sFile.Name, (""))
こういった形を試したりしましたがうまいきません、詳しく教えていただけると幸いです、

[y_waiwai]

Left関数もMid関数も、分割する関数ではありません。
それらの関数は使わないように。

[退会済みユーザー]

解決しましたありがとうございました