如何提取当前文件的文件名？函数或者vba都行。在线求助。

188zuqiu · 发表于 2024-8-25 18:57

如何提取当前文件的文件名？函数或者vba都行，在线求助。

搜索论坛，多数是提取去某个文件夹下文件名称，但本人需要的是提取文件名称，所以不得不在线求助各位了，先感谢各位。

hlxue · 发表于 2024-8-25 19:03

THISWORKBOOK.NAME

188zuqiu · 发表于 2024-8-25 19:11

hlxue 发表于 2024-8-25 19:03
THISWORKBOOK.NAME

非常感谢。
filename = ActiveWorkbook.Name
Cells(1, 20) = filename

ykcbf1100 · 发表于 2024-8-25 20:33

基本常识。。。

quqiyuan · 发表于 2024-8-25 20:52

公式也可以的
=MID(CELL("filename"),FIND("[",CELL("filename"))+1,FIND("]",CELL("filename"))-FIND("[",CELL("filename"))-1)

188zuqiu · 发表于 2024-8-26 07:51

quqiyuan 发表于 2024-8-25 20:52
公式也可以的
=MID(CELL("filename"),FIND("[",CELL("filename"))+1,FIND("]",CELL("filename"))-FIND("[" ...

这是公式用法，十分感谢。

liulang0808 · 发表于 2024-8-26 08:10

Range("A1").Parent.Parent.Name

ykcbf1100 · 发表于 2024-8-26 08:30

提取不含文件后辍的当前工作簿名：
Left(ThisWorkbook.Name, InStr(ThisWorkbook.Name, ".") - 1)

188zuqiu · 发表于 2024-8-26 08:57

liulang0808 发表于 2024-8-26 08:10
Range("A1").Parent.Parent.Name

这个更简洁

188zuqiu · 发表于 2024-8-26 09:04

十分感谢以上各位大侠关注关心，深感，不提问知识点就不能被发掘出来。再次感谢各位的支持。

		自动登录	找回密码
密码			免费注册

[求助] 如何提取当前文件的文件名？函数或者vba都行。在线求助。