即効テクニック |
引数stringで指定した文字列の左から、引数lengthで指定した長さの文字列を取得します。 構文 Right(String, Length) RightB(String, Length) 設定項目 内容 String 取り出し元となる文字列式を指定 [省略不可] Length 取り出す文字列の長さを指定 [省略不可] 次のサンプルでは、アクティブなブックの名前の右から3文字分、つまり拡張子を取得し、それでファイルの種類を特定しています。 ●サンプル●
Sub RightSamp1() Dim myStr As String '---拡張子取得 myStr = Right(ActiveWorkbook.Name, 3) Select Case myStr Case "xls" MsgBox "エクセルのブックです" Case "csv" MsgBox "CSVファイルです" Case "txt" MsgBox "テキストファイルです" Case Else If ActiveWorkbook.Path = "" Then MsgBox "新規ブックです" Else MsgBox myStr & "ファイルです" End If End Select End Sub