当有人关闭文件时,是否可以自动让 Excel 执行操作?
情况:
我有一个 Excel 文件,其他几个人也使用该文件。该文件在保存时发布一个 mhtml 文件。此 mhtml 文件将使用昨天的日期保存,如“Dashboard 2015-01-12”。 mhtml 文件中看到的数据必须包含与文件名相关的日期。看到的数据取决于此 Excel 文件中的单个单元格 G2。
我希望 Excel 文件执行此操作:
将单个单元格 (G2) 更改为昨天的日期。然后保存。然后关闭它。
我希望执行此操作:
当有人关闭文件时。
到目前为止我的代码:
Sub sbWriteCellWhenClosing()
Workbooks("BOOK1.XLS").Close SaveChanges:=True
Range("G2") = Format(Now - 2, dd - mm - yy)
End Sub
Edit:
这能完成工作吗?
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Range("G2") = Format(Now - 1, dd - mm - yy)
ActiveWorkbook.Close SaveChanges:=True
End Sub
这是使用工作簿代码:
Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call sbWriteCellWhenClosing
End Sub
在单独的模块中:
Sub sbWriteCellWhenClosing()
ActiveSheet.Range("G2") = Format(Now - 1, "dd-mm-yy") '-1 for yesterday
ActiveWorkbook.Save
End Sub
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)