VBA代码：列出所有文件的工作表名称

我们在写SQL查询语句执行合并查询的时候，经常会用到工作簿路径及所有工作表名称。当需要合并的文件、工作表比较多时，手工录入的方式就比较麻烦了，所以今天就给大家带来一段代码，可以列出所有选中的工作簿中所有的工作表名称，从而可以使用公式快速完成SQL查询语句。

这个代码不是通过循环打开工作簿文件来实现的，而是通过ADO链接的方式来获取工作表名称。通过打开工作簿的方式来操作也是可行的，但是效率比较低，尤其是当文件比较大时，打开文件就得花不少时间。用ADO的方式则速度非常快，基本上几秒钟就可以完成。

执行代码后，会自动创建一个新的工作簿，并在第一个工作表中列出工作簿文件路径、文件名、工作表名称。有了这个列表，我们就可以通过公式来快速地完成复杂的查询语句了。

--End--