Excel2000 VBA 文字列操作 ファイル名を名前と拡張子に分解

Excel2000 VBA  ファイル名を名前と拡張子に分解

ファイル名に使えない文字　\ / : * ? " < > |(shiftキー+\)

ファイル名は　名前.拡張子の形でドット（ピリオド）はファイル名に使えるので、単純にピリオドで区切れない。
VBEにはInStrRev関数があり調べる文字を右から検索して、最初に見つかった文字が左から何番目にあるかを数値で返す。
InStrRev関数を使えばピリオドの位置を調べピリオド以降が拡張子になるわけで、ファイル名を名前と拡張子に分解するマクロ作ってみた。

Sub ファイル名を名前と拡張子に分解()
Dim fileName, fileName2, 拡張子 As String

fileName = "Test.123ABC.xls"

'InStrRev 右側から検索して見つかった左からの位置
fileName2 = Left(fileName, InStrRev(fileName, ".") - 1)
'Len(ファイル名）はファイル名の文字数
拡張子 = Right(fileName, Len(fileName) - InStrRev(fileName, "."))

MsgBox fileName2 & "   " & 拡張子

End Sub

 

タグ：Excel2000 VBA