获得工作表名称
1、定义名称：Name=GET.DOCUMENT(88)
2、定义名称：Path
=GET.DOCUMENT(2)
3、在A1中输入=CELL("filename")得到路径级文件名
在需要得到文件名的单元格输入
=MID(A1,FIND("*",SUBSTITUTE(A1,"\","*",LEN(A1)-LEN(SUBSTITUTE(A1,"\",""))))+1,LEN(A1))
4、自定义函数
Public Function name()
Dim filename As String
filename = ActiveWorkbook.name
name = filename
End Function
页:
[1]