[[20150726104626]]　『別シートのセルをファイル名にする』（くまもん）　ページの最後に飛ぶ

『別シートのセルをファイル名にする』（くまもん）

使用しているファイル名：【時点】在庫表.xlsx

マクロを実行しているファイル名：マクロ実行.xlsm

マクロ実行.xlsmにボタンを作成し、
実行すると”C:\在庫表格納”に保存されるようにしていますが、

マクロ実行.xlsmのB1セルに表示されている文字（例えば：●●●）を
使用して名前を付けて保存したい

【●●●時点】在庫表.xlsx

できますか。

宜しくお願いいたします。

＜使用 Excel：Excel2013、使用 OS：Windows8 ＞

 いろんな方法がありますが、たとえば以下は参考になりますか？

 Sub Sample()
    Dim curName As String
    Dim outName As String
    Dim AddStr As String

    curName = "【hoge】hogehoge.xlsx"
    AddStr = "●●●"

    outName = "【" & AddStr & Mid(curName, 2, InStr(curName, "】") - 2) & "】" & Mid(curName, InStr(curName, "】") + 1)

    MsgBox outName

 End Sub

（β） 2015/07/26(日) 11:31

（β）さんありがとうございました。
今後ともよろしくお願いします。
（くまもん） 2015/07/26(日) 11:43

 もう見ないかもしれませんが。

 よく考えると（よく考えなくても）以下で充分でした。（汗）

 Sub Sample2()
    Dim curName As String
    Dim outName As String
    Dim AddStr As String

    curName = "【hoge】hogehoge.xlsx"
    AddStr = "●●●"

    outName = Left(curName, 1) & AddStr & Mid(curName, 2)

    MsgBox outName

 End Sub

（β） 2015/07/26(日) 15:20

コメント返信：