如何获取excel所有sheet名称-excel获取工作表名,提取工作表名称函数

Sub test()
MsgBox (ThisWorkbook.Name)
MsgBox (ActiveSheet.Name)
End Sub

1、电脑打开抄Excel表格。

2、按Alt+F11进入百VBA。

3、进入VBA后，度点击插入模块。

4、点击插入模块后知，输入代码

sub m
for each sh in sheets
k=k+1
cells(k,1)=sh.name
next
end sub

然后点击运行。

5、点击运行后，所有sheet名称就都提取出来道了。

1、打开一个含有多个百工作表的excel工作薄，然后新建一个工作表，此处命名为“汇总表”，如下图所示。

2、找到“查看代码”度并问打开，鼠标右键点击“汇总表”，在下拉菜答单中找到“查看代码”；

3、点击“查看代码”后进入如下对话框，双击“sheet7(汇总表)”可以看到右边弹出sheet7代码输入框，在其中输入以下内容：

Sub a()

For Each sh In Sheets

k = k + 1

Cells(k, 1) = sh.Name

Next

End Sub

输入后点击工具栏中的“运行”，点击下拉菜单中的“运行子过程/用户窗体”，运行完毕后即完成所有工作表名的提取。

4、接内下来点击“工程”中的“查看对象”即容可回到工作薄中，可以看到工作表名已经全部提取出来了，

5、完成效果图。

输入以下公百式度，得到文件名知
=MID(CELL("filename"),FIND("[",CELL("filename"))+1,FIND("]",CELL("filename"))-FIND("[",CELL("filename"))-1)
输入道以下公式，内得到工作表容名
=MID(CELL("filename"),FIND("]",CELL("filename"))+1,99)