每天,一个人需要检查特定工作簿是否已根据彭博和路透社市场数据正确更新;即所有数据都已经通过并且“数字看起来正确”。过去,人们没有检查“数字”,这导致上传到其他系统的数据不准确。
想法是,需要开发“某些东西”以防止使用者关闭/保存工作簿,除非他/她已检查更新是否正确/准确。 numbers look correct
Action 纯粹是一种直观的练习,因此不会以任何方式进行编码。
简单的解决方案是在关闭特定工作簿之前提示用户验证数据是否已被检查。
使用适用于 Excel 2007 的 VSTO SE,创建了一个外接程序,该外接程序 Hook 在外接程序 WorkbookBeforeClose
中初始化的 ThisAddIn_Startup
事件
private void wb_BeforeClose(Xl.Workbook wb, ref bool cancel)
{
//.... snip ...
if (list.Contains(wb.Name))
{
DailogResult result = MessageBox.Show("some message", "sometitle", MessageBoxButtons.YesNo);
if (result != DialogResult.Yes)
{
cancel = true; // i think this prevents the whole application from closing
}
}
}
我发现以下
ThisApplication.WorkbookBeforeSave
vs ThisWorkbook.Application.WorkbookBeforeSave
建议应该使用 ThisApplication.WorkbookBeforeClose
事件,我认为这是我正在做的事情,因为它将跨越所有打开的文件。我对这种方法的问题是,假设我打开了几个文件,其中一些在我的
list
中,该事件会阻止 Excel 按顺序关闭所有文件。现在需要单独关闭每个文件。 编辑 :当从文件菜单使用退出 Excel 时会发生这种情况。问题
WorkbookBeforeClose
事件,这是否有效且高效地使用了该事件? 更新 [2010 年 3 月 30 日]:
修补一下,我还尝试了以下尝试将
BeforeClose
事件处理程序绑定(bind)到按照上面链接的建议打开的每个工作簿。private void ThisAddIn_Startup(...)
{
// snip
Globals.ThisAddin.Application.WorkbookOpen += Application_Open;
}
private void Application_Open(XL.Workbook wb)
{
wb.BeforeClose += Document_WorkbookBeforeClose; // method does the same as above
}
我用这种方法发现的问题是我尝试关闭事件处理程序不执行的所有 Excel 文件(使用 Exit Excel 选项)。根据我的观察,当要检查的文档不是事件文档时会发生这种情况。
与我最初的方法相比,这种方法似乎不稳定。我不确定或感觉不舒服的一件事是每次打开文档时绑定(bind)事件。
更新 [2010 年 4 月 7 日]:
格伦的建议答案很有用,但没有解决手头的直接问题,因此我进一步澄清了最后一个问题。
我还发现了该博客How to Get an Excel VSTO Workbook Closed Event,它与我的问题有些相关,因为它可以在解决方案的替代方法中使用监视器类型的方法来处理工作簿(也可以使用新引入的
OnWorkbookClosed
事件)。更新 [2010 年 4 月 8 日]:
似乎有些困惑,我不关心工作簿本身的任何验证,而是关心我使用的方法(即使用应用程序级
WorkbookBeforeClose
事件)是否正确。下面@Mathias 的评论显示了对与问题 3 相关的部分问题的正确理解,但我认为这是默认的 excel 行为。解决此问题的解决方案是创建一个仅关闭我的特定文件的关闭函数。
VS 2005 与 VSTO SE
最佳答案
应用程序级别的WorkbookBeforeClose
是要使用的一种。问题是在调用 WorkbookBeforeClose
时文件没有被保存导致了不稳定的行为。如果不是,则Save事件将开始,您实际上已经失去了WorkbookBeforeClose
事件,因为它已经发生。这是一些有助于处理此问题的 VBA 代码。
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Not Me.Saved Then
NotSavedPrompt = Me.Name & " has not been saved. Would you like to save now?"
SaveYesNo = MsgBox(NotSavedPrompt, vbQuestion + vbYesNoCancel)
Select Case SaveYesNo
Case vbYes
Me.Save
Case vbNo
Me.Saved = True
Case vbCancel
Cancel = True
Exit Sub
End Select
End If
Call MyRoutine() //'this should be your sub that does what you want
End Sub
关于c# - 如何正确有效地使用 WorkbookBeforeClose 事件?,我们在Stack Overflow上找到一个类似的问题:https://stackoverflow.com/questions/2536876/