ActiveWorkbook.Nameから拡張子

対象：Excel2007, Excel2010, Excel2013, Windows版Excel2016

このサイト・インストラクターのネタ帳のアクセスログを眺めていて、
「vba activeworkbook.name 拡張子」
という検索キーワードでのアクセスがあることに気づきました。

Excel VBA（Visual Basic for Applications）で、「ActiveWorkbook.Name」というオブジェクト式から、アクティブなブックの拡張子を取得するには、どのようなコードを書けばいいのかを探していらした方による、検索キーワードでしょうか。

［スポンサードリンク］

ActiveWorkbook.Nameから拡張子を取得するサンプルマクロ

以下のSubプロシージャを実行すると、アクティブなブックの拡張子がメッセージボックスに表示されます。

Sub アクティブブックの拡張子()
　Dim bk_nm As String 　' アクティブブックの名前
　Dim pos As Long　' 「.」の位置

　bk_nm = ActiveWorkbook.Name
　pos = InStrRev(bk_nm, ".")
　If pos > 0 Then
　　MsgBox Mid(bk_nm, pos + 1)
　End If
End Sub

アクティブなブック名を変数に格納しておいて、
　　bk_nm = ActiveWorkbook.Name

「.」を、InStrRev関数を使って、アクティブブック名の後ろから探して、
　　pos = InStrRev(bk_nm, ".")

「.」より後ろの文字列をMid関数で取得して、メッセージボックスに表示しています。
　　　MsgBox Mid(bk_nm, pos + 1)

オブジェクト変数を使うのなら以下のようなSubプロシージャです。

Sub アクティブブックの拡張子_オブジェクト変数()
　Dim bk As Workbook
　Dim pos As Long 　'「.」の位置

　Set bk = ActiveWorkbook
　pos = InStrRev(bk.Name, ".")
　If pos > 0 Then
　　MsgBox Mid(bk.Name, pos + 1)
　End If
End Sub

［スポンサードリンク］

『インストラクターのネタ帳』では、2003年10月から平日のほぼ毎日、Microsoft Officeの使い方などを紹介し続けています。
VBAユーザーの皆さんに向けた、Pythonの超入門書をキンドル本として出しました↓↓

Excel VBAユーザーの皆さんに向けたWord VBA入門書を、書きました↓↓

Shapeに関連するオブジェクトモデルの基本を解説したKindle本を書きました↓↓

Chartに関連するオブジェクトモデルの基本を解説したKindle本を書きました↓↓

キンドル本『もしかして、論理式がよくわからないままExcelを使ってませんか？：条件付き書式はIF関数といっしょに理解しよう！』を出しました↓↓

3年前(2020年1月)の
人気記事

「Workbooks・Workbook」の記事一覧