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)
ここでは動作しますが、私はExcel 2007（XP）とExcel 2013（Windows 8）でテストしただけです。
トラブルシューティングに役立つように、まず=CELL("filename")だけでも試してみてください。
ワークブックをディスクに保存したことを確認してください。保存されていない新しいワークブックに数式を入れると、「Book1」とは表示されません。
コンピュータで英語以外の地域設定を使用していませんか？一部の言語では、関数名や数式の構文を調整する必要があります(例えばフランス語では、カンマをセミコロンに置き換える必要があります)。
あなたのコンピュータは、個人用コンピュータですか、それとも職場用コンピュータですか？職場のコンピュータの場合は、ユーザー権限の制限が問題の原因になっている可能性があります。
「動作しない」という場合、もう少し具体的に教えてください。入力された数式を受け入れていますか？セルは空で、"#VALUE!“などと表示されていますか？=CELL("filename")だけだとどうなるのでしょうか？
=CELL("filename") は 最後に変更されたワークブック/ワークシート へのパスを与えることに注意してください。
=CELL(“filename”, A1 )
このバージョンを使用すると、数式が存在するワークブックのワークブック名のみを取得することになります。
xyz.xlsx この少し短いバージョンを使用することもできます。
=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&
もっと簡単な解決方法は以下の通りです。
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"). これにより、選択したセルに文書のタイトルが表示されます。