シートタブの文字列の一部を取得したい

質問

Excelのシートタブの文字列が
#####_##_20021215_###_######_######となっています。
20021215の部分だけを取得し、任意のセルに表示したいのです。
(できれば、2002年12月15日としたい)
VBAでやる方法をお教えください。

回答No.1

nishi6 · ベストアンサー

当方、Excel97ですが、質問にあるような長いシート名は入力できませんでした。

とりあえず、処理例です。

標準モジュールに貼り付けます。
アクティブなシートに対して作用します。今は結果をA1セルに書き込んでいます。
↓
Sub getPartSheetName()
　　Dim sNM As String 'シート名から取り出した部分

　　sNM = Mid(ActiveSheet.Name, 10, 8)
　　Range("A1") = Format(DateSerial(Mid(sNM, 1, 4), Mid(sNM, 5, 2), Mid(sNM, 7, 2)), "yyyy年m月d日")
End Sub

お礼

早速のご回答感謝いたします。うまくいきました。
このシート名は好き好んで付けたものではなく、データベースからＤＬしたcsvファイルに付けられていたものでした。どうもありがとうございました。