探讨EXCEL单元格中显示工作簿/表名

1. =CELL("filename")
   显示当前工作表路径及工作表名.

2. =MID(CELL("filename",A1),FIND("]",CELL("filename",A1))+1,31)
   显示当前工作表路径

3. =MID(CELL("filename"),FIND("]",CELL("filename"))+1,100) 
   显示当前工作表路径

4. =REPLACE(CELL("FileName",A1),1,FIND("]",CELL("FileName",A1)),"")
   显示当前工作表路径

   以上都使用CELL工作表函数(必须为已存盘的文件).开启其它会显示为新开工作簿名(不建议使用此方式)

5. =MID(CELL("filename",$A$1),FIND("[",CELL("filename",$A$1)),LEN(CELL("filename",$A$1))+1-FIND("[",CELL("filename",$A$1)))
   显示工作簿及表名

6. =MID(CELL("filename",$A$1),FIND("[",CELL("filename",$A$1)),FIND("]",CELL("filename",$A$1))-FIND("[",CELL("filename",$A$1))+1)
   显示工作簿名

7. =MID(CELL("filename",$A$1),FIND("]",CELL("filename",$A$1))+1,LEN(CELL("filename",$A$1))-FIND("]",CELL("filename",$A$1)))
   显示工作表名

8. 定义一个名称，方法如下：   
   菜单中，『插入』→『名称』→『定义』，在“当前工作簿中的名称”框中输入
   ASN，（Active.Sheet.Name   的缩写），再在下面的“引用位置”框中输入
   =GET.WORKBOOK(38)，确定即可.随后，您在此工作簿的任何工作表的任意单元格中输入：=ASN

9. 插入-名称 - 定义 A=REPLACE(GET.CELL(32),1,FIND("]",GET.CELL(32)),)&T(NOW())
   C5输 = A

10. 定义一个名称，简写为：mc,引用位置写入"=get.cell(66)"然后在任意单元格输入=mc,即可得到当前工作簿名称。
    定义一个名称，简写为：mcb,引用位置写入"=get.cell(62)或=get.cell(32),然后在任意单元格输入=mcb,即可得到当前工作簿及工作表名称。

11. 定义X=MID(GET.DOCUMENT(1),FIND("]",GET.DOCUMENT(1))+1,100) 
    在各表输入=X

12. 定义一个名称，简写为：mcb,引用位置写入"=get.cell(62)或=get.cell(32),然后在任意单元格输入 
   =RIGHT(mcb,LEN(mcb)-SEARCH("]",mcb,1)) 可以得到工作表名称

13. 定义一个名称，简写为：mcb,引用位置写入"=get.cell(62)或=get.cell(32),然后在任意单元格输入 
   =MID(mcb,SEARCH("]",mcb,1)+1,100) 可以得到工作表名称

14. 13. 定义一个名称，简写为：mcb,引用位置写入"=get.cell(62)或=get.cell(32),然后在任意单元格输入 
   =MID(mcb,SEARCH(" ",mcb,1)+1,100) 可以得到工作簿名称

15. 使用自定义函数
Function Intsheet(x As Integer)
If x = 0 Then
Intsheet = ActiveCell.Parent.Name

ElseIf x > 0 And x <= Sheets.Count Then
Intsheet = Sheets(x).Name
ElseIf x > Sheets.Count Then
MsgBox "超出范围"
End If
Application.Volatile
End Function

取当前工作表名称
=Intsheet(0)
取第N个工作表名称
=Intsheet(N)
N为正整数