2013-06-10 20:29:02 +0000 2013-06-10 20:29:02 +0000
14
14

エクセルで現在のファイル名を挿入する方法を教えてください。

Excelスプレッドシートで作業中のファイル名を数式を使って表示しようとしています。例えば、ファイル名がworkbook1.xlsxの場合、セルA1に “workbook1.xlsx”

マイクロソフトのヘルプサイトが提供している数式は動作しません http://office.microsoft. com/en-us/excel-help/insert-the-current-excel-file-name-path-or-worksheet-in-a-cell-HA010103010. aspx#BMinsert3

=MID(CELL(“ファイル名”),SEARCH(“[”,CELL(“ファイル名”))+1, SEARCH(“]”,CELL(“ファイル名”))-SEARCH(“[”,CELL(“ファイル名”))-1)
ソース

回答 (6)

14
14
14
2013-06-10 20:42:32 +0000

ここでは動作しますが、私はExcel 2007（XP）とExcel 2013（Windows 8）でテストしただけです。

トラブルシューティングに役立つように、まず=CELL("filename")だけでも試してみてください。

  • ワークブックをディスクに保存したことを確認してください。保存されていない新しいワークブックに数式を入れると、「Book1」とは表示されません。

  • コンピュータで英語以外の地域設定を使用していませんか？一部の言語では、関数名や数式の構文を調整する必要があります(例えばフランス語では、カンマをセミコロンに置き換える必要があります)。

  • あなたのコンピュータは、個人用コンピュータですか、それとも職場用コンピュータですか？職場のコンピュータの場合は、ユーザー権限の制限が問題の原因になっている可能性があります。

「動作しない」という場合、もう少し具体的に教えてください。入力された数式を受け入れていますか？セルは空で、"#VALUE!“などと表示されていますか？=CELL("filename")だけだとどうなるのでしょうか？
ソース
9
9
9
2013-06-10 23:35:14 +0000

=CELL("filename") は 最後に変更されたワークブック/ワークシート へのパスを与えることに注意してください。

=CELL(“filename”, A1 )

このバージョンを使用すると、数式が存在するワークブックのワークブック名のみを取得することになります。

xyz.xlsx この少し短いバージョンを使用することもできます。
ソース
2
2
2
2017-06-29 16:48:47 +0000 
=REPLACE(LEFT(CELL("filename",A1),FIND("]",CELL("filename",A1))-1),1,FIND("[",CELL("filename",A1)),"")

or - created in VBA:

Formula = "=REPLACE(LEFT(CELL(""filename"",A1),FIND(""]"",CELL(""filename"",A1))-1),1,FIND(""["",CELL(""filename"",A1)),"""")"

フルパスを返すには、以下のようにします。

=SUBSTITUTE(LEFT(CELL("filename",A1),FIND("]",CELL("filename",A1))-1),"[","")

or - created in VBA:

Formula = "=SUBSTITUTE(LEFT(CELL(""filename"",A1),FIND(""]"",CELL(""filename"",A1))-1),""["","""")"
``` 0x1&
ソース
1
1
1
2015-08-28 14:34:41 +0000

オランダ語でエクセルを使用する場合は、オランダ語の関数名を使用し、カンマの代わりにセミコロンを使用する必要があります。
ソース
1
1
1
2015-01-09 16:11:13 +0000

私も同じ問題を抱えていました（貼り付けた数式がうまくいかなかった）! ,を;に置き換えると完璧に動作しました。

=MID(CELL(“ファイル名”);SEARCH(“[”;CELL(“ファイル名”))+1; SEARCH(“]”;CELL(“ファイル名”))-SEARCH(“[”;CELL(“ファイル名”))-1)
ソース
1
1
1
2015-01-15 10:41:26 +0000

もっと簡単な解決方法は以下の通りです。

ExcelファイルでAlt+F11を押すと、Microsoft Visual Basics for Applications (VBA)が開きます。VBAでInsert > Moduleを選択し、次のコードを貼り付けます 

Public Function GetMyProp(prop As String) As String
    GetMyProp = ThisWorkbook.BuiltinDocumentProperties(prop)
End Function

あなたのExcelファイルのタイプ式で。=GetMyProp("Title"). これにより、選択したセルに文書のタイトルが表示されます。
ソース