VBA循环问题排查：保存的工作簿名称与内容不匹配

问题根源 #

你遇到的文件名与内容不匹配的问题，核心原因是重复使用同一个工作簿对象执行SaveAs操作：第一次SaveAs后，wbFAT会指向新保存的文件，而非原始模板工作簿。后续循环中，你修改的是原始模板的单元格，但保存的却是上一次生成的工作簿，最终导致文件名与内容错位。

修正代码 #

以下是调整后的代码，通过每次循环新建模板实例来避免对象引用混乱，同时优化错误处理：

Dim templatePath As String
templatePath = "你的FAT模板文件完整路径" ' 替换为实际模板路径

For Each ownerCell In ownerNameRange
    ownerName = ownerCell.Value
    
    If Not IsEmpty(ownerName) Then
        Set ownerSheet = FAR.Worksheets(ownerName)
        ' 改用资产标签所在列计算最后一行，避免第一列空值导致循环提前结束
        assetCount = ownerSheet.Cells(ownerSheet.Rows.Count, 18).End(xlUp).Row
        
        ' 检查所有者文件夹是否存在，不存在则创建
        Dim ownerFolderPath As String
        ownerFolderPath = masterPath & ownerName & "\"
        If Dir(ownerFolderPath, vbDirectory) = "" Then
            MkDir ownerFolderPath
        End If
        
        For i = 7 To assetCount
            ' 从模板新建工作簿实例
            Dim newWB As Workbook
            Set newWB = Workbooks.Open(templatePath)
            Dim newWS As Worksheet
            ' 假设模板只有一个工作表，可根据实际修改表名
            Set newWS = newWB.Worksheets(1)
            
            ' 获取当前行的资产数据
            assetTag = CStr(ownerSheet.Cells(i, 18).Value)
            assetDescription = CStr(ownerSheet.Cells(i, 11).Value)
            
            ' 赋值到新工作簿
            newWS.Cells(3, 1).Value = assetTag
            newWS.Cells(3, 2).Value = assetDescription
            
            ' 保存并关闭新工作簿
            newWB.SaveAs ownerFolderPath & assetTag & " - " & assetDescription & ".xlsx"
            newWB.Close SaveChanges:=False
            
            ' 释放对象，避免内存泄漏
            Set newWS = Nothing
            Set newWB = Nothing
        Next i
    End If
Next ownerCell

关键改动说明 #

• 每次新建模板实例：不再重复修改同一个工作簿，而是每次从模板打开新工作簿，彻底避免对象引用混乱。
• 优化行数计算：改用资产标签所在的第18列计算最后一行，避免因第一列存在空值导致循环提前结束。
• 显式创建文件夹：提前检查并创建所有者文件夹，避免因路径不存在导致保存失败，同时移除On Error Resume Next（该语句会掩盖真实错误，不利于调试）。
• 释放对象：每次循环后释放工作簿和工作表对象，避免内存泄漏。

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