Excel VBA 同名宏跨工作簿运行写入错误数据的解决方案咨询

1 最简修改方案（无需调整代码存放位置） #

你遇到的核心问题是代码中未显式指定工作簿归属，Excel默认会调用活动工作簿的对应工作表/宏，多开同结构工作簿时就会出现匹配错误。直接在所有工作表、工作簿引用前增加ThisWorkbook限定即可，ThisWorkbook是VBA内置对象，固定指代代码本身所在的工作簿，不受当前活动窗口、其他打开工作簿的影响。
同时原代码中Rows.Count未限定所属工作表，也存在跨表取值出错的风险，同步修改即可。
修改后的代码示例：

Private Sub cmdSave_Click()
    ' 显式指定取当前代码所在工作簿的工作表
    Set ws = ThisWorkbook.Sheets("Repairs Log")
    ' 限定Rows.Count归属为目标工作表，避免兼容性问题
    lr = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row + 1
    ws.Cells(lr, 3).Value = txtsite
    ws.Cells(lr, 4).Value = lbxblock
    ws.Cells(lr, 5).Value = txtflat
    ws.Cells(lr, 6).Value = txtroom
    ws.Cells(lr, 7).Value = txtdescription
    ws.Cells(lr, 9).Value = lbxtype
    ws.Cells(lr, 8).Value = lbxassigned.Text
End Sub

2 解决同名宏调用冲突 #

如果多个工作簿的普通模块内存在同名的公共过程，Excel默认会优先调用当前活动工作簿的过程，要避免这个问题可以将普通模块内的自定义过程全部声明为Private，私有过程仅支持当前工作簿内部调用，其他工作簿无法识别、调用，从根源避免同名冲突。

3 关于存放到ThisWorkbook容器的疑问 #

该方案可行，但性价比不高：将代码存入ThisWorkbook对象后，过程会变为工作簿对象的成员方法，调用时需要额外增加ThisWorkbook.前缀才能触发，反而增加代码修改量，普通模块按上述两个方案修改后完全可以满足需求，不需要迁移代码位置。

额外加固方案（可选） #

如果需要更高的容错性，可以在过程开头增加工作簿名称校验，进一步避免代码被误复制到其他工作簿运行：

Private Sub cmdSave_Click()
    ' 可替换为你实际的工作簿名规则，比如前缀匹配
    If Not ThisWorkbook.Name Like "站点信息_*.xlsm" Then
        MsgBox "当前工作簿非目标业务工作簿，代码禁止运行"
        Exit Sub
    End If
    ' 后续业务代码
End Sub

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