求助：指定周期日期统计及VBA脚本WorksheetFunction报错排查

错误原因分析 #

你遇到的Object variable or With block variable not set错误，核心问题出在WorksheetFunction变量的声明与初始化环节：

• 你代码里写了Dim wf As WorksheetFunc...（正确类型应该是WorksheetFunction），但没有用Set语句将变量指向Application.WorksheetFunction对象，导致wf是一个未赋值的空对象，调用它的方法（比如NetworkDays）自然会报错。
• 另外，你用String类型存储日期，容易引发日期格式解析问题，建议改用Date类型处理日期值更稳妥。

修正后的完整代码 #

下面是调整后的脚本，包含日期计算、变量初始化和三种天数的统计逻辑：

Sub DayCounts()
    Dim currentDate As Date
    Dim start_date As Date
    Dim end_date As Date
    Dim calDays As Long
    Dim businessDays As Long
    Dim weekendDays As Long
    Dim wf As WorksheetFunction
    
    ' 初始化WorksheetFunction对象——这是你之前缺失的关键步骤！
    Set wf = Application.WorksheetFunction
    
    ' 获取当前日期，用于计算统计周期
    currentDate = Date
    
    ' 计算周期起始日：上月23日
    start_date = DateSerial(Year(currentDate), Month(currentDate) - 1, 23)
    ' 计算周期结束日：当月23日
    end_date = DateSerial(Year(currentDate), Month(currentDate), 23)
    
    ' 统计日历天数（包含首尾两天）
    calDays = end_date - start_date + 1
    
    ' 统计工作日天数（不含周末，若有节假日可添加第三个参数：节假日范围）
    businessDays = wf.NetworkDays(start_date, end_date)
    
    ' 统计周末天数（日历天数减去工作日天数）
    weekendDays = calDays - businessDays
    
    ' 输出结果到工作表（这里假设输出到当前活动工作表的A1:C1单元格）
    With ActiveSheet
        .Range("A1").Value = "Calendar Days"
        .Range("B1").Value = "Business Days"
        .Range("C1").Value = "Weekend Days"
        .Range("A2").Value = calDays
        .Range("B2").Value = businessDays
        .Range("C2").Value = weekendDays
    End With
    
    ' 释放对象变量
    Set wf = Nothing
End Sub

关键修正点说明 #

• 初始化WorksheetFunction：必须通过Set wf = Application.WorksheetFunction将变量绑定到实际对象，否则无法调用其内置函数。
• 改用Date类型存储日期：用DateSerial函数直接生成日期值，避免字符串转日期时因系统区域设置不同导致的解析错误。
• 清晰的天数计算逻辑：
  • 日历天数直接通过日期差加1得到（因为要包含起始和结束当天）
  • 工作日使用NetworkDays函数，支持可选的节假日参数（如果需要排除法定假日，可以添加第三个参数，比如wf.NetworkDays(start_date, end_date, Range("D:D"))，其中D列是节假日列表）
  • 周末天数通过日历天数减去工作日天数得到，逻辑更简洁。

额外注意事项 #

如果统计时当前日期还没到当月23日，end_date会是未来日期，代码依然能正常计算；如果需要处理跨年度的情况（比如1月23日的上月是去年12月），DateSerial会自动处理年份的变化，无需额外判断。

内容的提问来源于stack exchange，提问作者Rhyfelwr