在 Excel "Save changes" 弹出时模拟按钮取消
Simulate button Cancel on Excel "Save changes" pop up
我正在尝试使用 VBA 脚本自动执行 SAP 事务。事务将一些数据提取到 Excel 模板，显示生成的 Excel 文件并出于某种原因尝试退出它，这显示 "save changes" 弹出窗口 window，这就是交易结束。
我希望我的 VBA 代码在保存更改弹出 window 时单击 "cancel"。
我希望我的 VBA 在不同的项目上执行此事务并将生成的 .xls 文件保存到特定位置，问题是这个弹出窗口 window 停止了代码，我必须手动点击。
禁用弹出窗口没有帮助，因为文件将在不保存的情况下退出并丢失。我无权更改 SAP 代码，所以我唯一的选择是通过 VBA.
运行 脚本
要强制工作簿保存更改，请在该工作簿的 Visual Basic 模块中键入以下代码：
Sub Auto_Close()
If ThisWorkbook.Saved = False Then
ThisWorkbook.Save
End If
End Sub
此子过程检查文件 Saved 属性 是否已设置为 False。如果是这样，则工作簿自上次保存后已更改，并且已保存这些更改。
我正在尝试使用 VBA 脚本自动执行 SAP 事务。事务将一些数据提取到 Excel 模板，显示生成的 Excel 文件并出于某种原因尝试退出它，这显示 "save changes" 弹出窗口 window，这就是交易结束。
我希望我的 VBA 代码在保存更改弹出 window 时单击 "cancel"。
我希望我的 VBA 在不同的项目上执行此事务并将生成的 .xls 文件保存到特定位置，问题是这个弹出窗口 window 停止了代码，我必须手动点击。
禁用弹出窗口没有帮助，因为文件将在不保存的情况下退出并丢失。我无权更改 SAP 代码，所以我唯一的选择是通过 VBA.
运行 脚本要强制工作簿保存更改，请在该工作簿的 Visual Basic 模块中键入以下代码：
Sub Auto_Close()
If ThisWorkbook.Saved = False Then
ThisWorkbook.Save
End If
End Sub
此子过程检查文件 Saved 属性 是否已设置为 False。如果是这样，则工作簿自上次保存后已更改，并且已保存这些更改。