Как вставить имя текущего файла в Excel?

Он работает здесь, я только что протестировал его на Excel 2007 (XP) и Excel 2013 (Windows 8).

Попробуйте сначала =CELL("filename") в одиночку, чтобы помочь в устранении неполадок.

• Убедитесь, что вы сохранили вашу рабочую книгу на диск. Если вы поместите формулу в новую несохраненную рабочую книгу, она не покажет “Book1”.

• Вы используете не английские региональные настройки на вашем компьютере? Некоторые языки требуют настройки имен функций и синтаксиса формул (например, на французском языке запятые должны быть заменены точкой с запятой).

• Вы работаете на персональном или рабочем компьютере? Если это рабочий компьютер, то, возможно, могут возникнуть проблемы с ограничениями прав пользователей.

Когда вы говорите “это не работает”, можете ли вы быть более конкретными? Принимает ли она формулу в том виде, в котором она набрана? Пустая ли ячейка, показывающая “#VALUE!” и т.д.? Что происходит при использовании только =CELL("filename")?

Обратите внимание, что =CELL("filename") дает вам путь к последнему измененному рабочему тетради/картотеке, так что если у вас открыто 2 рабочих тетради, abc и xyz, и ваша формула находится в abc, если вы последний раз изменяли значение в xyz, то формула в abc будет отражать это и возвращать xyz.xlsx

По этой причине обычно предпочтительнее включать ссылку на ячейку (любую ссылку на ячейку), д. g.

=CELL(“имя файла”, A1)

Использование этой версии означает, что вы когда-либо получите только имя рабочей книги, в которой находится формула.

Вы можете использовать эту немного короткую версию

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

Я нашел, что это “простейшая” формула для возврата только filename:

=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)),"""")"

Чтобы вернуть full путь, это сойдет:

=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),""["","""")"

Если вы используете excel на голландском языке, вам следует использовать голландские имена функций и использовать точки с запятой вместо:

=VERVANGEN(LINKS(CEL("filename");VIND.SPEC("]";CEL("filename"))-1);1;VIND.SPEC("[";CEL("filename"));"")

У меня была та же проблема (вставленная формула не сработала)! Как только я заменил , на ; в формуле, она работала идеально.

=MID(CELL(“имя файла”);SEARCH(“[”;CELL(“имя файла”))+1; SEARCH(“]”;CELL(“имя файла”))-SEARCH(“[”;CELL(“имя файла”))-1).

Более простое решение:

В вашем файле 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"). В выбранной ячейке появится заголовок документа.