甲虫课堂 > Excel教程 >

excel快速批量建立文件夹并命名

阅读
2024-04-24 09:13:08

  在 Excel 中快速批量建立文件夹并命名可以使用以下 VBA 宏:

  1. 打开 Excel,在工作簿中按下快捷键“Alt + F11”,进入VBA 编辑器。

  2. 在左侧的“项目资源管理器”框中,双击工作簿名称,打开“代码”窗口。

  3. 将以下 VBA 代码复制到“代码”窗口中:

  ```

  Sub CreateFolders()

  Dim Path As String

  Dim Rng As Range

  Dim FolderName As String

  Path = InputBox("请输入文件夹路径(例如:C:\\Users\\Name\\Desktop):", "选择文件夹路径", "")

  If Path = "" Then Exit Sub

  Set Rng = Range(InputBox("请输入名称的单元格范围:", "选择目录名称的单元格范围", ""))

  If Rng Is Nothing Then Exit Sub

  For Each cell In Rng

  FolderName = cell.Value

  If FolderName <> "" Then

  MkDir Path & "\\" & FolderName

  End If

  Next

  MsgBox "文件夹创建完成"

  End Sub

  ```

  4. 点击“运行”选项卡,点击“运行子程序”按钮,或快捷键“F5”运行宏。

  5. 在弹出的提示框中输入文件夹路径,例如:“C:\\Users\\Name\\Desktop”,然后点击“确定”按钮。

  6. 在弹出的提示框中输入需要命名的单元格范围,例如:“A1:A10”,然后点击“确定”按钮。

  7. 在所输入的文件夹路径下,将自动创建命名与单元格内容相同的文件夹。

  需要注意的是,运行 VBA 宏时,请确保开启了宏和VBA宏安全级别为中或低,并在运行过程中遵循工业标准和相关操作要求。若无 VBA 编程基础,建议先进行相关学习和实践。

  关于这个问题,在Excel中快速批量建立文件夹并命名的方法如下:

  1. 在Excel表格中输入要创建的文件夹名称,每个名称占一行。

  2. 选中所有文件夹名称,复制。

  3. 打开Windows资源管理器,在要创建文件夹的目录下右键,选择“新建文件夹”。

  4. 粘贴复制的文件夹名称到新建的文件夹名称处。

  5. 按下Enter键,所有文件夹都会被快速创建,并以相应的名称命名。

  1、新建一个Excel文件,依次单击“公式”选项卡-“定义名称”;在弹出窗口中的名称文本框中输入“名称”,引用位置输入:=FILES(“D:\\批量修改文件名\\*.xlsx”)。

  2、在A1单元格输入公式并向下填充至没有文件名出现为止:=INDEX(名称,ROW())。

  3、在B1单元格开始对应输入需要修改的文件名称;在C1单元格输入公式并向下填充:=“REN “&A1&” “&B1。

  4、在批量修改文件名这个文件夹中创建一个文本文档的文件;将Excel表中C1:C3的数据复制粘贴到新建的文本文档中,保存并关闭。

  5、将新建文本文档尾缀的txt修改为bat,最后再双击该文件自动运行完成即可。

相关教程
相关评论
X
0条回复

全部回复

回复...
X
X
写评论...
0
更多