Home » エクセルマクロ・Excel VBAの使い方 » ユーザー定義関数 » 拡張子なしでファイル名・ワークブック名を表示する

拡張子なしでファイル名・ワークブック名を表示する

対象：Excel97,Excel2000,Excel2002,Excel2003,Excel2007

この方法を知った方から、
「拡張子なしでファイル名をセルに表示するにはどうしたらいいのでしょう？」
というご質問をいただくこともあります。

［スポンサードリンク］

拡張子とファイル名の間には、必ず「.」（ピリオド）が存在しますから、「.」を見つけて、その左側だけを取得すれば、拡張子なしでファイル名・ワークブック名をセルに表示させることができます。

▼操作方法：ユーザー定義関数を使って拡張子なしのファイル名を取得する
※拡張子つきでファイル名を取得するBookName関数が定義されているときに、拡張子をのぞいたファイル名をセルに表示する例

拡張子なしのファイル名を表示したいセルに
「=LEFT(BookName(),FIND(".",BookName())-1)」
という計算式を入力する

考え方は同じです。

「=LEFT(BookName(),FIND(".",BookName())-1)」
という計算式の
「FIND(".",BookName())」
という箇所で、ユーザー定義関数：BookNameで取得したファイル名の中で、「.」が先頭から何文字目にあるかを調べます。

次に
「LEFT(BookName(),「.」が先頭から何文字目か -1)」
の箇所で、
BookNameで取得したファイル名から、
「.」の存在する文字数から「1」をマイナスした値、
つまり、「.」までの文字、
すなわち、拡張子を除いたファイル名の部分
を取得しています。

サンプルファイルには、BookName関数を定義し、A1セルに上記の
「=LEFT(BookName(),FIND(".",BookName())-1)」
という計算式が入力してあります。

また、A3:A6セルには
「=LEFT(BookName(),FIND(".",BookName())-1)」
に至るいくつかの計算式が入力してあります。

それぞれが何を意味している計算式で、どんな結果が表示されているかをご確認ください。

もちろん、FIND関数とLEFT関数を使って「.」の前までを取得する処理を、ユーザー定義関数の中に入れてしまくこともできます。

というか、せっかくユーザー定義関数を作るなら、その処理まで入れてしまって、引数で拡張子をつけて取得するか、拡張子なしで取得するかを指定できるほうがスマートでしょう。

その方法は、近日中に別途ご紹介します。

［スポンサードリンク］

Home » エクセルマクロ・Excel VBAの使い方 » ユーザー定義関数 » 拡張子なしでファイル名・ワークブック名を表示する

『インストラクターのネタ帳』では、2003年10月からMicrosoft Officeの使い方などを紹介し続けています。
日経BP社から出版された、Excel VBAユーザー向けのPython超入門書です↓↓

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

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

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

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

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

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

Excel VBAの経験がある方を対象に、Word VBAの基本をキンドル本としてまとめました↓↓

Excel VBAユーザーの方を対象として、Wordの表をVBAで操作する基礎をまとめました↓↓

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

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

Pythonの外部ライブラリOpenPyXL（オープンパイエクセル）の入門書を、Excel VBAユーザーに向けに書きました↓↓

「ユーザー定義関数」の記事一覧