Excelにて、セルでファイル名を取得する方法

質問

Excelのブック内で、現在使用しているファイル名を取得する方法を教えていただけませんでしょうか。

宜しくお願い致します。

回答No.3

BCT · ベストアンサー

CELL関数、MID関数、SEARCH関数を使用して、

例えば C:\MyDocument\Book1.xls のSheet1のとき、

[A1]=CELL("filename") => C:\MyDocument\[Book1.xls]Sheet1
[A2]=SEARCH("[",A1,1) => 15
[A3]=SEARCH("]",A1,1) => 25
[A4]=MID(A1,A2+1,A3-A2-1) => Book1.xls

となりました。
ちなみに、Excel2000です。

お礼

皆さん沢山の回答有難うございます。
説明が上手く出来ていなかったようですが、今回は
≫ CELL関数、MID関数、SEARCH関数を使用して、
より CELL("filename")
の方法でファイル名を取得できました。
有難うございました。

回答No.5

tinu 2000（@tinu2000）

ヽ(^。^)ノアリャ
#2のtinu2000です。
ブック名のことかな？

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Worksheets(1).Range("A1") = ActiveWorkbook.Name
Worksheets(1).Range("A2") = ActiveSheet.Name
End Sub

A1にブック名、A2にシート名を表示します。

ではでは、あとはよしなに♪

回答No.4

imogasi

関数を使ってセルにブック名をセットすることをお望みと
思います。関数の本を調べても、見つからず、無いようです。それで下記の方法で、ユーザー定義関数を作るのは堂ですか。
（１）ワークシートの画面でＡＬＴ＋Ｆ１１キー（ＶＢＥ
　　　画面になる。）
（２）ＡＬＴ＋Ｉ（挿入）、ＡＬＴ＋Ｍ（標準モジュール）
（３）下記を貼り付ける。
Function bookname()
bookname = ActiveWorkbook.Name
End Function
（４）セットしたいセル（例えばＡ２）に
=bookname()と入れる。するとＡ２の値は、Ｂｏｏｋ１とかとなる。
（５）Ｄｉｒｅｃｔｏｒｙは=INFO("directory")でセット
出来ます。私に場合はC:\My Documents\と出ます。
（６）その後、挿入－関数で出る関数一覧にbooknameとして出てきます。

回答No.2

tinu 2000（@tinu2000）

ファイル名とはシート名の事でしょうか？
シート名の事でなかったら外しました（汗泣）

VBAになりますが、
(1)ツール→マクロ→VisualBasicEditorを選択
(2)表示→プロジェクトエクスプローラーを選択
(3)左のsheet1(sheet1)をダブルクリック
(4)右の窓の中に以下を貼り付けて
(5)シートの画面に戻り、任意のセルをクリックすると、A1にシート名が表示されます。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Worksheets(1).Range("A1") = ActiveSheet.Name
End Sub

ではでは、あとはよしなに♪

回答No.1

maruru01

こんにちは。maruru01です。

通常の、いわゆるワークシート関数では取得出来ないようです。
従って、VBAで書くことになると思います。
その場合のコードは、

Worksheets("シート名").Range("セル番地") = ActiveWorkbook.Path & "\" & ActiveWorkbook.Name

になります。
シート名とセル番地は、表示させたい場所の実際の名前（例えば、"Sheet1"の"A1"など）にします。
これを適当なイベントプロシージャに記述します。