能不能用公式实现excel单元格内容等于当前工作簿的名字?

发布网友发布时间：2022-04-25 14:01

共5个回答

热心网友时间：2023-09-06 06:30

在 Excel 2007 中，满足题要求可用如下公式：
=MID(CELL("filename",A1),FIND("[",CELL("filename",A1))+1,FIND(".xlsx",CELL("filename",A1))-FIND("[",CELL("filename",A1))-1)

注1：用“CELL”函数提取文件名时，加个A1参数*一下，就是提取的本工作表名称，不加的话，提取的是活动工作表的名称。
注2：上述公式提取的文件名未包括文件名后缀，可以根据需要更改公式

公式结果图示：

公示结果在“Book13”上的图示

公式结果在“Book14”上的显示

热心网友时间：2023-09-06 06:30

=CELL("filename")

适当的mid、find获取需要的部分。

=MID(CELL("filename"),FIND("[",CELL("filename"))+1,LEN(CELL("filename"))-FIND("]",CELL("filename"))+3)

热心网友时间：2023-09-06 06:31

Function 本工作簿名()
本工作簿名 = ActiveWorkbook.name
End Function

如果表不多可以用自定义公式，表很多的话可以用宏批量把每个工作簿的文件名写入表格

追问请注意看我后面发的图片说明,谢谢.
另外,最好只用函数公式解决.

热心网友时间：2023-09-06 06:31

=MID(CELL("filename"),FIND("[",CELL("filename"))+1,FIND(".xl",CELL("filename"))-FIND("[",CELL("filename"))-1)追问请注意看我后面发的图片说明,谢谢.

追答那个位置叫“工作表”，“工作簿“是文件名，提取工作表=MID(CELL("filename"，a1),FIND("]",CELL("filename",a1))+1,20)

热心网友时间：2023-09-06 06:32

若您的sheet名字格式为统一的"14-001801"，那么可以使用下述方法获取：=RIGHT(CELL("filename"),9)