1、右键点击工作表名称栏，选择【查看代码】，
2、在函数界面输入下图中的代码：Sub 汇总()For Each sh In Sheetsi = i + 1Cells(i, 1) = sh.NameNextEnd Sub2，点击函数界面的【执行子过程】，就能快速提取工作表名称。
3、选择【公式】-【定义的名称】-【名称管理器】，在弹出框中选中【新建】；
4、在【新建名称】中输入名称，在引用位置输入公式“=get.workbook(1)”并确定；
5、在单元格中输入公式“=INDEX(zxc,ROW(A1)&T(NOW()))”，下拉填充，其中zxc即为刚定义的名称；
6、复制单元格，粘贴时选择“粘贴选项”为【值】，在右侧单元格中输入第一行单元格中的名称作为范例，下拉选择【快速填充】，就能获得所有工作表名称。
