有没有遇到过这种情况？需要创建几十、上百个Excel文件，文件名是姓名、部门、项目名，一个个新建、命名、保存，手都点酸了还容易出错？

其实不用这么麻烦！今天分享一段超实用的Excel VBA代码，只要在表格里准备好所有文件名，一键运行，就能批量生成所有对应名称的Excel文件，省时又省力，新手也能轻松上手～

适用场景：批量创建姓名、部门、项目名等不规则名称的Excel文件，比如员工档案、项目台账、客户资料等，再也不用手动逐个新建！

一、先看效果：10秒批量生成30个Excel文件

只要在Excel的A列，一行一个输入你要创建的文件名（比如员工姓名、部门名称），运行代码后，瞬间就能生成所有对应名称的.xlsx文件，自动保存在当前Excel所在的文件夹，不用手动选择保存路径，全程无多余操作。

再也不用：新建工作簿 → 点击保存 → 输入文件名 → 确定，重复几十上百次，效率直接拉满！

二、核心VBA代码（优化版，更稳定）

很多小伙伴用过简单版代码，容易出现“路径错误”“重名报错”“空文件”等问题，今天分享的优化版，解决了所有常见bug，兼容性更强，直接复制粘贴就能用，无需修改任何内容！

Sub 根据名单创建工作簿()    Dim cell As Range    Dim lastRow As Long    Dim savePath As String    ' 获取当前文件所在路径（生成的Excel会保存在这里）    savePath = ThisWorkbook.Path & "\"    ' 校验：当前文件必须已保存，否则无法获取路径    If savePath = "\" Then        MsgBox "请先将当前Excel文件保存到电脑文件夹中！", vbCritical        Exit Sub    End If    ' 获取A列最后一行有内容的单元格    lastRow = Cells(Rows.Count, 1).End(xlUp).Row    ' 循环遍历A列所有非空单元格    For Each cell In Range("A1:A" & lastRow)        If cell.Value <> "" Then            On Error Resume Next ' 忽略错误（防止重名、非法文件名）            ' 新建工作簿            Workbooks.Add            ' 保存并命名            ActiveWorkbook.SaveAs Filename:=savePath & cell.Value & ".xlsx"            ' 关闭新建的工作簿            ActiveWorkbook.Close            On Error GoTo 0 ' 恢复错误提示        End If    Next cell    MsgBox "全部文件创建完成！已保存至：" & vbCrLf & savePath, vbInformationEnd Sub

提示：代码无需修改！直接复制，按照下面的步骤操作即可，新手也不用怕出错～

三、详细操作步骤（图文拆解，新手必看）

操作步骤只有6步，全程不超过1分钟，跟着做就能成功，建议收藏备用！

步骤1：准备文件名

打开一个新的Excel表格，在【A列】输入所有要创建的文件名（一行一个，不用加.xlsx后缀），比如姓名、部门名、项目名，空单元格会自动跳过，不会生成空文件。

示例：A1填“张三”、A2填“市场部”、A3填“项目一”，以此类推，填完所有需要的文件名。

步骤2：保存当前Excel文件

这一步很关键！一定要先把这个填好文件名的Excel，保存到你想存放“批量生成文件”的文件夹里（比如桌面、D盘的某个文件夹）。

原因：代码会自动读取当前Excel的保存路径，生成的文件会直接保存在同一个文件夹，不用手动选择路径，避免报错。

步骤3：打开VBA编辑器

在Excel界面，按键盘上的 Alt + F11，就能快速打开VBA编辑器（新手不用管编辑器里的其他内容，专注做下一步即可）。

步骤4：插入模块

在VBA编辑器左侧，找到你当前的工作表（比如“Sheet1”），右键点击 → 选择【插入】→ 点击【模块】，此时会出现一个空白的代码编辑区。

步骤5：粘贴代码并运行

把上面的优化版VBA代码，复制粘贴到空白的代码编辑区，然后按键盘上的 F5 键，运行代码。

步骤6：查看结果

运行后，会弹出一个提示框，显示“全部文件创建完成”，并告知文件保存的路径。打开这个路径，就能看到所有批量生成的Excel文件，文件名和A列的内容完全一致！

四、常见问题解答（避坑必看）

很多新手第一次用VBA，会遇到一些小问题，这里整理了最常见的3个问题，帮你快速解决：

问题1：运行代码后，弹出“请先将当前Excel文件保存到电脑文件夹中”？

解决方法：忘记保存当前的Excel文件了！回到Excel界面，按Ctrl+S，保存到任意文件夹，再重新运行代码即可。

问题2：生成的文件不见了，不知道保存在哪里？

解决方法：生成的文件，和你保存的“填文件名的Excel”在同一个文件夹里，打开那个文件夹就能找到；也可以看代码运行后的提示框，里面会显示具体的保存路径。

问题3：运行时弹出报错，提示“无法保存”？

解决方法：大概率是文件名包含非法字符（比如*、？、/、\等），删除A列中文件名里的非法字符，重新运行代码即可；另外，若有同名文件，代码会自动跳过，不会覆盖原有文件。

五、代码核心优势（为什么推荐优化版？）

对比简单版代码，这个优化版更适合日常使用，尤其是新手，优势很明显：

• 适配任意不规则文件名：中文、英文、数字、符号（合法符号）都支持，比如“张三-销售部”“项目1-2026”都能正常生成。

• 自动容错：遇到重名、非法文件名，不会报错中断，会自动跳过，避免白忙活。

• 路径自动识别：不用手动设置保存路径，生成的文件和当前Excel在同一个文件夹，方便查找。

• 跳过空单元格：A列有空行也没关系，不会生成空名称的Excel文件，减少多余操作。

六、总结

不管是行政、财务、人事，还是经常需要批量处理Excel的小伙伴，这段代码都能帮你节省大量时间——不用手动新建、不用逐个命名，A列填好名单，一键运行，几十上百个Excel文件瞬间生成！

建议收藏这篇文章，下次需要批量创建Excel文件时，直接翻出来用，新手也能轻松上手～

最后，别忘了点赞、在看，分享给身边需要的同事朋友，一起提升办公效率呀❤️