文字操作 拡張子なしのファイル名取得

VB&VBA
FROG ふろっぐ
 
  • オプション

    本文印刷

    お気に入りに追加

  • 検索

    Googlewwwjp-ia
     

    Googlewwwjp-ia
     
  • 情報

  • 関連

[VB&VBA][文字操作 拡張子なしのファイル名取得]
Function FileName() As String
'*****************************
'拡張子なしのファイル名取得
'*****************************

Dim i As Long, nm As String

nm = ThisWorkbook.Name
i = InStrRev(nm, ".")
FileName = Mid(nm, 1, i - 1)

'-------------------------------------------------------------------------
'【構文】
'InstrRev(stringcheck, stringmatch[, start[, compare]])
'文字列から指定文字列を最後から検索し文字位置を返す

'stringcheck    必ず指定    検索先の文字列式を指定。
'stringmatch    必ず指定    検索する文字列式を指定。
'start          省略可能    各検索の開始位置を設定。
'compare        省略可能    文字列比較のモード指定。規定値バイナリモード
'
'引数compareの設定値
'
'定数 値 説明
'vbUseCompareOption    -1 Option Compare ステートメントの設定比較
'vbBinaryCompare        0 バイナリ モード比較
'vbTextCompare          1 テキスト モード比較
'VbDatabaseCompare      2 Microsoft Access の場合
'-------------------------------------------------------------------------
End Function

Private Sub test()
MsgBox FileName
End Sub





Production Japan Import Application. Since 1998