文章预览
01 为什么要学这个技能 01.「场景1」 市场部小王要按200个客户名创建文件夹,手动操作半小时,中途还输错名字… 02.「场景2」 财务李哥每月需为30个部门生成报表目录,复制粘贴到手抽筋… 03.「解决方案」 一段VBA代码,1秒生成所有文件夹,还能智能过滤错误! 02 效果浏览 03 操作步骤 01 打开Excel VBA后台 快捷键 Alt + F11 召唤代码编辑器 右键点击左侧列表 → 【插入】→ 【模块】 02 粘贴代码 '功能:根据A列内容批量创建文件夹 '作者:酒醒梦已残(QQ86951056) Sub 批量创建文件夹() On Error GoTo ErrorHandler Dim ws As Worksheet Dim rng As Range Dim cell As Range Dim path As String Dim fldr As Object Dim fso As Object ' 创建文件系统对象 Set fso = CreateObject("Scripting.FileSystemObject") ' 设置工作表(默认使用活动工作表) S
………………………………