Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

12759 / 76734

←次へ　｜　前へ→


	【69490】Re:Excelファイル名から文字列を抽出する方法

ichinose - 11/7/23(土) 8:53 -


	引用なし

	パスワード

おはようございます。

>経済学部_07562_○○○○.xls
>工学部_11309_◎◎◎.xls
>文学部_15503_△△△△.xls
>薬学部_03118_●●●●●.xls
ここまでパターンがきちんと決まっているなら・・・、

Sub test()
　　Dim flnm As String
　　flnm = "経済学部_07562_○○○○.xls"
　　MsgBox Replace(Split(flnm, "_")(2), ".xls", "")
　　flnm = "工学部_11309_◎◎◎.xls"
　　MsgBox Replace(Split(flnm, "_")(2), ".xls", "")
　　flnm = "文学部_15503_△△△△.xls"
　　MsgBox Replace(Split(flnm, "_")(2), ".xls", "")
　　flnm = "薬学部_03118_●●●●●.xls"
　　MsgBox Replace(Split(flnm, "_")(2), ".xls", "")
End Sub

.xlsという文字列が氏名のなかには、まずないでしょうから・・・・。

4 hits

▼

【69489】Excelファイル名から文字列を抽出する方法 東村 11/7/23(土) 8:32