[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『別シートのセルをファイル名にする』(くまもん)
使用しているファイル名:【時点】在庫表.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
もう見ないかもしれませんが。
よく考えると(よく考えなくても)以下で充分でした。(汗)
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
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.