检测当前目录，将文件名输出到excel文件并建立链接

EXCEL是一个非常使用的软件，虽然我们平时仅使用他做一些报表，仅此而已；
我在工作中，由于很懒，不愿意做考试重复的工作，就想着使用vba的宏来完成重复的工作，这样就能省出一部分的时间来了。
本人不喜欢在博客里面写以下教程类的东西，我的理念是将工作中的痛点的解决办法分享出来，以解决问题为主。

需求

我在工作过程中，接触了大量的国家标准，有得时候就需要回来翻翻我的标准，但是又可能找不到文件放到哪里了，就想使用excel将目录下面的标准名称都索引下。
以下是我的防治标准的位置图：

我们可以看到，有不少的目录，目录下面才是按类划分的标准。

vba实现方法

首先新建立一个excel文件，xlsm，新增加一个按钮来实现这个功能，具体如何实现增加按钮，我用的ribbonx容器（具体方法见本专栏其他文章，这里不赘述）。
在按钮的实现函数里面增加下面的代码

'查找目录下的文件，按照一定顺序生成索引   
'需引用 microsoft scripting runtime
Function Create_Index()
    Dim fs As New FileSystemObject