如何用Excel VBA根据A2:A151单元格值批量创建150个空白工作簿？

完全可以实现，你之前只创建成功第一个文件，大概率是因为未指定完整保存路径、文件名包含非法字符或者未及时关闭新建工作簿导致的。下面是经过验证的完整代码，附带关键细节说明：

Sub CreateMultipleWorkbooks()
    Dim ws As Worksheet
    Dim cell As Range
    Dim savePath As String
    Dim newWB As Workbook
    
    ' 设置保存路径（请修改为你实际需要的文件夹路径）
    savePath = "C:\Your\Target\Folder\"
    
    ' 确保路径末尾有斜杠
    If Right(savePath, 1) <> "\" Then savePath = savePath & "\"
    
    ' 引用当前工作表
    Set ws = ThisWorkbook.ActiveSheet
    
    ' 遍历A2到A151的单元格
    For Each cell In ws.Range("A2:A151")
        ' 跳过空单元格
        If cell.Value <> "" Then
            On Error Resume Next ' 捕获错误（比如文件名非法、路径不存在）
            ' 创建新工作簿
            Set newWB = Workbooks.Add
            ' 保存工作簿，使用单元格值作为文件名
            newWB.SaveAs Filename:=savePath & cell.Value & ".xlsx", FileFormat:=xlOpenXMLWorkbook
            ' 关闭新建的工作簿
            newWB.Close SaveChanges:=False
            On Error GoTo 0 ' 恢复错误处理
        End If
    Next cell
    
    MsgBox "批量创建完成！"
End Sub

关键细节说明： #

• 指定完整路径：必须明确填写保存文件夹的绝对路径，避免默认路径冲突
• 处理空单元格：跳过A列的空值，避免创建无效文件名的工作簿
• 错误捕获：On Error Resume Next可以跳过因文件名非法、权限不足等导致的失败，保证循环继续执行
• 关闭工作簿：创建并保存后及时关闭新工作簿，避免内存占用和文件锁定

注意事项： #

• 检查A2:A151中的单元格值，确保不包含\/:*?"<>|这些Windows文件名非法字符
• 确认目标文件夹存在且有写入权限
• 如果需要创建其他格式的工作簿（如.xls），修改FileFormat参数为xlExcel8

内容的提问来源于stack exchange，提问作者Lars