拡張子を含まないファイル名の取得方法

拡張子を含まないファイル名の取得方法
'ファイル名取得
Dim trueName As String
trueName = ActiveWorkbook.Name
Dim kcsi As Long
kcsi = InStrRev(trueName, ".")
Dim onlyName As String
onlyName = Left(trueName, kcsi - 1)

【説明】
trueName 拡張子を含む元ファイル名
kcsi 左から数えた拡張子の位置
onlyName 拡張子を含まないファイル名
※ InStrRev という関数は、任意の文字（今回の場合、"."）を右から探して最所に見つかった任意の文字を、左から数えて何番目にあるかを取得してくれる。
例）abc.def.ghi ⇒　8 （右の"."を探す）