Home » エクセルマクロ・Excel VBAの使い方 » Workbookオブジェクト » ActiveWorkbook.Nameから拡張子

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)

オブジェクト変数を使ってActiveWorkbook.Nameから拡張子を取得するサンプルマクロ

オブジェクト変数を使うのなら以下のような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

［スポンサードリンク］

▼このサイト「インストラクターのネタ帳」を運営する伊藤潔人が書かせていただいた『いちばんやさしい PowerPoint VBA の教本』は、オブジェクトブラウザーの使い方を丁寧に解説した教本でもあります。

Home » エクセルマクロ・Excel VBAの使い方 » Workbookオブジェクト » ActiveWorkbook.Nameから拡張子

TrackBack:0

TrackBack URL

Home » エクセルマクロ・Excel VBAの使い方 » Workbookオブジェクト » ActiveWorkbook.Nameから拡張子

『インストラクターのネタ帳』は2003年10月から、Microsoft Officeの使い方などを紹介し続け(2012年頃からはVBA関連記事が多め)、毎日5万人の方にご覧いただいています。
Kindle Direct Publishingで、VBAユーザー向けのPython超入門書を出しました↓↓

5年前(2015年7月)の
人気記事

1位：生年月日から年齢を計算−DATEDIF関数
2位：切り捨てしたい・切り上げしたい−ROUNDDOWN関数・ROUNDUP関数
3位：縦書きにするには
4位：別シートのデータを表示・別シートのセルを参照
5位：ドロップダウンリストの作り方−直接入力

「Workbookオブジェクト」の記事一覧