excel 每隔5天运行VBA宏的步骤

lnlaulya 于 2023-01-14 发布在其他

关注(0)|答案(1)|浏览(158)

正如你所看到的，下面提到的所有宏调用计划都是相互链接的。但是，我想运行第一个Sub Button1_Click（）宏每5天。目前的应用程序。Ontime不增加后23小时。有人能请建议如何我设置第一个宏子按钮1_Click（）（因此，其余宏与Button1链接，它们将自动运行）每5天自动运行一次。

Sub Button1_Click()
    Application.OnTime Now + TimeValue("00:00:10"), "Part1"
End Sub

Sub Part1()
    Call DeleteFiles
    
    Application.OnTime Now + TimeValue("00:00:20"), "Part2"
End Sub

Sub Part2()
    Call CopyFiles_r2
    
    Application.OnTime Now + TimeValue("00:00:55"), "Part3"
End Sub

Sub Part3()
    Call MakeFolders
    
    Application.OnTime Now + TimeValue("00:01:40"), "Part4"
End Sub

Sub Part4()
    Call moveMatchedFilesInAppropriateFolders
    
    Application.OnTime Now + TimeValue("00:01:55"), "Part5"
End Sub

Sub Part5()
    Call OrganizeFilesByFileType
    
    Application.OnTime Now + TimeValue("00:02:35"), "Part1"
End Sub

我会很感激

excel

来源：https://stackoverflow.com/questions/75046252/to-run-vba-macros-after-every-5-days

1条答案

按热度按时间

rsaldnfx1#

嗯，这是可能的，只是这不是做某事的最佳方式。
首先，完成所有5个步骤，并从工作簿模块中调用它们。
确保将其设置为Workbook_Open触发器：

Option Explicit
Private Sub Workbook_Open()
    
    ' > Give you enough time to Pause/Break when you manually open the file.
    Application.Wait Now() + TimeValue("00:00:30")
    
    ' > Run Series
    Call DeleteFiles                            'Part 1
    Call CopyFiles_r2                           'Part 2
    Call MakeFolders                            'Part 3
    Call moveMatchedFilesInAppropriateFolders   'Part 4
    Call OrganizeFilesByFileType                'Part 5
    
    ' > Close WB
    ThisWorkbook.Save
    ThisWorkbook.Close
    
End Sub

接下来，打开任务计划程序：