获得工作表名称

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