调用工作表函数的问题

沈默00

Sub 年度汇总()   '正常运行
    Dim sht As Worksheet, n%
    n = Worksheets.Count
    Sheets(n).Range("b2:j1000").Copy Sheets(1).[a1]
End Sub


正面这个不能运行
Sub 年度汇总2()    '为什么不能运行，代码错在哪里？
    Dim sht As Worksheet, n%
    Application.WorksheetFunction.Month (Application.WorksheetFunction.today())
    Sheets(n+1).Range("b2:j1000").Copy Sheets(1).[a1]
End Sub

沈默00

Sub 年度汇总2()   还是不行，用set n  也不行
    Dim sht As Worksheet, n%
    n = Application.WorksheetFunction.Month(Application.WorksheetFunction.today())
    Sheets(n).Range("b2:j1000").Copy Sheets(1).[a1]
End Sub

abc123281

n = Month(Now())

tanglf188

第三句换成：
n = Month(Now())   或
n = Month(Date)

ZHLK

WorksheetFunction下就没有today函数

沈默00

abc123281 发表于 2023-6-7 14:50
n = Month(Now())

可以了，我当成工作表函数了

沈默00

ZHLK 发表于 2023-6-7 15:00
WorksheetFunction下就没有today函数

怪不得不行，我当工作函数用了。谢谢