1、在电脑磁盘中右击——新建——文件夹，新建一个文件夹——复制相关的EXCEL表格粘贴到同一个文件夹中
2、在工作表Sheet1中，点击插入——艺术字，选择一种样式，输入：提取表名——在开始中设置形状填充为红色。
3、同时按Alt+F11打开V幞洼踉残BA——插入——模块——输入有关DIR提取表名的代码。注意，由于工作表有xls,xlsx,xlsm，路径就输入为：ml = Dir(ThisWorkbook.Path & "\*.xls")
4、关闭VBA窗口——右击“提取表名”艺术字——指定宏。
5、宏名选择“提取表名”——确定——聪艄料姹再点击“提取表名”就会自动提取工作表名，如果删除扩展名，可以使用替换方法删除。
