1、如下图所示，我想将桌面上第一章中的每个工作簿名称放置到工作表中。
2、新建一个工作簿，将其命名为“第一章目录”，按alt+f11组合键，打开宏界面。
3、在VBA中，单击插入按钮，点击插入菜单下的模块，即可新建模块，系统默认为模块1，当然也可以根据需要重命名。
4、使用do~~loop循环语句，在VBA中输入如下图所示代码：
5、返回名为“第一章目录”的工作簿中，按alt+f8组合键，弹出宏对话框。
6、点击宏对话框中的执行按钮，宏对话框自动关闭，代码自动执行，即第一章中的每个文件夹名称全部显示在工作表sheet1中。最后根据自己的需要调整格式。
