workbook_open时间每天只运行一次怎么实现？

alstar

每天第一次打开时运行一次。之后当日第2次、第3次……打开不再运行。

xyxcc177

在一个表中记录当天日期和是否运行了程序，打开后先读取记录，如果已经运行则跳过。

huang1314wei

向注册表写入一个值，每天检测一下，如果注册表有值，代表运行过了，就exit sub，反之就运行

一指禅62

1. Sub Auto_Open()
   
2.     Dim Rng As Range
   
3.     Set Rng = Sheet1.Range("A1")    '任意单元格
   
4.     If Rng.Value = "" Or Rng.Value < Date Then
   
5.         Rng.Value = Date
   
6.         test
   
7.     End If
   
8. End Sub
   
9. 
   
10. Private Sub test()
    
11.     MsgBox "运行这个过程……"
    
12. End Sub

复制代码