5常见事件

hisWorkbook.SaveCopyAs "d:\data\"& Format(Now(), "yyyymmddhhmmss") &".xls"

注意事

1  savecopuas是偷偷保存，save 在前，

2    Format(Now(),

"yyyymmddhhmmss")中now()不需要双引号，但是后面那个要

3   这个是工作簿保存前偷偷备份，注意是工作簿不是工作表，所以对象是workbook不是worksheet

4   VBA中now函数还是可以用，但是date函数就用不了了，用format函数替代

5 thisworkbook=activeworkbook

保存有代码的文件用xls或者xlsm才可以保存，其它格式不可以保存xlsx格式是纯数字

如果工作表的选区发生变化，就执行宏，事件是selectionchang

Application.enableevent=false这个用来避免事件响应，比如工作簿一旦有地方有改变就粘贴相对应的值，但是粘贴值的本身也会引起工作表的改变，于是又陷入死循环，所以用这个避免后面粘贴这个行为对工作表本身产生影响

工作簿事件

---

---