如何实现VBA宏在每月特定日期自动执行（倒数第一、第二个周三次日）

阿华AIGC实验室

2026-4-21

嘿，这个需求我之前帮团队处理过，刚好能给你一套可行的方案！核心难点其实是准确判断当天是不是目标日期——也就是每月倒数第一个、倒数第二个周三的次日（周四），还要覆盖你提到的两种特殊情况：最后周三刚好是月末（次日是下月1号）、当月有5个周三的情况。

第一步：先写一个日期判断的核心函数

先在VBA里写一个函数，用来检查当前日期是不是我们要运行宏的日子。这个函数会自动处理你担心的两种特殊情况：

Function IsTargetDay() As Boolean
    Dim currentDate As Date
    Dim lastWed As Date
    Dim secondLastWed As Date
    Dim target1 As Date ' 倒数第一个周三的次日
    Dim target2 As Date ' 倒数第二个周三的次日
    
    currentDate = Date
    
    ' 计算当月最后一个周三：先取下月第一天减1得到当月最后一天，再倒推到最近的周三
    lastWed = DateSerial(Year(currentDate), Month(currentDate) + 1, 1) - 1
    Do While Weekday(lastWed, vbWednesday) <> 1 ' vbWednesday设定周三为一周第一天，返回1即为周三
        lastWed = lastWed - 1
    Loop
    
    ' 计算倒数第二个周三：直接用最后周三减7天，不管当月有4/5个周三都适用
    secondLastWed = lastWed - 7
    
    ' 得到两个目标日期：周三的次日
    target1 = lastWed + 1
    target2 = secondLastWed + 1
    
    ' 检查当前日期是否是两个目标日期之一
    ' 自动覆盖"最后周三是月末，次日为下月1号"的情况
    If currentDate = target1 Or currentDate = target2 Then
        IsTargetDay = True
    Else
        IsTargetDay = False
    End If
End Function

第二步：两种自动执行的方案

根据你的使用场景选对应的方案：

方案1：Excel文件保持常开时，自动触发

如果你的Excel文件平时一直开着，可以用Workbook_Open事件+定时检查的方式：

打开VBA编辑器（按Alt+F11），找到你的工作簿，双击ThisWorkbook
粘贴下面的代码，替换成你的宏名称即可：

Private Sub Workbook_Open()
    ' 打开文件时先检查一次
    If IsTargetDay() Then
        Call YourMacroName ' 替换成你要运行的宏的名字
    End If
    
    ' 设置每天早上9点自动检查（可以改成你需要的时间）
    Application.OnTime TimeValue("09:00:00"), "CheckAndRunMacro"
End Sub

Sub CheckAndRunMacro()
    If IsTargetDay() Then
        Call YourMacroName ' 替换成你要运行的宏的名字
    End If
    
    ' 重新设置第二天的定时，保证每天自动检查
    Application.OnTime TimeValue("09:00:00") + 1, "CheckAndRunMacro"
End Sub

方案2：不需要Excel常开，用Windows任务计划器（推荐）

如果希望完全自主运行，不用一直开着Excel，就用Windows任务计划器配合VBS脚本：

先写一个VBS脚本（比如命名为RunExcelMacro.vbs），内容如下：

Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = False ' 后台运行，不显示Excel窗口
Set objWorkbook = objExcel.Workbooks.Open("C:\YourFilePath\YourWorkbook.xlsx") ' 替换成你的文件绝对路径

' 先调用VBA里的判断函数，符合条件再运行宏
If objExcel.Run("IsTargetDay") Then
    objExcel.Run("YourMacroName") ' 替换成你的宏名
End If

objWorkbook.Save ' 如果宏需要保存文件，保留这句；不需要就删掉
objWorkbook.Close
objExcel.Quit
Set objWorkbook = Nothing
Set objExcel = Nothing