- Excel VBA 質問スレ Part38 [転載禁止]©2ch.net
495 ：デフォルトの名無しさん[sage]：2015/10/21(水) 20:05:40.83 ID:AyxO5/kI - >>487
Dim path As String
path = "\\2015年度\10月21日\xxx.xls "
path = Replace(path, "\", "")
path = Replace(path, "年度", "/")
path = Replace(path, "月", "/")
path = Left(path, InStr(path, "日") - 1)
Debug.Print path
'どうぞ^^
|