如何获得excel当前文件名和工作表名？-excel提取文件名,excel获取文件名函数

1、首先我们打开excel，点击公式tab,找到“定义名称”并点击
2、在“编辑名称”弹窗百中，输入名称“文件名度称列表，引用位置输入“

=FILES("D:\R语言学习20161118\*.*")，点击“确定”
”
3、然后，我们在A1单元格输入“=INDEX(文件名称列表,ROW(A1))”，回问车。答就完成了。INDEX是在指定区域中，返回行列交叉值，ROW返回的是行号，A1 返回 1

4、如果首行不在A1，在A3的话，公式 “=INDEX(文件回名称列表,ROW(A3)-2)“。INDEX是在指定区域中，返回行列交叉值，ROW返回的是行号，A1 返回 1 ，如果首行不在A1，在A3的话，公式 “=INDEX(文件名称列表,ROW(A3)-2)“，回车，下拉，完成。

5、进入D盘位置，去"R语言学习20161118"文件夹验证一下，发现数据只提取了单个文件，未提取里面的文件夹的名称，大家借鉴的时候要注意。
6、关于分享经验中用到的函数，大家可以下载 excel帮助文档，查看各个函数的使用答方法，含义。 或者大家在输入函数的时候，也会出现简单的提醒。

输入以下百公式，度得到文知件名
=MID(CELL("filename"),FIND("[",CELL("filename"))+1,FIND("]",CELL("filename"))-FIND("[",CELL("filename"))-1)
输入以下公道式版，得到工作权表名
=MID(CELL("filename"),FIND("]",CELL("filename"))+1,99)
用excel提取不了
批量提取同一文件夹的所复有文件名
第一步，新建一个txt格式的记事制本文件。
第二步，在记事本文件中输入：DIR *.* /B >LIST.TXT
第三步，将此记事本文件后辍名，由txt改为bat。会弹出重命名zd对话框，单击“是”。
则所有文件名出现了，复制到excel即可

1.如果是要获得工作簿的文件名可以用zd以下函数公式
=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")),"")
用vba的方式也可以达到这个目的
1.获取当前工作簿名写在单元格A1中
Sub wbname()
Cells(1, 1) = ThisWorkbook.Name

End Sub
2.获取当前工作簿所有工作表名，写入答A列
Sub wsname()
Dim sht As Worksheet, i%

For Each sht In Worksheets

i = i + 1

Cells(i, 1) = sht.Name

Next

End Sub