主题：关于菜单筛选设计的问题

Dim 年度 As Integer
Dim 月度 As Integer
With RibbonTabs("筛选")("期间筛选")
    年度 = .Items("年度").Value
    月度 = .Items("月度").Value
End With
Tables("合同信息汇总表").Filter = "[年度] = " & 年度 & " And [月度] = " & 月度

1、年度和月度都是整数，不是日期，不需用用符号#括起来

2、不应用CurrentTable，而应该用Tables("合同信息汇总表")、