Excel提取工作簿/工作表名称

GET.DOCUMENT宏表函数法

GET.DOCUMENT用于按照指定信息类型返回名称。函数语法：

GET.DOCUMENT(type_num,name_text)

type_num：指明信息类型的数字,一共有88中数字代码表示88种类型。常用GET.DOCUMENT(76)和GET.DOCUMENT(88)来返回活动工作表和活动工作簿的文件名。

CELL公式法

1、获取工作簿文件名的公式

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

2、获取工作簿中工作表名

=MID(CELL("filename"),FIND("]",CELL("filename"))+1,99)
或者
=REPLACE(CELL("filename"),1,FIND("]",CELL("filename")),"")

3、获取文件绝对路径

=LEFT(CELL("filename"),FIND("[",CELL("filename"))-1)
或者
=TRIM(LEFT(SUBSTITUTE(CELL("filename"),"[",REPT(" ",999)),999))

VBA编程法

1、获取当前工作簿名写在单元格A1中

Sub FileName()
    Cells(1, 1) = ThisWorkbook.Name
End Sub

2、获取当前工作簿所有工作表名，写入A列

Sub FilesName()
    Dim sht As Worksheet, i%
    For Each sht In Worksheets
        i = i + 1
        Cells(i, 1) = sht.Name
    Next
End Sub