文字操作 拡張子なしのファイル名取得
※より実装に近く表示させる為、コードの改行を避けています。スマホ等で閲覧される際は向きを変えてご覧ください。
※実装するバージョンによってはバージョンアップの仕様により動作しないコードもあります。実装には動作確認の上ご使用下さい。
'***************************** '拡張子なしのファイル名取得 '***************************** 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 |