我们秽颢擤崮存在的数据非常多，有时在同一个文件夹下就有很多工作表，怎样把这些表名都提取到一个工作表呢？小编和大家分享方法。
工具/原料
联想扬天M2612d
Windows7版本6.1
OfficeExcel2007
方法/步骤
1、在电脑磁盘中右击——新建——文件夹，新建一个文件夹——复制相关的EXCEL表格粘贴到同一个文件夹中
2、在工作表Sheet1中，点击插入——艺术字，选择一种样式，输入：提取表名——在开始中设置形状填充为红色。
3、同时按Alt+F11打开V幞洼踉残BA——插入——模块——输入有关DIR提取表名的代码。注意，由于工作表有xls,xlsx,xlsm，路径就输淀尬逄攻入为：ml=Dir(ThisWorkbook.Path&"\*.xls")
4、关闭VBA窗口——右击“提取表名”艺术字——指定宏。
5、宏名选择“提取表名”——确定——聪艄料姹再点击“提取表名”就会自动提取工作表名，如果删除扩展名，可以使用替换方法删除。
