
生成“个人宏工作簿”
为了使“目录”按钮对所有工作簿都有效,我们需要将其保存在“个人宏工作簿”中。首次使用“宏”功能时,需先让软件生成一个隐藏的“个人宏工作簿”。执行“工具→宏→录制新宏”命令,点击“保存在”右侧下拉按钮,选择“个人宏工作簿”,点击“确定”以进入“宏”录制状态。无需进行任何操作,直接单击“宏”工具条中的“停止录制”按钮,软件将自动生成一个隐藏的“个人宏工作簿”。以后如需在“个人宏工作簿”中编辑宏,无需再次执行此步骤。
编辑制作“目录”宏
执行“工具→宏→VisualBasic编辑器”命令,进入VBA编辑状态。在左侧“工程资源管理器”中展开“VBAProject(PERSONAL.XLSB)”选项,双击“模块1”,输入下述代码替换编辑区原有代码:Subml() OnErrorResumeNext; Subml() OnErrorResumeNext'如果出现错误,继续运行下面的代码
以下代码将在A1、B1、C1单元格中输入列标题文本内容,分别为“序号”、“文件名称”、“文件类型”。声明一个变量wj,用Dir函数浏览选定文件夹中的所有文件,进行循环,依次在A列、C列、B列输入行序号、文件扩展名、文件名称。完成循环后,将列设置为最适列宽及水平居中格式,保存目录文档,并关闭当前文档窗口。
启动Excel2003,执行“工具→宏→宏”命令,双击上面制作的宏,选中需要制作目录的文件夹,确定,即可制作出一个目录文件。点击文件名称,就能快速打开相应的文档进行浏览。
以上步骤可以快速实现新建多个文件夹,文件夹名称存放在一个Excel表格中的需求。
通过使用“个人宏工作簿”和VBA代码,可以自动化生成目录文件,提高工作效率。
需要注意的是,在编辑宏时,确保代码无误,避免出现错误。
希望以上信息对你有所帮助。