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、完成效果图。
定义好名称X=get.workbook(1) 后
在任意单元格输入公式: =INDEX(x,ROW(A1)) 向下拖拽填充
这是一种方法。
这是另一种方法。
还有很多方法…
公式,名称管理器,自定义:
工作表名=GET.WORKBOOK(1)
A1=INDEX(工作表名,ROW()) 向下复制单元格,可以得到所有工作表名
批量提取文件名