如题所述
在手动刷新数据的VBA中添加保存的选项；
如果数据变化了而没有刷新数据，在beforeclose中添加判断自动执行更新！
Private Sub Workbook_BeforeClose(Cancel As Boolean) If ThisWorkbook.Saved = False Then If MsgBox("数据没有保存，是否自动更新？", vbCritical + vbYesNo, "退出提示...") = vbNo Then Exit Sub
更新数据模块。
end sub
如果数据变化了而没有刷新数据，在beforeclose中添加判断自动执行更新！
Private Sub Workbook_BeforeClose(Cancel As Boolean) If ThisWorkbook.Saved = False Then If MsgBox("数据没有保存，是否自动更新？", vbCritical + vbYesNo, "退出提示...") = vbNo Then Exit Sub
更新数据模块。
end sub
温馨提示：答案为网友推荐，仅供参考
第1个回答 2014-01-18
把下面test中的代码加到你的执行代码最后
Sub test() a = MsgBox("是否保存？", vbYesNo, "提醒！") If a = vbYes Then ThisWorkbook.Save End IfEnd Sub
Sub test() a = MsgBox("是否保存？", vbYesNo, "提醒！") If a = vbYes Then ThisWorkbook.Save End IfEnd Sub
第2个回答 2014-01-18
在vba代码里加一句保存的语句不就行了？
