绑定遍历数据验证列表宏的按钮仅生成1个文件问题咨询

你的宏出现只保存1个文件的核心原因非常明确——每次循环都用同一个固定文件名保存，导致后续文件直接覆盖了之前的文件，最后自然只剩最后一次覆盖的那一个。咱们一步步拆解问题并修复：

问题1：文件名重复导致覆盖 #

看你代码里的这段逻辑：

For Each c In inputRange
 filename1 = Range("B18").Text
 ActiveWorkbook.SaveCopyAs filename:=path & filename1 & ".xlsm"
Next c

循环遍历inputRange的5个名称时，filename1始终取的是B18的固定文本，完全没有和当前循环的c（也就是数据验证列表里的每个名称）关联。每次执行SaveCopyAs都会用同一个文件名，系统会直接覆盖之前生成的文件，最终只留下最后一次保存的结果（看起来就像只保存了1个）。

问题2：潜在的范围获取与路径风险 #

另外还有两个隐藏风险可能导致循环异常：

• 你用Evaluate(Range("A9").Validation.Formula1)获取数据验证范围，如果Formula1的格式不正确（比如引用的范围不存在），inputRange会变成Nothing，循环根本不会执行；
• 如果C:\test\路径不存在，保存会直接失败，也可能只出现0个或1个文件（取决于第一次保存是否成功）。

修复后的完整代码 #

下面是修正后的代码，解决了上述所有问题：

Sub loopthroughvalidationlist()
 Dim inputRange As Range
 Dim c As Range
 Dim path As String
 Dim filename1 As String
 
 ' 安全获取数据验证列表的范围，避免报错
 On Error Resume Next
 Set inputRange = Evaluate(Range("A9").Validation.Formula1)
 On Error GoTo 0
 
 ' 检查范围是否获取成功
 If inputRange Is Nothing Then
    MsgBox "无法获取A9的数据验证列表范围，请检查数据验证设置！"
    Exit Sub
 End If
 
 path = "C:\test\"
 ' 自动创建不存在的保存路径
 If Dir(path, vbDirectory) = "" Then
    MkDir path
 End If
 
 For Each c In inputRange
    ' 将循环中的列表名称加入文件名，保证每个文件唯一
    ' 你可以根据需求调整文件名组合方式，比如把c.Text放在前面
    filename1 = Range("B18").Text & "_" & c.Text
    ActiveWorkbook.SaveCopyAs filename:=path & filename1 & ".xlsm"
 Next c
 
 MsgBox "所有文件已保存完成！共保存" & inputRange.Cells.Count & "个文件"
End Sub

关键修改说明 #

• 唯一文件名：把循环中的c.Text（数据验证列表里的每个名称）和B18的文本组合，确保每个文件名不重复，彻底避免覆盖；
• 范围校验：加入错误捕获，检查inputRange是否有效，避免因为数据验证设置错误导致循环不执行；
• 路径检查：自动创建不存在的保存路径，防止因路径不存在导致保存失败；
• 完成提示：最后弹出保存数量的提示，方便你确认是否保存了预期的5个文件。

额外排查建议 #

如果你修改后还是有问题，可以做这两步排查：

1. 在循环里加一行MsgBox c.Text，确认循环确实遍历了5个不同的名称；
2. 手动检查C:\test\路径下的文件，看是否有隐藏的同名文件（比如文件名后缀被系统隐藏导致看起来重复）。

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