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の使い方などを紹介し続けています。
Pythonの外部ライブラリOpenPyXL（オープンパイエクセル）の入門書を、Excel VBAユーザーに向けに書きました↓↓

Pythonの文字列フォーマットの基本をキンドル本としてまとめました↓↓

小数とPythonのdecimalモジュールの基本をキンドル本としてまとめました↓↓

図形を操作するExcel VBAの基本を解説したキンドル本を出しました↓↓

グラフを操作するExcel VBAの基本を解説したキンドル本です↓↓

『インストラクターのネタ帳』を運営する伊藤潔人が、初めて書かせていただいた書籍です↓↓

PowerPoint VBA本は、実はオブジェクトブラウザーの使い方を徹底的に解説した本です↓↓

Excel VBAユーザーを対象とした、Word VBAの入門書をキンドル本として出しました↓↓

日経BP社から出版された、Excel VBAユーザー向けのPython超入門書です↓↓

上記の『Excel VBAユーザーのためのPythonプログラミング』の元になったキンドル本です↓↓

数式を使った条件付き書式設定が苦手な方に向けたKindle本を書きました↓↓

3年前(2021年4月)の
人気記事

「Workbooks・Workbook」の記事一覧