Excel VBA 質問スレ Part69

[399 デフォルトの名無しさん (ﾜｯﾁｮｲ a95f-nopx) 2021/01/29(金) 17:32:34.00 ID:wsDc5NzC0]

396を関数に
Private Function Getファイル名(byval s as string) As String
Getファイル名 = Replace(Replace(Replace(Replace(s, vbCr, ""), vbLf, ""), vbCrLf, ""), vbNewLine, "")
End Function