如何用VBA按照计算机内的日期每过一天就自动把SHEET3复制一份？

万木春 · 发表于 2002-5-1 14:39

大家好：我正在做一个考勤程序，如何用VBA按照计算机内的日期(DATE)每过一天就自动把SHEET3的工作表复制一份？

万木春 · 发表于 2002-5-2 12:31

多谢shuiyuan，您的程序应该放在哪里？我把它放在模块内但没有拷贝工作表，请再指点一下，好吗，谢谢!

万木春 · 发表于 2002-5-2 17:59

谢谢shuiyuan版主，我明白了

shuiyuan · 发表于 2002-5-2 12:38

请下载实例： [upload=zip]uploadImages/20025212374749852.zip[/upload]

shuiyuan · 发表于 2002-5-1 21:23

To 万木春：本实列基准日期为2002-5-1。 Private Sub Workbook_Open() Dim Mydate As Date On Error GoTo 100 Application.ScreenUpdating = False Mydate = Format(Now(), "yyyy-mm-dd") For i = 1 To Int(Now() - #5/1/2002#) - Sheets.Count + 2 If Not (Sheets(i).Name = Mydate) Then Sheets("Sheet3").Copy Before:=Sheets(1) If Sheets(2).Name = Format(Now(), "yyyy-mm-dd") Then Application.DisplayAlerts = False Sheets(1).Delete Application.DisplayAlerts = True End If Sheets(1).Name = Format(Now(), "yyyy-mm-dd") Sheets(1).Select End If Next i Application.ScreenUpdating = True 100 End Sub

		自动登录	找回密码
密码			免费注册

如何用VBA按照计算机内的日期每过一天就自动把SHEET3复制一份？

To 万木春：

最新热点 /1