怎样用VBA的DIR读取文件夹下的EXCEL表名

1、在电脑磁盘中右击——新建——文件夹，新建一个文件夹——复制相关的EXCEL表格粘贴到同一个文件夹中

3、同时按Alt+F11打开V幞洼踉残BA——插入——模块——输入有关DIR提取表名的代码。注意，由于工作表有xls,xlsx,xlsm，路径就输入为：ml = Dir(ThisWorkbook.Path & "\*.xls")

5、宏名选择“提取表名”——确定——聪艄料姹再点击“提取表名”就会自动提取工作表名，如果删除扩展名，可以使用替换方法删除。