[已解决]VBA--循环复制

Banieliang

大神，
大家好，请帮忙写一段程序：
我的要求是：
08:01:00,
16:01:00,
00:01:00
均执行复制一次（复制程序我已经写好，这里不需要大神帮忙）；每天执行
谢谢

最佳答案

月排行榜 / 总排行榜

L50814026

2014-10-31 22:26

Banieliang 发表于 2014-10-30 22:16
http://www.excelpx.com/thread-333834-1-1.html
看看我怎么设置任务，要设置6个任务吧
但是同一份表 ...

1. Sub aa()
   
2. 
   
3. Application.OnTime TimeValue("00:01:00") , "bb"
   
4. VBA.DoEvents
   
5. Application.OnTime TimeValue("08:01:00") ，"bb"
   
6. VBA.DoEvents
   
7. Application.OnTime TimeValue("16:01:00") ，"bb"
   
8. VBA.DoEvents
   
9. 
   
10. 
    
11. MsgBox "OK"
    
12. End Sub
    
13. 
    
14. Sub bb()
    
15. ''''''复制
    
16. End Sub

复制代码

那就这种方法吧

跳转到最佳答案楼层

L50814026

设置一个计划任务不就行了？

L50814026

设置一个workbook.open事件，再设置计划任务，在要求的时间打开Excel，就能达到要求

Banieliang

L50814026 发表于 2014-10-30 20:32
设置一个workbook.open事件，再设置计划任务，在要求的时间打开Excel，就能达到要求

求具体程序

L50814026

Banieliang 发表于 2014-10-30 20:34
求具体程序

1. Private Sub Workbook_Open()
   
2.   Application.Wait (Now + TimeValue("00:00:10"))
   
3.   Call fuzhi  'fuzhi为对应的复制
   
4. End Sub
   
5. 
   
6. Sub fuzhi()
   
7. '''''''''''
   
8. '''''''''''略
   
9. End Sub
   

复制代码

按提示操作就可以了

Banieliang

L50814026 发表于 2014-10-30 20:50
按提示操作就可以了

http://www.excelpx.com/thread-333834-1-1.html
看看我怎么设置任务，要设置6个任务吧
但是同一份表，怎么写计时器程序呢？
谢谢！！！

L50814026

Banieliang 发表于 2014-10-30 22:16
http://www.excelpx.com/thread-333834-1-1.html
看看我怎么设置任务，要设置6个任务吧
但是同一份表 ...

1. Sub aa()
   
2. 
   
3. Application.OnTime TimeValue("00:01:00") , "bb"
   
4. VBA.DoEvents
   
5. Application.OnTime TimeValue("08:01:00") ，"bb"
   
6. VBA.DoEvents
   
7. Application.OnTime TimeValue("16:01:00") ，"bb"
   
8. VBA.DoEvents
   
9. 
   
10. 
    
11. MsgBox "OK"
    
12. End Sub
    
13. 
    
14. Sub bb()
    
15. ''''''复制
    
16. End Sub

复制代码

那就这种方法吧

Banieliang

L50814026 发表于 2014-10-31 22:26
那就这种方法吧

我已经解决了！！
还是非常感谢你！！给你最佳答案！！
下面的程序可以随着表格打开天数增加而避免在同一时间复制多次的情况