Excel VBA質問箱 IV

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

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


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

12758 / 76734

←次へ　｜　前へ→


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

かみちゃん

- 11/7/23(土) 8:58 -


	引用なし

	パスワード

こんにちは。かみちゃん　です。

ichinoseさんから回答がついていますが、書きかけていたので、そのままアップします。

>経済学部_07562_○○○○.xls
>工学部_11309_◎◎◎.xls
>文学部_15503_△△△△.xls
>薬学部_03118_●●●●●.xls
>
>
>学部_氏名NO_氏名.xlsというファイル名前から氏名部分だけを取り出したい

一例で、以下のような感じでもできます。

Sub Sample()
　Dim ss1 As String, ss2 As String
　Dim lngPos As String
　
　ss1 = "経済学部_07562_○○○○.xls"
　
　lngPos = InStrRev(ss1, "_")
　ss2 = Mid(ss1, lngPos + 1)
　lngPos = InStrRev(ss2, ".")
　If lngPos >= 1 Then
　　ss2 = Mid(ss2, 1, lngPos - 1)
　　MsgBox "実行前　" & ss1 & vbCrLf & "実行後　" & ss2
　Else
　　MsgBox "取得できません" & vbCrLf & "実行前　" & ss1
　End If
End Sub

ポイントは、文字列の後ろから _ という文字と . という文字の位置を検索しています。

7 hits

▼

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