vb获取文件夹下几百个excel的所有sheet名称效率问题

文件夹下有几百个excel，每个都有不同个数的sheet，怎么才能获取所有的sheet名称呢，形式最好是excel+sheet,我现在采用的是 文件夹下有几百个excel，每个都有不同个数的sheet，怎么才能获取所有的sheet名称呢，